DISKI016 



IMP-16 ASSEMBLER REV-H 09/08/75 

DISKIO . P00376C 12/03/75 

1 .TITLE DISKI016 , ' P00376C 12/03/75' 

2 .******************************************** * * * * * * * * * ***** 

3 • 

4 ; IMP# PROM# ROM# BOARD COORDINATE 

5 ; IMP-16F/006A 4600876 N/A ID 

6 ; IMP-16F/006B 4610876 N/A IE 

7 ; IMP-16F/006C 4620876 N/A 1A 

8 ; IMP-16F/006D 4630876 N/A 2A 

9 ; 

^0 .************************************ *,*.** ******* * * * ** * * * * * * 
.A************************************* * * * ***************** 

12 . ; 

13 ; DISKIO IS A SUBROUTINE DESIGNED TO ALLOW COMMUNICATIONS 

14 ; WITH A DUAL DRIVE FLOPPY DISK VIA THE DISK INTERFACE 

15 ; BOARD. 

16 ; 

17 ; 

18 ; 

19 ; THERE ARE TWO ENTRY POINTS * 

20 ; 

21 ; 1) DISKIO USES THE PHYSICAL SECTOR NUMBER. 

22 ; 

23 ; 2) DISK2 CONVERTS THE LOGICAL SECTOR NUMBER INTO A 

24 ; PHYSICAL SECTOR NUMBER USING THE BAD SECTOR TABLE, 

25 ; THEN CALLS DISKIO. 

26 ; 

27 ; 

28 ; 

29 ; CALL DISKIO AS FOLLOWS : 
30 

31 ; JSR DISKIO 

32 ; . WORD PLIST . ; PARAMETER LIST POINTER 

33 ; TERROR RETURN HERE 

34 ; ; NORMAL RETURN HERE 

35 

36 ; 

37 ; 

33 ; PLIST: . WORD COMMAND ;7=WRITE, 2=READ 

. 39 • , WORD LOGSECT ; LOGICAL SECTOR NUMBER 

40 ; . WORD 3UFADDR ; BUFFER ADDRESS 

41 ; .WORD 0 ;STAUS RETURNED HERE 

4 2 ; .'WORD 0 ; PHYSICAL SECTOR RETURNED 

43 ; 

44 .********************************************************** 

45 .********************************************************** 

46 ; RAM LOCATIONS USED BY THE DISKIO ROUTINES 

47 .********************************************************** 

48 ; 

4 9 ; MRAM-0 TRACK COUNTER 3 

50 ; MRAM-1 TRACK COUNTER 1 

51 ; MRAM-2 DISK STATUS 

52 ; MRAM-3 DISK DATA 

53 ; MRAM-4 TRACK DIRECTION REGISTER 

54 ; MRAM-5 AC0 

55 ; MRAM-6 AC1 

56 ; MRAM-7 AC 2 

57 ; MRAM-8 AC 3 

53 ; MR AM- 9 THROUGH MRAM-1 8 STACK-15 TO STACK- 0 

59 ; MRAM* J 19 IEN 

60 ; MRAM-1 A ERROR COUNTER 

61 ; MRAM-1B FLAGS 
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62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
.95 
96 
97 
93 
,9.9 
100 
101 
102 
103 
104 



105 
106 
lk)7 
108 
109 
110 
111 
112 
113 

114 0033 
115 
116 
117 

118 C000 

119 C001 
1.20 C002 

121 C003 

122 C004 



MRAM-1C BAUD RATE SWITCH FOR TTY/CRT 

M RAM- ID TEMP LOC FOR TTY/CRT BIT COUNT 

********************************************************** 

TRACK DIRECTION REGISTER BIT ASSIGNMENT 

*************** 

*DRIVE2*DRIVE1* 

* BIT1 * BIT0 * 
*************** 

* 0=OUT* 0=OUT* 
-. , * 1=IN * 1 = IN * 

*************** 

***** * * * ******************************************************** 

, HARDWARE BIT DEFINITIONS 
**************************************************************** 



HARDWARE STATUS BIT DEFINITIONS 

BIT 0 = RSYNC (SYNC-CHARACTER HAS BEEN RECOGNIZED) . 

BIT 1 = TRACK 0* (LOW WHEN HEAD IS AT TRACK 0) . 

BIT 2 = INDEX* (LOW WHEN INDEX MARK IS DETECTED) . 

BIT 3 = FILE INOPERABLE* (LOW WHEN A CONDITION WHICH ENDANGERS 

THE DATA ON THE DISKETTE ) . 
BIT 4 * READY* (LOW WHEN THE DRIVE IS TURNING AND THE DOOR IS 
CLOSED) . 

BIT 5 = TTY/CRT BAUD SELECTION. 
BIT 6 = TTY/CRT BAUD SELECTION. 



HARDWARE CONTROL SIGNALS 

BIT 0 = RSTEN (RESET ENABLE SIGNAL TO LOOK FOR SYNC CHARACTER) . 
BIT 1 = WREN (WRITE ENABLE SIGNAL) 

BIT 2 = STEP (STEP HEAD ONE TRACK FOR EACH PULSE) . 

BIT 3 = DIRECTION (SET DIRECTION THE HEAD IS TO BE MOVED). 

BIT 4 ■ FILE RESET ( RESETS FILE INOPERABLE LATCH). 



.PAGE 

********************************************************** 
DEFINITIONS 



**************************************************************** 



.ASECT 



X'C000 



PROGRAM ENTRY POINTS 



2500 A PDBOOT: JMP @.+l 
C00E A .WORD DBOOT 

2500 A .TjTYGJET : J.MP . . . « 

C28A A .WORD GETC 

2500 A TTYPUT: JMP 3.+1 
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123 
124 
125 
126 
127 
128 
129 
133 
131 
132 
133 
134 
135 
136 
137 
133 
139 
140 
141 
142 
143 
144 
145 
146 
147 
143 
149 
150 
151 



152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 



C005 
C006 
C007 
C003 
C009 
C00A 
C00B 
C00C 
C00D 



C31A A 

2500 A TTYGCO: 
C2A8 A 

2500 A LDISK: 
C255 A 

2500 A PDISK: 
C01D A 
2500 A TRAM: 
C276 A 



.WORD 

J MP 

. WORD 

JMP 

.WORD 

JMP 

.WORD 

JMP 

.WORD 



PUTC 

@.+l 

GECO 

§. + 1 

DISK2 

@.+l 

DISKIO 

@.+l 

TOPRAM 



; LOGICAL DISK I/O 
; PHYSICAL DISK I/O 
?TOP-OF-RAM DETERMINATION 



0001 
0002 
0000 
0031 
0002 
0003 A 
3008 A 
0001 A 



0001 
0002 
3003 
0034 
0005 
8009 
000A 
000E 



000E A 



C00E 


29FD 


A 


VUUi" 


4 D-F 




C010 


A700 


A 


C011 


A7FF 


A 


C012 


290A 


A 


C013 


C018 


A 


C014 


2101 


A 


C015 


2030 


A 


C016 


0000 


A 


C017 


21F6 


A 


CtalS 


0002 


A 


C019 


0001 


A 


C01A 


0000 


A 


C01B 


0000 


A 


C01C 


0001 


A 



IEN = 


1 


; INTERRUPT ENABLE FLAG 


SEL = 


2 


; SELECT FLAG 


AC0 = 


0 


; ACCUMULATOR ZERO 


AC1 = 


1 


r ACCUMULATOR ONE 


AC 2 = 


2 


; ACCUMULATOR TWO 


AC 3 = 


3 


; ACCUMULATOR THREE 


SNRDY = 


3 




MISYNC= 


1 




BRANCH ON CONDITION 


CODES 


ZRO 


1 




POS 


2 




3IT0 = 


3 




BIT1 = 


4 




NZRO = 


5 




IEN2 = 


9 




CYOV = 


10 




WRJC = 


14 




NRDY = 


14 
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************************************************** 


DISK 


BOOT ROUTINE . 


r************************************************** 


JSR 


TRAM •' ■ 




LI 


AC1 ,-i 


- ; CLEAR TRACK POINTERS 


ST 


AC1 , (AC3) - 




ST 


AC1 ,-1 (AC 3) 




JSR 


DISKIO 


; READ DBOOT 


.WORD 


5LIST 




JMP 


ERROR 




JMP 


0 


; TRANSFER CONTROL TO DBOOT 


HALT 






JMP 


D300T 


; TRY AGAIN 


. WORD 


2,1,0,0,1 





173 
174 
175 
176 
177 
178 
179 



. PAGE 

a******************************************-***'**'**************** 

DISK I/O ROUTINE ' "'• ' • 

**************************************************************** 
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180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193, 
194 
195 
196 
197, 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
203 
,2J49. 
210 
211 
212 
213 
,214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 



DETERMINE THE MAXIMUM RAM LOCATION (STARTING WITH 
LOCATION X'6FFD DOWNWARD UNTIL RAM IS FOUND). 
SAVE THE REGISTERS , STACK, I EN , FLAGS AND 
CLEAR IEN. 



C01D 

C01E 

C01F- 

C020 

C021 

C022 

C023 

C024 

C025 

C026 

C02J 

C028 

C029 

C02A 

C02B 

C02C 
C02D 
C02E 
C02F 
C030 
C031 
-Q032 
C033 
C034 
C035 
C036 
C037 
Ctf38 
C039 
C03A 
C03B 
C03C 
C03D 
C03E 
C03F 
C040 
C041 
C042 
C043 
C044 
C045 
C046 
C047 



4300 
8D0E 
A300 
F300 
2102 
DD0B 
21FB 



. ****** 

? 

DISKIO: 



A3: 



A5: 



5000 A A4: 
A300 A 



F300 A 
2102 A. 
5000 A 
21 F8 A 
5000 A 
2104 A 



A6: 



0002 
6FFD 
1000 
0009 
CDFB 
ABF9 
,4,600, 
ABF8 
A7FA 
A3TB 
3E81 
D9F7 
4500 
0080 
4400 
A3E5 
A600 
4C0F 
4AFF 
4500 
A600 
48FF 
21 FB 
4C01 
1901 
4C03 
i3980 
A2FF 



A WRD2: 
A TMPTR: 
A CONT1: 
A CONT2: 
A BSAV: 
A 

A . , 

A 

A 

A ' 

A 

A 

A 

A 

A 

A 

A 

A 

A Bl: 
A • 
A 
A 
A 
A 
A 
A 
A 
A 



CI: 



PUSH AC 3 

LD AC 3, TMPTR 

ST AC0,(AC3) 

SKNE AC0,(AC3) 

JMP A4 

SUB AC3,CONTl 

JMP A3 

CAI AC0,0 

ST AC0,(AC3) 

SKNE AC0,(AC3) 

JMP A6 

CAI AC0,0 

JMP A5 

CAI AC0,0 

JMP BSAV 

.WORD 2 

.WORD X'6FFD 

.WORD X'1000 

.WORD X'9 

ADD AC3,WKD2 

ST AC2,-7(AC3) 

PULL AC 2 

ST AC2,-8(AC3) 

ST AC1,-6(AC3) 

ST • . AC0,-5(AC3) 

RCPY AC3,AC2 

SU.3 AC2,CONT2 

PULL AC1 

PUSHF 

PULL AC0 

ST AC0,-01B(AC3) 

ST AC1,(AC2) 

LI AC0,15 

AISZ AC2,-1 

PULL AC1 

ST ACl f (AC2) 

AISZ . AC0,-1 

JMP Bl 

LI AC0,1 

BOC IEN2,C1 • ' ' 

LI AC0,0 

PFLG IEN 

ST AC0,-1(AC2> 



j SAVE AC 3 

; FINDS TOP OF SYSTEM MEMORY 
;TRY DOWN 4K 



; FALSE ALARM 



AC 2 CONTENTS STORED 
ORIGINAL CONTENTS OF AC 3 
AC 3 CONTENTS STORED 
AC1 CONTENTS STORED 
AC0 CONTENTS STORED 



;TOP OF STACK 



; FLAGS CONTENTS STORED 

;RAM 'STACK' ADDRESS 

;PULL STACK 

; STORE STACK IN RAM 

;FINISHED STORING STACK? 

;NO 

;YES 



•CLEAR INTERRUPT ENABLE 
;IEN STATUS STORED 



231 
232 
233 
234 
235 
236 
237 

238 C048 9BF7 

239 C049 8204 



.PAGE 



; 
; 
; 

D: 



DISK HARDWARE -ADDRESS DETERMINED AND STORED 



240 C04A E10F A 



LD 
LD 
SKG 



AC2,@-9(AC3) 

AC0,4(AC2) 

AC0,TNS 
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241 


C04B 


2105 


A 




JMP ' " 


D2 


242 


C04C 


810B 


A 


D3: 


LD 


AC0 ,BSTAT 


243 


C04D 


A3FE 


A 




ST 


AC0,-2(AC3) 


244 


C04E 


310A 


A 




LD 


AC0 , BDATA 


245 


C04F 


A3FD 


A 




ST 


AC0,-3(AC3) 


246 


C050 


210C 


A 




JMP 


Dl 


247 


C051 


8104 


A 


D2: 


LD 


AC 0, AST AT 


248 


C052 


A3FE 


A 




ST 


AC0,-2(AC3) 


249 


C053 


8103 


A 




LD 


AC0 , AD ATA 


250 


C054 


A3 FD 


A 




ST 


AC0,-3{AC3) 


251 


C055 


2107 


A 




JMP 


Dl 


252 














253 








.************************** 


254 














255 










CONSTANTS 


256 














257 








*************************** 


258 














259 


C056 


7D06 


A 


ASTAT: 


. WORD 


X'7D06 


260 


C057 


7D05 


A 


AD AT A: 


. WORD 


X'7D05 


261 


C058 


7D0A 


A 


3 ST AT: 


. WORD 


X'7D0A 


262 


C059 


7D09 


A 


8DATA: 


.WORD 


X'7D09 


263 


C05A 


0267 


A 


TNS: 


.WORD 


X'267 


264 


C05B 


7FFF 


A 


MSK: 


.WORD 


X'7FFF 


265 


C05C 


004C 


A 


MTRK : 


• WORD 


X'4C 



;DISK DRIVE #1 SELECTED 
;DISK DRIVE #2 SELECTED 



266 








267 








263 








269 








270 








271 








272 








273 








274 


C05D 


4C00 


A 


275 


C05E 


33FE 


A 


276 


C05F 


4C32 


A 


277 


C060 


5380 


A 


278 


C061 


5880 


A 


279 


C062 


48FF 


A 


230 


C053 


21FC 


A 


281 


C064 


4C00 


A 


232 


C065 


A3E6 


A 


283 


C066 


83FE 


A 


234 


C067 


8203 


A 


235 


C068 


58FC 


A 


286 


C069 


1309 


A 


287 


C06A 


5301 


A 


283 


C063 


1309 


A 


289 


C06C 


4C10 


A 


290 


C06D 


A200 


A 


291 


Cfc)6E 


4C00 


A 


292 


C06F 


A200 


A 


293 


C070 


8230 


A 


294 


C071 


53FD 


A 


295 


C072 


1302 


A 


295 


C073 


4C08 


A 


297 


C074 


2566 


A 



29 8 
299 
300 
301 



•PAGE , , 

********************************** *'*"** * ******************** *-**■* * 

LOAD HEAD , SET ERROR COUNTER TO ZERO, TEST 

READY AND FILE OPERATIONAL, SIGNALS. ".*. y \ ' 

************************************************* *************** 



Dl: 



El: 



Ell 



Gl: 



HI: 



LI 


AC0,0 






ST 


AC0,§-2{AC3) 


; HEAD LOAD 




LI 


AC0 ,50 


;SET DELAY COUNTER 


FOR 50 MS ," 


ROL 


AC0,128 






ROL 


AC0 ,128 






AISZ 


AC0,-1 






JMP 


ei .. 






LI 


Acw,0 ' 






ST 


AC0,-X'1A(AC3) 


;SET ERROR COUNTER 


TO 0 


LD 


AC2,-2(AC3) 


; STATUS ADDRESS 




LD 


AC0,(AC2); 


; STATUS 




ROR 


AC0,4 " 






BOC ' 


BIT0,H1 


; TEST READY* . 




ROL 


AC0,1 :. 






BOC 


BIT0,G2 


;TEST FILE INOP.* " 




LI 


AC0,X'10 


;PULSE FILE INOP . * 


TO RESET 


ST 


AC0 , (AC 2) 






LI 


AG0>0 






ST 


AC0 , (AC2) 






LD 


AC0, (AC2*. . 






ROR 


AC0,3 






30C ■:■ ~ 


BIT0,G2 


; RETEST FILE.I^JOP.* 




LI 


AC0,SNRDY 


; SYSTEM NOT READY 




JMP 


@EXB 




. PAGE 




■i 





**************************************************************** 

TEST FOR VALID TRACK COUNTER. IF THE TRACK COUNTER 
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302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 
324 
325 
326 
327 
323 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 



C075 
C076 
C077 
C078 
C079 
C07A 
C07B 
C07C 
C07D 
C07E 
C07F 
C080 
C081 
C082 
C033 
C084 
C085 
C086 
C087 
C088 
C089 
C08A 
C08S 
C08C 
C08D 
C08E 
C08F 
C090 
C091 
C092 
C093 
C094 
C095 
C096 
C097 
C098 
C099 
C09A 
C09B 
C09C 
C09D 
C09E 
C09F 
C0A0 
C0A1 
C0A2 
C0A3 
C0A4 
C0A5 
C0A6 



3D81 A G2: 
F9DF A 



IS NOT VALID (I.E. WITHIN 0 TO 76) THEN RE-SYNCRONIZE 
THE DRIVE AND THE TRACK COUNTER. 

,************************************************************* 



; SELECT CORRECT DISK DRIVE 



2102 
49FF 
3081 
4200 
3681 
8200 
61DD 
E1DD 
2102 A 
4C00 A 
A200 
151C 
5600 
8200 
1402 
5600 
2117 
4C00 
A200 
4C04 
A200 
3031 
4C00 
A200 
2D4F 
83FC 
F9C4 
2106 
1401 
21EF 
48 FE 
3031 
A3FC 
21E8 
1301 
21E9 
48FF 
3081 
A3FC 
21E5 
4200 
9BF7 
3604 
E53D 
2101 
D53C 
5DFD 
4600 



II: 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



Kl: 
K3: 



N: 



$2: 

$3: 
$4: 

K2: 



RCPY 


AL o t Al» X 


SKNE 


AC £ , Ao 1 A 1 


JMP 


11 


AIS2 


AC1 r-1 


NOP 




PUSH 


A O 


RCPY 


» 1 API 

ACl ,ALZ 


LD 


AC 0 , ( AL z ) 


AND 


AC0 ,MSK 


SKG 


AC0 ,MTRK 


JMP 


Kl 


LI 


AC0 , 0 


ST 


AC0 , (AC2) 


BOC 


NZRO,K2 


XCHRS 


AC 2 


LD 


AC0 , (AC 2) 


BOC 


BIT1 ,N 


XCHRS 


AC 2 


JMP 


K2 


LI 


AC0 , 0 


ST 


ALB , \ AV- i. ) 


LI 


AC0 1 4 


ST 


AC 0 , ( AC I ) 


RCPY 


AC0 , ACW 


LI; 1 


AC0 , 0 


ST 


ALIO , I ALZ ; 


JSR 




LD 


AC0 t-4 ( ACJ ) 


SKNE 


AC 2 t ASTA1 


JMP 


$3 


BOC 


BIT1 ,$2 


JMP 


K3 


AISZ 


AC0 ,-2 


NOP 




ST 


AC0,-4(AC3) 


JMP 


K3 


BOC 


BIT0 ,$4 


JMP 


K3 


AISZ 


AC0,-1 


NOP 




ST 


AC0,-4(AC3) 


JMP 


. K3 


PUSH 


AC 2 


LD 


AC2,§-9(AC3) 


LD 


AC1,4(AC2) 


SKG 


AC1,W267 


JMP 


. + 2 


> SUB 


AC1,W268 


>\ SHR ; 


AC 1,3 


PULL 


AC 2 



;MASK OFF BIT 15 

; VALID TRACK RANGE? 



; TRACK COUNTER =0? 
; CURRENT DISK ADDRESS 

? TRACK COUNTER =0? 



;SET DIRECTION TOWARD TRK0 

SET STEP* LOW 

8US DELAY 

4US DELAY 

SET STEP* HIGH 

DELAY 10MS 

AC0 GETS DIRECTION 

SELECT PROPER DISK DRIVE 

•PROPER DIRECTION? 
;YES 

;NO, REVERSE DIRECTION 



PROPER DIRECTION? 
YES 

NO, REVERSE DIRECTION 



•CHECK FOR DRIVE 2 
;OFFSET DRIVE 2 NUMBER 

;NOW GET HEAD TO TRACK 



3*2 * '.**V*Y**;t^ 

359 i 

3gJ ? . GET THE HEAD TO THE TRACK WANTED. 

3*6-2 ' « "T " ? ' 
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353 








.************************** 


354 














365 


C0A7 


F600 


A 


Ml: 


SKNE 


AC1 , (AC2) 


366 


C0A3 


2139 


A 




JMP 


P 


367 


C0A9 


E600 


A 




SKG 


AC1, (AC2) 


368 


C0AA 


2104 


A 




JMP 


$5 


369 


C0AB 


7A00 


A 




ISZ 


(AC 2) 


370 


C0AC 


83FC 


A 




LD 


AC0,-4(AC3) 


371 


C0AD 


5600 


A 




XCHRS 


AC 2 


372 


C0AE 


211B 


A 




JMP 


S 


373 


C0AF 


7E00 


A 


$5: 


. DSZ 


{ AC2) 


374 


C0B0 


3081 


A 




NOP 




375 


C0B1 


83FC 


A 




LD 


AC0 ,-4 (AC3) 


376 


C032 


5600 


A 




XCHRS 


AC 2 


377 


C0B3 


F9A2 


A 




SKNE 


AC2 , ASTAT 


378 


C034 


2107 


A 




JMP 


T2 


379 


C0B5 


1401 


A 


Tl: 


BOC 


BIT1 ,T4 


380 


C0B6 


2109 


A 




JMP 


T5 


381 


C0B7 


7FFC 


A 


T4: 


DSZ 


-4(AC3) 


382 


C033 


3031 


A 




NOP 




383 


C039 


7FFC 


A 




DSZ 


-4 (AC3) 


384 


C03A 


3081 


A 




NOP 




385 


C03B 


2104 


A 




JMP 


T5 


386 


C0BC 


1301 


A 


T2: 


BOC 


BIT0,T3 


387 


C0BD 


2102 


A 




JMP 


T5 


338 


C0BE 


7FFC 


A 


T3: 


DSZ 


-4(AC3) 


339 


C03F 


3081 


A 




NOP 




390 


C0C0 


4C00 


A 


T5: 


LI 


AC0 , 0 


391 


C0C1 


A200 


A 




ST 


AC 0 , ( AC 2 ) 


392 


C0C2 


4C04 


A 


01: 


LI 


AC0,4 


393 


C0C3 


A200 


A 




ST 


AC0 , (AC 2) 


394 


C0C4 


3081 


A 




RCPY 


AC0,AC0 


395 


C0C5 


4C00 


A 




LI 


AC0,0 


396 


C0C6 


A200 


A 




ST 


AC0 , ( AC2 ) 


397 


C0C7 


2D17 


A 




JSR 


3DEL10M 


393 


C0C8 


5630 


A 


02: 


XCHRS 


AC 2 


399 


C0C9 


21 DD 


A 




JMP 


Ml 


400 


C0CA 


F983 


A 


S: 


SKNE 


AC 2, AS TAT 


401 


C0CB 


2104 


A 




JMP 


S2 


402 


C0CC 


1405 


A 


SI: 


30C 


3IT1 ,S5 


403 


C0CD 


7BFC 


A 


34: 


ISZ 


-4{AC3) 


404 


C0CE 


73FC 


A 




ISZ 


-4 (AC3) 


405 


C0CF 


2102 


A 




JMP 


S5 


405 


C0D0 


1301 


A 


S2: 


80C 


BIT0,S5 


407 


C0D1 


7BFC 


A 


S3: 


ISZ 


-4 (AC3) 


408 


C0D2 


4C03 


A 


S5: 


LI 


AC0,8 


409 


C0D3 


A200 


A 




ST 


AC0 , ( AC2) 


410 


C0D4 


4C0C 


A 


VI: 


LI 


AC0 ,X'C : 


411 


C0D5 


A200 


A 




ST 


AC0 , (AC2j 


412 


C0D6 


3031 


A 




RCPY 


AC0,AC0 


413 


C0D7 


4C08 


A 




LI 


AC0,8 


414 


C0D8 


A203 


A 




ST 


AC0, (AC2-) - 


415 


C0D9 


2D05 


A 




JSR 


3DEL10M 


416 


C0DA 


21ED 


A 




JMP 


02 



; AT TRACK DESIRED? 

; NO, STEP-IN OR STEP-QOT? 
; STEP-OOT > • 

; STEP-IN 



;STEPPING-O0T 



; SELECT PROPER DISK DRIVE 
? DRIVE 1 

; DRIVE 2, OUT DIRECTION? 
;YES 

; NO, REVERSE DIRECTION 



OUT DIRECTION? , ' 
YES ' :>o: 

NO, REVERSE DIRECTION- 



;SET TO STEP-OOT 

;SET STEP* LOW 
;80S DELAY 
; 4 OS DELAY 
?S£T STEP* HIGH 
; DELAY 10 MS 



; SELECT PROPER DISK DRIVE 
;DRIVE1 ''. 
;DRIVE2,00T DIRECTION? 
; NO, REVERSE DIRECTION. 



?O0T DIRECTION? 

; NO, REVERSE DIRECTION 

;SET TO STEP-IN 



SET STEP* LOW 
80S DELAY 
40S DELAY 
SET STEP* HIGH 
DELAY 10MS 



417 
418 
419 
420 
421 
422 
423 



.PAGE 

********************************* ******************************* 

CONSTANTS 

************************************************** ************** 
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424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 



C0D8 C1A3 
C0DC 0007 
C0DD AAA A 
C0DE 0100 
C0DF C24D 
C0E0 0267 
C0E1 0263 



A EXB: -WORD EX * ERROR EXIT ROUTINE POINTER 

A W7: .WORD 7 

A SCTS: '.WOTD 256 AAA ; SECTOR DATA WORD LENGTH 

A DEL10M: .WORD DELAY 

A W267: .WORD 0267 

A W268: .WORD 0268 

I READ/WRITE DECISION 

L************************************************^ 



C0E2 9BF7 
C0E3 8200 
C0E4 F1F7 
C0E5 213E 
C0E6 2102 



CALLING PARAMETERS 
READ/WRITE COMMAND 
READ OR WRITE? 
WRITE 



C0E7 C208 
C0E8 C1C0 



A p. LD AC2,@-9(AC3) 

A LD AC0,(AC2) 

A SKNE AC0,W7 

A JMP PI 

A JMP READ 

!***************************************************^ 

\ CONSTANTS 

:*****************************************************"^ 

A CRTS: .WORD RDSECT 
A CCRC: -WORD CRC 



452 

454 
455 
456 
•45*7 
458 
459 
460 
461 
462 
463 
-464 ' 
465 
466 
467 
468 
469 
470 
471 
1 47 2- 
473 
474 
475 
476 
477 
478 
479 
430 
481 
482 
483 
484 
485 
486 
487 
433 



READ TO SECTOR WANTED (USING SUBROUTINE CALL JSR 9CRTS) 
THEN READ DATA FROM DISK TO RAM AND CHECK THE CRC 
OF THE -RAM AGAINST THE CRC FROM THE DISK. 

r ********* ******************************** 



r *********************' 



C0E9 

C0EA 

C0EB 

C0EC 

C0ED 

C0EE 

C0EF 

C0F0 

C0F1. 

C0F2 

C0F3 

C0F4 

C0F5 

C0F6 

C0F7 

C0F8 

C0F9 

C0FA 

C0FB 

C0FC 

C0FD 

C0FE 

C0FF 

C100 

CI 01 

C102 

C103 

C104 



4600 

2DFC 

2101 

2102 

4C01 

25EC 

4D05 

4300 

9FF7 

3F02 

1EFF 

82FF 

49FF 

21 FC 

4C03 

A200 

4C01 

A200 

4D19 

1E09 

3200 

130A 

82FF 

49FF 

2 IE A 

4700 

4400 

4C01 



XI: 
X2: 



A READ: 
A 
A 
A 
A 
A 
A 
A 
A 
A 

A X3: 

A 

A 

A . . . 
A 
A 
A 

A .. . • 

A- ::■ . 

A 
A 
A 
A 
A 
A 
A 
A 
A 



RR1 



PULL 


AC 2 


JSR 


@CRTS 


JMP 


XI 


JMP 


X2 


LI 


AC0 ,MISYNC 


JMP 


@EXB 


LI 


AC1 ,5 


PUSH 


AC 3 


LD 


,AC3,9-§9<AC3) 


LD 


AC3,2(AC3) 


BOC 


NRDY r X3 


LD 


AC0,-UAC?) 


AISZ 


ACl f -l 


JMP 


X3 


LI 


AC0 ,0 


ST 


AC0 , (AC 2) 


LI 


AC0,1 


ST 


AC0 , (AC 2) 


LI 


AC1,25 


BOC 


NRDY r VVl 


LD 


AC0, (AC2) 


BOC 


3IT0 ,VV2 


LD 


AC0 r -l(AC2) 


AISZ 


AC1,-1 


JMP 


RRl 


PULL 


AC 3 


PULL 


AC0 


LI 


AC0 , MISYNC 



; STATUS ADDRESS 



; ERROR STATUS: MISSING SYNC 



; RESTORE MRAM 
; CLEAR STACK 

; ERROR STATUS: MISSING SYNC 
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489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

539 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 



C105 

C106 

C107 

C108 

C109 

C10A 

C10B 

C10C 

C10D 

C10E 

C10F 

C110 

Clll 

C112 

C113 

C114 

C115 

C116 

C117 

C118 

C119 

C11A 

CUB 

C11C 

CUD 

CUE 

C11F 

C120 

C121 



25D5 

8200 

1301 

21F3 

82FF 

85D3 

1EFF 

82FF 

A300 

4B01 

2100 

49FF 

21F9 

1EFF 

82FF 

4700 

4000 

4300 

9FF7 

8F02 

4200 

2DCD 

4600 

4700 

4500 

3482 

1177 

4C80 

2539 



VV1 



VV2 



W3 



W4 



VV5: 



JMP 

LD 

BOC 

JMP 

LD 

LD 

BOC 

LD 

ST 

AISZ 

JMP 

AISZ 

JMP 

BOC 

LD 

PULL 

PUSH 

PUSH 

LD 

LD 

PUSH 

J3R 

PULL 

PULL 

PULL 

RXOR 

BOC 

LI 

JMP 



@EXB 

AC0 , { AC2) 

BIT0,W2 

RR1 

AC0,-1(AC2) 

AC1,SCTS 

NRDY , W3 

AC0,-1(AC2) 

AC0, (AC3) 

AC3,1 

.+1 

AC1 ,-1 
W3 

NRDY,VV5 

AC0,-1(AC2) 

AC 3 

AC0 

AC 3 

AC3,8-9(AC3) 

AC3,2(AC3) 

AC 2 

3CCRC 

AC 2 

AC 3 

AC1 

AC1,AC0 
ZRO,NEXl 
AC0,-128 
@EXB 



; SECTOR DATA WORD LENGTH 

; STORE DISK DATA IN RAM 
; HIGH-SPEED NOP 



GET CRC 
GET MRAM 

GET CRC TO STACK 



; RAM BUFFER POINTER 
;SAVE STATUS ADDRESS 



; NORMAL EXIT ROUTINE- 

; ERROR STATUS: RD CRC ERROR 



********************************************************* 

CONSTANTS ' *• 

a***********************************************************-*?*** 



C122 
C123 



C233 A RD3A: 
C1C0 A CRCA: 



. WORD 
.WORD 



RDSECT 
CRC 



; RDSECT SUBROUTINE POINTER 
;CRC SUBROUTINE POINTER 



527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
533 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 



C124 
C125 
C126 
C127 
C123 
C129 
C12A 
C12B 
C12C 
C12D 
C12E 
C12F 



4300 
3E02 
2DFC 
4700 
4600 
4030 
2DF7 
2114 
4C00 
A2FF 
4C02 
A200 



.PAGE 

.**************************************************************** 

WRITE ROUTINE. COMPUTE THE CRC OF THE RAM TO BE 
WRITTEN TO THE DISK. READ TO THE SECTOR WANTED USING 
THE READ TO SECTOR, ROUTINE (BY JSR @RDSA) . WRITE.- : i? 
THE DATA IN THE RAM BUFFER ONTO THE DISK FOLLOWED :■? * 
BY THE CRC word.- ,:;:: 

**************************************************************** 



A PI: 

A 

A 

A 

A 

A 

A 

A 

A W2: 
A 
A 
A 



PUSH 


AC 3 


; MRAM ONTO STACK 


LD 


AC3,2(AC2) 


; RAM BUFFER ADDRESS ' ' r r 


JSR 


9CRCA '" 




PULL 


AC 3 


•MRAM 


PULL 


AC 2 


• STATUS ADDRESS 


PUSH 


AC0 


;CRC ONTO STACK 


JSR 


@RDSA * 




JMP 


wi ; 


; MISSING SYNC ERROR EXIT 


LI 


AC0 , 0 




ST 


AC0,-1(AC2) 




LI 


AC0 , 2 




ST 


AC0 , (AC 2) 


; TURN ON WRITE "ENABLE -( WRER)- - 
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550 


C130 


4500 


A 




PULL 


AC1 


;GETS CRC 


551 


CI 31 


4300 


A 




PUSH 


AC 3 




552 


C132 


4100 


A 




PUSH 


AC1 




553 


C133 


9PF7 


A 




LD 


AC3,@-9(AC3) 




554 


C134 


8F02 


A 




LD 


AC3,2(AC3) 


; RAM BUFFER ADDRESS 


555 


C135 


81A7 


A 




LD 


AC0,WA 


; PREAMBLE COUNTER 


556 


C136 


4D14 


A 




LI 


AC1,20 


557 


C137 


1E01 


A 


Yl: 


BOC 


WRJCY2 


;WAIT FOR WRJC TO GO HIGH 


558 


C138 


21FE 


A 




JMP 


Yl 


;WAIT FOR WRJC TO GO LOW 


559 


C139 


1EFF 


A 


Y2: 


BOC 


WRJCY2 


560 


C13A 


49FF 


A 




AISZ 


AC1,-1 




561 


C13B 


21FS 


A 




JMP 


Yl 


; PREAMBLE NOT FINISHED YET 


562 


C13C 


A2FF 


A 




ST 


AC0,-1(AC2) 


; WRITE SYNC CHARACTER 


563 


C13D 


85A0 


A 




LD 


AC1,SCTS 




564 


C13E 


1E04 


A 


AA1: 


BOC 


WRJC , AA2 




565 


C13F 


21FE 


A 




JMP 


AA1 




566 


C140 


4400 


A 


Wl: 


PULL 


AC0 


; CLEAR STACK 


567 


C141 


4C01 


A 




LI 


AC0,1 


? ERROR STATUS: MISSING SYNC 


568 


C142 


2160 


A 




JMP 


EX 


;JMP ERROR EXIT SUBROUTINE 


569 


C143 


1EFF 


A 


AA2: 


BOC 


WRJC ,AA2 




570 


C144 


8300 


A 




LD 


AC0, (AC3) 


;GET WORD FROM RAM BUFFER 


571 


C145 


A2FF 


A 




ST 


AC0,-1 (AC 2) 


;WRITE WORD TO DISK. 


572 


C146 


4B01 


A 




AISZ 


AC3,1 


? INCREMENT RAM POINTER 


573 


C147 


2100 


A 




JMP 


.+1 


;NOP 


574 


C148 


49FF 


A 


CC1: 


AISZ 


AC1,-1 




575 


C149 


21F4 


A 




JMP 


AA1 




576 


C14A 


4400 


A 




PULL 


AC0 


;GET CRC 


577 


C14B 


4000 


A 




PUSH 


AC0 




578 


C14C 


4D02 


A 




LI 


AC1,2 




579 


C14D 


1E01 


A 


DDI : 


BOC 


WRJCDD2 




530 


C14E 


21FE 


A 




JMP 


DDI 




581 


C14F 


1EFF 


A 


DD2: 


BOC 


WRJCDD2 




532 


C150 


A2FF 


A 




ST 


AC0,-1(AC2) 


; WRITE CRC 


583 


C151 


4C00 


A 




LI 


AC0 ,0 




584 


C152 


1E01 


A 


EE1: 


BOC 


WRJC , EE2 




585 


C153 


21FE 


A 




JMP 


EE1 




586 


C154 


1EFF 


A 


EE2: 


BOC 


WRJCEE2 




587 


C155 


A2FF 


A 




ST 


AC0 ,-1 (AC 2) 


; WRITE POSTAMBLE 


583 


C156 


49FF 


A 




AISZ 


AC1,-1 




539 


C157 


21 FA 


A 




JMP 


EE1 




590 


C158 


A230 


A 




ST 


AC0, (AC 2) 


; TURN OFF WREN 


591 


C159 


4700 


A 




PULL 


AC 3 


;AC3 GETS CRC 


592 


C15A 


5700 


A 




XCHRS 


AC 3 


;AC3 GETS MRAM 



593 
594 
595 
596 
597 
593 
599 
600 
601 
602 
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.**************************************************************** 

i 

• VERIFY THE WRITE OPERATION . READ TO THE SECTOR WANTED 

• USING THE JSR 9 RDS A . VERIFY THE DATA AND CRC WORD 

; FROM THE DISK AGAINST THE RAM BUFFER AND THE CRC WORD 

; PASSED FROM THE WRITE ROUTINE. 

[**************************************************************** 



603 C15B 


2DC6 


A 




JSR 


(3 RDS A 




604- C15C 


2105 


A 




JMP 


FF1 




605 C15D 


4D05 


A 


FF2: 


LI 


AC1 , 5 




606 C15E 


4330 


A 




PUSH 


AC 3 




607 C15F 


9FF7 


A 




LD 


AC3,@-9(AC3) 


; CALLING PARAMETER 


T5133' C160- 


3F02* 


A 




LD » 


AC3,2(AC3) 


; RAM BUFFER POINTER 


609 C161 


2103 


A 




JMP 


GG1 




610 C162 


440 0 


A 


FF1: 


PULL 


AC0 


; CLEAR STACK 
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ft! 1 

Oil 

612 


C16 3 
C164 


4C01 


A 




LI 


AC0 ,1 


; ERROR STATUS: MISSING SYNC 


213E 


A 




JMP 


EX 


;JMP ERROR EXIT SUBROUTINE 


0 x j 


n ft ^ 


1 FFF 

luC F 


A 


GG1 : 


BOC 


NRDY ,GG1 




ft 1 A 


p l ft ft 


a 9 ff 

o z c r 


A 




LD 


AC0 ,-1 (AC 2) 


; READ HARDWARE DATA LATCH : - 


ft! =i 


n ft 7 


49FF 


A 




AISZ 


AC1 ,-1 




ft 1 ft 
Olu 


w X v> o 


21FC 


A 




JMP 


GG1 




ft! 7 
OX; 


V» X O 7 


4C03 


A 




LI 


AC0,0 




bio 


p i ft a 


a 9 $ d 


a 

n 




ST 


AC0 , (AC2) 






pi ft q 

LIDS 


APd 1 


a 

rt 




LI 


AC0 ,1 




£ 1 -"i 

o ze 


P 1 C P 


A o a Oi 
AzM w 


A 

A 




cm 
O 1 


AC0 , ( AC2) 


;LOOK FOR SYNC CHARACTER.. 


6 21 


p 1 ft rv 


a m q 


a 




r t 

Li 1 


AC1 , 25 




ft 9 9 
o z z 


n ft f 


1 FCiR 


A 


HHl : 


BOC 


NRDY , KKl 




ft 9"} 


n fip 

v x u r 


8200 


A 




LD 


AC0, (AC2) 


; GET DISK STATUS 


ft O A 

b Z4 


pi 7fl 


IJH^ 


A 

t\ 




BOC 


BIT0 ,JJ1 


jTEST FOR RSYNC 


bo 


V»X / X 


a 9 FF 
o z r c 


rt 


T T • 

1 1 • 


T.n 


AC0 ,-1 (AC2) 




ft 9 ft 


CM? 

\~ X / z 


49 PP 


A 




AISZ 


AC1 ,-1 




ft 97 




21 FA 


A 




JMP 


HHl 




o z o 


p i 7 a 


A 7 d 01 


A 
t\ 




PULL 


AC 3 


; RESTORE MRAM 


ft 9 3 


n 7 s 
vi / j 




A 




PULL 


AC0 


; CLEAR STACK 


ft "3 ;;i 


pi 7ft 
v-x / o 


4Pi?i 1 

t) 1 


A 




LI 


AC0 ,MISYNC 


; ERROR STATUS: MISSING SYNC, 


Ojl 


n 77 

V-X / / 


91 9R 
zx zo 


A 




JMP 


EX 


; ERROR EXIT ROUTINE 


ft ^ 9 


C178 


0001 


A 


WVl : 


. WORD 


1 




ft a 
D j J 


n 7Q 

^■X / J 


00 40 


A 


VCER : 


. WORD 


X ' 40 


• ■• 


ri ^4 


C17A 


8200 


A 


KKl : 


LD 


AC0 , (AC 2) 


;G£T DISK STATUS ■■ ;• " 


A "3 CL 
033 


pi 7 r 

v-l / D 


1 dl 

1 Jul 


A 




BOC 


BIT0 , JJ1 


; TEST FOR SYNC CHARACTER 


ft 1 ft 
0 J 0 


n 7r 

v-X / V- 


9 1 Fl 
z x r x 


A 




JMP 


HHl 




637 


C17D 


82FF 


A 


JJ1 : 


LD 


AC0 ,-1 (AC 2) 




633 


C17E 


9517 


A 




LD 


AC1 ,@PCTS 


;AC1 USED AS A COUNTER . .*• , 


639 


C17F 


1EFF 


A 


JJ2 : 


BOC 


NRDY,JJ2 




6 4H 

y •* iu 


C180 


3 2FF 


A 




LD 


AC0 ,-1 (AC 2) 


• GET DATA WORD FROM DISK 


641 

V ** X 


C181 


F300 


A 




SKNE 


AC0 , (AC3) 


; COMPARE TST WRD & .BUF W;RD ) 


ft A 9 
O *i Z 


n a 9 


Z X £1 ** 


A 




JMP 


MM 2 




ft A 7 
0 *i J 


pi a "3 




A 


MM1 : 


PULL 


AC 3 


; CLEAR STACK 


O *T ■* 


C184 


4400 


A 




PULL 


AC0 




0 4 J 


1103 


A P 4 1/1 






Lt 1 


AC 0 . X ' 4 0 

."V, XJ f z\ 11/ 


; ERROR STATUS: VERIFY ERROR 


ft /I ft 

o 't o 


p i a ft 

11S3 


9 1 1 P 
Z 1 X 


A 
n 






EX 


;JMP ERROR EXIT SUBROUTINE . 




PI Ql 

\»XO / 




A 

A 


rUI Z . 


a nn 


rtV— J f «T V i 




ft j a 


n as 

1133 


A Q FF 


A 




AISZ 


AC1 ,-1 




ft AQ 
0 ** V 


tlo J 


91 FS 
iir J 


A 




JMP 


JJ2 




ft c , 'A 

Q J U 


n a a 

Viun 


"! FFF 


A 


NNl : 


BOC 


NRDY ,NN1 




ft ^ 1 
O J X 


n a r 

*w X O D 


a 9 FF 


A 




LD 


AC0 ,-1 ( AC2) 




ft c; o 
D J / 


PI S3P 


A 7 d 7i 


A 




PUT T 


AC 3 


;GET MRAM INTO AC3 


653 


C 1 8 D 


4500 


A 




°ULL 


AC1 


; GET CRC WORD 


654 


C13E 


3432 


A 




RXOR 


AC1 ,AC0 




655 


C18F 


1107 


A 




BOC 


ZR0,NEX1 


; NORMAL EXIT ROUTINE BRANCH 


656 


C190 


31E8 


A 




LD 


AC0 , VCER 




657 


C191 


2111 


A 




JMP 


EX 


;JMP ERROR EXIT SUBROUTINE 


653 


C192 


7D02 


A 


WD: 


. WORD 


X'7D02 • 




659 


C193 


C066 


A 


WD1: 


.WORD 


Ell '• 




660 


C194 


030A 


A 


WD10 : 


. WORD 


10 




661 


C195 


000E 


A 


WD14: 


. WORD 


14 




662 


C196 


C0DE 


A 


PCTS : 


. WORD 


SCTS 


; POINTS TO SECTOR SIZE WORD 



.page r - ' ■■ >; 

.************************************************** * ,* * * * * 

• NORMAL EXIT ROUTINE 

1**********************************************^ *,* * * * *-* *^ * * 

NEX1: LI AC1 , 3 ; NORMAL EXIT ROUTINE- . 
ST AC1,@WD ; UNLOAD HEAD 



663 
564 
665 
666 
667 
668 
669 

670 C197 4D00 A 

671 C198 35F9 A 



DISKI016 



62 C199 I 

673 C19A 

674 C19B 

675 C19C 

676 C19D 

677 C19E 

678 C19F 

679 C1A0 
680 

681 



I7E6 A 
9BF7 A 
4C04 A 
5D08 A 
3400 A 
A203 A 
2939 A 
0202 A 



LD AC1,-X'1A(AC3) ; ERROR COUNTER 

LD AC2,8-9(AC3) 

LI AC0,4 ;PASS STATUS 

SHL AC1,8 

RADD AC1,AC0 

ST AC0,3(AC2) 

JSR RESTR 

RTS 2 



; STORE STATUS 
; RESTORE SUBROUTINE CALL 
; NORMAL RETURN TO CALLING 
; PROGRAM , DISK OPERATION 
; COMPLETE. 



682 

683 

684 

685. 

686 

687 

638 

639 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 
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**************************************************************** 

CONSTANTS 

**************************************************************** 

C1A1 7D06 A ASTATA: .WORD X'7D06 
C1A2 C238 A PTEPIN: .WORD STEPIN 

**************************************************************** 

ERROR EXIT ROUTINE 
**************************************************************** 



C1A3 


87E6 


A 


EX: 


LD 


AC1,-X'1A(AC3) 


; ERROR COUNTER 


C1A4 


F5EF 


A 




SKNE 


AC1 ,WD10 




C1A5 


210 A 


A 




JMP 


EXC 




C1A6 


E5EE 


A 




SKG 


AC1,WD14 




C1A7 


2113 


A 




JMP 


EXD1 




C1A8 


5D03 


A 




SHL 


AC1,8 




C1A9 


3400 


A 




RADD 


AC1 r AC0 




C1AA 


9BF7 


A 




LD 


AC2,@-9(AC3) 




C1AB 


A233 


A 




ST 


AC0 , 3 ( AC2 ) 


; STORE STATUS 


C1AC 


4C00 


A 




LI 


AC0 , 0 




C1AD 


B1E4 


A 




ST 


AC0 , 8 WD 




C1AE 


292A 


A 




JSR 


RESTR 


; RESTORE SUBROUTINE CALL 


C1AF 


0201 


A 




RTS 


1 


; ERROR RETURN TO CALLING 
; PROGRAM, DISK OPERATION 
; COMPLETE. 


C1B0 


33FC 


A 


EXC: 


LD 


AC0 r -4 (AC3) 


; DIRECTION REGISTER 


C1B1 


F9EF 


A 




SKNE 


AC 2, ASTATA 




C1B2 


2104 


A 




JMP 


EXC3 


;DRIVE1 


C1B3 


1405 


A 




30C 


BIT1 ,EXC2 


;DRIVE2, IN OR OUT? 


C1B4 


2DED 


A 


EXC1 : 


JSR 


a PTEPIN 


;IN 


C1B5 


293B 


A 




JSR 


STPOUT 




C1B6 


2104 


A 




JMP 


EXD1 




C1B7 


1301 


A 


EXC3: 


BOC 


BIT0 ,EXC2 


; LAST DIRECTION: IN OR OUT? 


C1B8 


21 FB 


A 




JMP 


EXC1 


;IN 


C1B9 


2937 


A 


EXC2: 


JSR 


STPOUT 


; STEP-OUT SUBROUTINE CALL 


C1BA 


297D 


A 




JSR 


STEPIN 


; STEP-IN SUBROUTINE CALL 


C1B3 


7BE6 


A 


EXD1 : 


ISZ 


-X'1A(AC3) 


; INCREMENT ERROR COUNTER 


C1BC 


2100 


A 




JMP 


.+1 


; HIGH-SPEED NOP 


C1BD 


25D5 


A 


EXD2: 


JMP 


@WD1 





727 
728 
729 
730 
731 
732 



.PAGE 

**************************************************************** 

CRC CALCULATION SUBROUTINE 
**************************************************************** 
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713 














;X**15 


734 


C1BE 


1021 


A 


POLY: 


. WORD 


X'1021 


735 


C1BF 


C0DE 


A 


SCTSA: 


. WORD 


SCTS 


;SCTS 


7^6 
















737 


C1C0 


0A80 


A 


CRC : 


PFLG 


SEL 




733 


C1C1 


4CFF 


A 




LI 


AC0 ,-1 




739 


C1C2 


99 FC 


A 




LD 


AC2,@SCTSA 




740 


C1C3 


4300 


A 


CRC3 : 


PUSH 


AC 3 




741 


C1C4 


4200 


A 




PUSH 


AC 2 


- 


742 


C1C5 


3700 


A 




LD 


AC1 , ( AC3) 


;CRC4 


743 


C1C6 


4F10 


A 




LI 


AC3,16 




744 


C1C7 


39F6 


A 




LD 


AC 2, POLY 




745 


C1C8 


3000 


A 


CRC5 : 


RADD 


AC0 , AC0 




746 


C1C9 


1A03 


A 




BOC 


CYOV,CRCll 


;CRC6 


747 


C1CA 


3500 


A 




RADD 


AC1 , AC1 


;CRC7 


748 


C1CB 


1A03 


A 




BOC 


CYOV,CRC9 


;CRC8 


7 49 


cicc 


2103 


A 




JMP 


CRC10 




750 


C1CD 


3500 


A 


CRC11 : 


RADD 


AC1 ,AC1 




751 


C1CE 


1A01 


A 




BOC 


CYOV,CRC10 


?CRC12 


752 


C1CF 


3832 


A 


CRC9 : 


RXOR 


AC2 , AC0 




753 


C1D0 


4BFF 


A 


CRC10: 


AISZ 


AC3,-1 




754 


C1D1 


21F6 


A 




JMP 


CRC 5 




755 


C1D2 


4603 


A 




PULL 


AC 2 


TCRC13 


756 


C1D3 


4700 


A 




PULL 


AC 3 




757 


C1D4 


4B01 


A 




AISZ 


AC3,1 




758 


C1D5 


2100 


A 




JMP 


.+1 


; HIGH- 


759 


C1D6 


4AFF 


A 




AISZ 


AC2,-1 


;CRC15 


760 


C1D7 


21E3 


A 




JMP 


CRC3 




761 


C1D8 


0200 


A 




RTS 


0 





762 
763 
764 
765 
766 
767 
763 
769 
770 
771 
772 
773 
774 
775 
776 
777 
773 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 



. PAGE . . 

**************************************************************** 

RESTORE SUBROUTINE . RESTORE REGISTERS, STACK, FLAGS 
AND IEN STATUS. 

*************************************************************** 



C1D9 
C1DA 
C1D3 
C1DC 
C1DD 
C1DE 
C1DF 
C1E0 
C1E1 
C1E2 
C1E3 
C1E4 
C1E5 
C1E6 
C1S7 
C1E3 
C1E9 
C1EA 
C1E3 
C1EC 
C1ED 
C1EE 



4600 


A 


RESTR: 


PULL 


AC 2 




4D10 


A 




LI 


AC1 ,16 


; RESTORE THE STACK 


43E8 


A 




AISZ 


AC 3 ,-24 




2100 


A 




JMP 


.+1 


;H.S. NOP 


3300 


A 


RES1: 


LD 


AC0, (AC3) 




4000 


A 




PUSH 


AC0 




4B01 


A 




AISZ 


AC3,1 




2100 


A 




JMP 


.+1 


;H.S. NOP 


49FF 


A 


RES2: 


AISZ 


AC1,-1 




21 FA 


A 




JMP 


RES1 




83ED 


A 




LD 


AC0 ,-X'l3 (AC3) 




4000 


A 




PUSH 


AC0 




0230 


A 




PULLF 






4C01 


A 




LI 


AC0,1 




73EF 


A 




SKAZ 


AC0 ,-X'll (AC3) 


; RESTORE IEN 


0900 


A 




SFLG 


IEN 




4200 


A 


RES3: 


PUSH 


AC 2 




3303 


A 




LD 


AC0,3(AC3) 


; RESTORE REGISTERS 


3702 


A 




LD 


AC1,2{AC3) 




3B01 


A 




LD 


AC2,1(AC3) 




3F00 


A 




LD 


AC3, (AC3) 




0200 


A 




RTS 


0 


; NORMAL EXIT POINT 



792 
793 



.PAGE 

.***************************************************************' 

f 
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794 
795 
796 
797 
798 



STEP OUT ONE TRACK SU3ROUTINE. 
************************************************************+ 



799 


C1EF 


7D06 


A 


ASTATo : 


. WORD 


A / Utl 0 




800 


C1F0 


C24D 


A 


DEL10 : 


. WUKJJ 


Utbnl 




301 
















802 


CI Fl 


4C00 


A 


STrUU 1 : 


Li 


H\_ el / o 




303 


CI F2 


A T Oi CA 


A 




con 




• qprp DIRECTION TO OUT 


804 


C1F3 


A f IX A 


A 




Li 


aria a 




805 


C1F4 


A200 


A 




ST 


AC 10 , V Av_ <t ; 




806 


C1F5 


3081 


A 




NUP 




! QUO UCiLinl 


807 


C1F6 


4C00 


A 




LI 


At- U t 10 




808 


C1F7 


A200 


A 




ST 


A l" (31 / & Ci \ 


. pmh np ctpd DriT <?p 


809 


C1F8 


2DF7 


A 




JSR 


tSUbLlw 


?UEjLAX lUiTIO 


810 


C1F9 


33FC 


A 




LD 


AC0 ,-4 ( AL j ) 


Jublb UlKtiV^llUlN KEiialoiCiK 


811 


CI FA 


F9F4 


A 




C 1/ \7 1 1 


At, Z , Aa 1 A i □ 




812 


C1FB 


2106 


A 




JHP 


S0A4 


;DRIVE1 


813 


C1FC 


1401 


A 




BOC 


BIT1,S0A2 




814 


C1FD 


2109 


A 




JMP 


S0A3 




815 


C1FE 


48FE 


A 


S0A2: 


AISZ 


AC0 ,-2 




816 


C1FF 


2100 


A 




JMP 


.+1 


;H.S. NOP 


817 


C200 


A3FC 


A 




ST 


AC0 ,-4 (AC 3) 




818 


C201 


2105 


A 




JMP 


S0A3 




819 


C202 


1301 


A. 


S0A4: 


BOC 


BIT0 ,S0A1 




820 


C203 


210 3 


A 




JMP 


S0A3 




821 


C204 


48FF 


A 


S0A1: 


AISZ 


AC0,-1 




322 


C205 


2100 


A 




JMP 


.+1 


;H.S. NOP 


823 


C206 


83FC 


A 




LD 


AC0 f -4 (AC3) 




824 


C207 


0200 


A 


S0A3: 


RTS 


0 


FORMAL EXIT POINT 



825 
326 
827 
828 
329 
830 
331 
832 
333 
834 
335 
836 
837 
338 
339 
840 
841 
842 
843 
344 
845 
846 
847 
348 
849 
350 
351 
852 
853 
854 
355 
856 
857 
858 



.PAGE 

**************************************************************** 

READ TO SECTOR SUBROUTINE 
**************************************************************** 



C203 4300 A RDSECT: 

C209 9FF7 A 

C20A 3704 A 

C203 3200 A SRI: 

C20C 5CFE A 

C20D 13FD A 

C20E 8200 A SR2: 

C20F 5CFE A 

C210 1303 A 

C211 21FC A 

C212 0007 A ANMSK: 
C213 0102 A SSZ: 

C214 65FD A SR9: 
C215 4900 A 
C216 2102 A 
C217 4700 A 
C218 0201 A 



C219 4C05 
C21A 1EFF 
C213 8EFF 
C21C 48FF 
C21D 21FC 
C21E A200 
C21F 4C01 



SR3: 
SR4: 



PUSH 

LD 

LD 

LD 

SHR 

BOC 

LD 

SHR 

30C 

JMP 

. WORD 
.WORD 

AND 

AISZ 

JMP 

PULL 

RTS 

LI 

BOC 

LD 

AISZ 
JMP 
ST 
LI 



AC 3 

AC3,@-9 (AC 3) 
AC1 , 4 ( AC3) 
AC0 , (AC 2) 
AC0 , 2 
BIT0 ,SR1 
AC0 , (AC 2) 
AC0 ,2 
BIT0 ,SR9 
SR2 

7 

258 

AC1 , ANMSK 

AC1,0 

SR3 

AC 3 

1 

AC0,5 
NRDY,SR4 
AC 3 ,-1 (AC 2) 
AC0 ,-1 
SR4 

AC0 , (AC 2) 
AC0 ,1 



;SAVE MRAM 

; SECTOR WANTED 
;GETS STATUS 

; INDEX MARK? 
INDEX MARK FOUND 



; MASK OUT TRACK PORTION 

; SECTOR 0 WANTED, GET MRAM 
; NORMAL EXIT POINT 

; COUNT 1/2WAY INTO PREAMBLE 

; RESET NRDY 
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859 


C220 


A200 


A 




860 


C221 


4F19 


A 




861 


C222 


3200 


A 


SR5: 


862 


C223 


1309 


A 




363 


C224 


1EFD 


A 




864 


C225 


82FF 


A 




865 


C226 


4BFF 


A 




866 


C227 


2100 


A 




367 


C228 


4900 


A 




868 


C229 


21F8 


A 




869 


C22A 


4700 


A 




870 


C226 


4C01 


A 




871 


C22C 


0200 


A 




872 


C22D 


82FF 


A 


SR6 : 


873 


C22E 


8DE4 


A 




874 


C22F 


1EFF 


A 


SR7: 


875 


C230 


3 2FF 


-A 




876 


C231 


4BFF 


A 




877 


C232 


21FC 


A 




878 


C233 


49FF 


A 


SR8: 


379 


C234 


21E4 


A 




880 


C235 


4700 


A 




831 


C236 


0201 


A 





ST AC0,(AC2) 

LI AC3,25 

LD AC0,(AC2) 

BOC BIT0,SR6 

30C NRDY , SR5 

LD AC0,-1(AC2) 

AISZ AC3,-1 

JMP .+1 

AISZ AC1,0 

JMP SR5 

PULL AC 3 

LI AC0,MISYNC 

RTS 0 

LD AC0,-1(AC2) 

LD AC3,SSZ 

BOC NRDY , SR7 

LD AC0,-1(AC2) 

AISZ AC3^-1 

JMP SR7 

AISZ AC1,-1 

JMP SR3 

PULL AC 3 

RTS 1 



;RSYNC? 



? NOP 



; ERROR EXIT POINT 



; NORMAL EXIT POINT 



882 












• PAGE 






833 










**************************************************************** 


884 


















885 












STEP 


IN ONE TRACK 


SUBROUTINE 


836 


















887 










************************************************************ *^*** 


883 


















839 


C237 


7D06 


A 


ASTATC: 


. WORD 


X'7D06 




39w 


















891 


C238 


4C03 


A 


STEP IN: 


LI 


AC0,8 




892 


C239 


A200 


A 






ST 


AC0 , (AC 2) 


;SET DIRECTION TO IN 


393 


C23A 


4C0C 


A 






LI 


AC0,X'C 




394 


C23B 


A200 


A 






ST 


ACS , (AC 2) 


; START OF STEP PULSE 


895 


C23C 


3031 


A 






NOP 




;3US DELAY 


896 


C23D 


4C0 3 


A 






LI 


AC0 f 8 




397 


C23E 


A200 


A 






ST 


AC0 , (AC 2) 


; END OF STEP PULSE 


893 


C23F 


290D 


A 






JSR 


DELAY 




a n q 

O ~3 V 




a "~5 m/-< 
o J r v. 


A 






LD 


AC 0 , — 4 ( AC 3 ) 




90 0 


C241 


F9F5 


A 






5KNS 


AC 2, ASTATC 




901 


C242 


2105 


A 






JMP 


SIA2 




902 


C243 


1403 


A 






BOC 


3IT1 ,SIA1 




903 


C244 


4802 


A 






AISZ 


AC0,2 




904 


C245 


2100 


A 






JMP 


.+1 


;NOP 


905 


C246 


A3FC 


A 






ST 


AC0,-4 (AC3) 


906 


C247 


0200 


A 


SIA1: 


RTS 


0 


; NORMAL EXIT POINT 


907 


C248 


13FE 


A 


SIA2: 


BOC 


3IT0 , SIA1 


903 


C249 


4801 


A 






AISZ 


AC0 f 1 




909 


C24A 


2100 


A 






JMP 


. + 1 


; NOP " J . • 


910 


C24B 


A3 FC 


A 






ST 


AC0,-4 (AC3) 




911 


C24C 


21 FA 


A 






JMP 


SIA1 





912 
913 
914 
915 



. PAGE 

**************************************************************** 

10MS DELAY SUBROUTINE 
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916 
917 
918 

919 C24D 4100 A 

920 C24E 4D0A A 

921 C24F 5980 A 

922 C250 5980 A 

923 C251 49FF A 

924 C252 21FC A 

925 C253 4500 A 

926 C254 0200 A 



********* 



DELAY: 



DELAY2 



******************************************************* 



SAVE AC1 
PASS COUNTER 
500US DELAY 
500US DELAY 



PUSH 


AC1 


LI 


AClrl0 


ROL 


AC1,128 


ROL 


AC1,128 


AISZ 


AC1,-1 


JMP 


DELAY 2 


PULL 


AC1 


RTS 


0 



; RESTORE AC1 



927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 



971 
972 
973 
974 
975 
976 



.PAGE 'BAD SECTOR PROCESSOR ' 
*********2S******************************************** ************** 

CONVERT LOGICAL SECTOR NUMBER TO A PHYSICAL ONE 
********************************************************************* 



C255 2D1F 
C256 A3FB 
C257 A7FA 
C253 ABF9 



A DISK2: 
A 
A 
A 

C259 4600 A 
C25A 4200 A 
C253 8A00 A 
C25C 8601 A 
C25D 3E81 A 
C25E D915 A 
C25F 8200 A 



C260 1109 
C261 4A01 
C262 48FF 
C263 3081 
C264 E600 
C265 F600 
C266 2101 
C267 2102 
C263 4901 
C269 21F6 

C26A 4600 

C263 4200 

C26C 8A00 

C26D A604 

C26E 83FB 

C26F 87FA 

C270 8BF9 

C271 3FF8 

C272 2500 

C273 C00A 



$LOOP: 



$ END : 



C274 009F A H09F: 
C275 C00C A TP RAM : 



JSR 


@TPRAM 


;FIND TOP Ut KAM 


ST 


AC0 ,-5 ( AC3) 




ST 


AC1 ,-6 (AC3) 




ST 


AC2,-7 (AC3) 




PULL 


AC 2 


; PARAMETER LIST ADDR 


PUSH 


AC 2 




LD 


AC2 , (AC2) 




LD 


AC1 , 1 ( AC2) 


; LOGICAL SECTOR NUMBER 


RCPY 


AC 3 ,AC2 




SUB 


AC2,H09F 


; BAD SECTOR TABLE ADDR 


LD 


AC0, (AC 2) 


; NUMBER OF ENTRIES 


BOC 


ZRO,$END 




AISZ 


AC2,1 




AISZ 


AC0 ,-1 




NOP 






SKG 


AC1 , (AC 2) 


; COMPARE 


SKNE 


AC 1 , ( AC 2 ) 


;MUST ACCOUNT FOR EQUAL 


JMP 


. + 2 




JMP 


$END 


; DONE 


AISZ 


AC1,1 


; CHECK NEXT SECTOR 


JMP 


$LOOP 




PULL 


AC 2 


; FIND PARAM LIST 


PUSH 


AC 2 




LD 


AC 2 , (AC 2) 




ST 


AC1,4(AC2) 


; SAVE PHYSICAL SECTOR 


LD 


AC0 ,-5 (AC 3) 




LD 


ACl,-6 (AC3) 




LD 


AC2,-7(AC3) 




LD 


AC3,-8(AC3) 




JMP 


@.+l 


;G0 TO PHYSICAL DISKIO NOW 


. WORD 


POISK 




. WORD 


09F 




. WORD 


TRAM 




. PAGE 







************************* 



******************************************** 



FIND TOP OF RAM SUBROUTINE 
********************************************************************* 
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977 
















978 


C276 


4300 


A 


TO PRAM: 


PUSH 


AC 3 


;SAVE AC 3 


979 


C277 


8D10 


A 




LD 


AC3 , H28K 


; START AT 28 K 


980 


C278 


A3 FB 


A 


$CHK: 


ST 


AC0 ,-5 (AC3) 




981 


C279 


F3FB 


A 




SKNE 


AC0 ,-5 ( AC3) 




982 


C27A 


2102 


A 




JMP 


$COMP 


; PASSED PART 1 


933 
















984 


C27B 


DD0D 


A 


?NEXT: 


SUB 


AC3 ,H4K 


; TRY DOWN 4K 


985 

986 


C27C 


21FB 


A 




JMP 


$CHX 




987 


C27D 


5000 


A 


$COMP: 


CAI 


AC0 ,0 


; COMPLEMENT AND TRY 


988 


C27E 


A3FB 


A 




ST 


AC0 ,-5 (AC3) 


;TO BE SURE 


989 


C27F 


F3FB 


A 




SKNE 


AC0 ,-5 { AC3) 




990 


C280 


2102 


A 




JMP 


$OK 


•SUCCESS 


991 


C281 


5000 


A 




CAI 


AC0,0 




992 


C282 


21F8 


A 




JMP 


$NEXT 


?TRY AGAIN 


993 
















994 


C283 


5000 


A 


$OK: 


CAI 


AC0,0 


; RESTORE AC0 


995 


C284 


5400 


A 




XCHRS 


AC0 




996 


C285 


A3F8 


A 




ST 


AC0,-8(AC3) 


;SAVE AC 3 IN RAM 


997 


C286 


4400 


A 




PULL 


AC0 




998 


C287 


0200 


A 




RTS 






999 
















1000 


C288 


6 FFF 


A 


H28K: 


• WORD 


X'6FFF 




1001 


C239 


1000 


A 


H4K: 


. WORD 


X'1000 





1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 



. PAGE ' TTY/CRT INPUT-OUTPUT ROUTINES' 
. LOCAL 

***************************************************** 

TELETYPE/CRT TERMINAL INPUT/OUTPUT ROUTINES 

********************************************************************* 

RAM ADDRESS ASSIGNMENTS 

FFFB A SAV0 = -5 

FFFA A SAV1 = -6 

FFF9 A SAV2 = -7 

FFF8 A SAV3 = -3 

FFE4 A BAUD = -01C 

FFS3 A BCNT = -01D 

EXPRESSIONS FOR THE PERIPHERAL I/O 



0033 


A 


TTYAD 




7*8 


0002 


A 


$READ 




2 


0003 


A 


SEND 




3 


0004 


A 


RDREN 




4 


0005 


A 


$ RE SET 




5 



1025 










. PAGE 






1026 
















1027 










THIS 


GET CHARACTER ROUTINE 


IS USED AT ALL BAUD 


1023 
















1029 


C28A 


2953 


A 


GETC: 


J5R 


SAVE 




1030 


C28B 


4D08 


A 




LI 


AC1,8 ; 


INITIALIZE BIT COUNT 


1031 


C23C 


A6E3 


A 




ST 


AC1,BCNT(AC2) 




1032 


C28D 


4200 


A 




PUSH 


AC 2 ; 


SAVE MAX RAM ADDRESS 


1033 


C28E 


0605 


A 


GETC2: 


ROUT 


$RESET 




1034 


C28F 


0604 


A 




ROUT 


RDREN ; 


ENABLE READER 


1035 


C293 


0402 


A 




RIN 


$READ 




1036 


C291 


1201 


A 




BOC 


POS,.+2 


TEST FOR START BIT 


1037 


C292 


21FD 


A 




JMP 


.-2 
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1(338 


C293 


8AE4 


A 


T.n 


AC 2 , BAUD (AC2) 




1039 


f "i Q A 

LZj 4 


c y / Ci 


A 
rt 


ADD 


AC 2 ,DELADD 




1040 


c/y b 




A 
rt 


JSR 


§ (AC 2) 




1 fA A 1 

1041 


r* o q c 


10 4 13 Z 


A 
f\ 


RIN 


$READ 




1 tA A O 

104/ 




i o a i 


A 


BOC 


POS ,LP1 




1 iA A "3 

x U 4 -j 




iir j 




JMP 


GETC2 




1044 


C299 


zLkJ 1 






3 1 ( AC 2 ) 




1 iA A C 


A 


'7t A (A 0 
|3 4 10 Z 


A 

rt 


RIN 


$READ 




1046 


L/y d 


0± / B 


A 
rt 


AND 


AC0 ,MASK 




T ft A "7 

1047 




DUr r 


A 
A 


SHR 


AC1 ,1 




i n a o 
lU4o 


Lzyu 


J J. O Z 


A 
rt 


RXOR 


AC0 ,AC1 




1049 


C29E 


dd Id a 


A 




AC 2 




1050 


C29 F 


/ tiLi 


A 

A 




BCNT (AC 2) 




1051 


C2A0 


.5 10 0 1 


A 

A 




AC0 r BCNT { AC2) 




1 A ^ 0 
1 B 0 C 


\— £ r\ J. 


R2E3 




LD 


* 


1053 


C2A2 


5600 


A 


XCHRS 


AC 2 




1054 


C2A3 


4800 


A 


AISZ 


AC0 ,0 




1055 


C2A4 


21 F4 


A 


JMP 


LPl 




1056 






> 




11 (AC 2) 




1057 


C2A5 


2E01 


A 


JSR 


* 


1053 


C2A6 


4600 


A 


PULL 


AC 2 




1059 


C2A7 


211F 


A 


JMP 


GEC2 





GET BAUD RATE SELECTION 
DELAY VECTOR BASE" ADDRESS 
HALF-BIT DELAY 

TEST IF START BIT STILL THERE 
START IF GOOD START BIT 

FULL-BIT DELAY 

MASK UNWANTED BITS 

ADD NEW BIT TO DATA 
GET MAXRAM 

DECREMENT AND TEST BIT COUNT 



FULL-BIT DELAY 



1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1083 
.1039 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 



.PAGE 



THIS GET AND ECHO CHARACTER ROUTINE IS ONLY USED AT 110 BAUD 
BECAUSE OF THE CRITICAL TIMING AT THE OTHER BAUD RATES. AT THE 
THE HIGHER BAUD RATES , THE GET AND ECHO CHARACTER IS ACHIEVED 
BY GETTING THE CHARACTER WITH THE GETC ROUTINE FOLLOWED 3Y THE 











PUTC 


ROUTINE. 




C2A8 


293D 


A 


GECO: 


JSR 


SAVE 


; TEST BAUD SELECT 


C2A9 


32E4 


A 




LD 


AC0 , BAUD ( AC2 ) 


C2AA 


1103 


A 




BOC 


ZRO,GEC 


; TTY 


C2A3 


29DF 


A 




JSR 


GETC+1 


; CRT 


C2AC 


2500 


A 




JMP 


@. + l 




C2AD 


C31A 


A 




.WORD 


PUTC 




C2AE 


4D08 


A 


GEC: 


LI 


AC1 ,8 


? INITIALIZE BIT COUNT 


C2AF 


A6E3 


A 




ST 


AC1 ,BCNT(AC2) 




C2B0 


4D00 


A 




LI 


AC1,0 




C2B1 


0605 


A 




ROUT 


$RESET 




C232 


0604 


A 


GEC1: 


ROUT 


RDREN 


• ENABLE READER 


C233 


0402 


A 




RIN 


$READ 




C234 


1201 


A 




30C 


POS, .+2 


; TEST FOR START BIT 


C2B5 


21 FD 


A 




JMP 


.-2 


; HALF-BIT DELAY 


C236 


2D5D 


A 




JSR 


3TDELAY 


C237 


0402 


A 




RIN 


$ READ 


; TEST IF START BIT STILL 


C238 


1201 


A 




BOC 


POS , .+2 


; START IF GOOD START BIT 


C239 


21F3 


A 




JMP 


GEC1 




C2BA 


0603 


A 


LP3: 


ROUT 


SEND 


; ECHO 3IT 


C28B 


2D59 


A 




JSR 


gTDELAY+1 


; FULL-BIT DELAY 


C2BC 


0402 


A 




RIN 


$READ 




C23D 


614E 


A 




AND 


AC0 f MASK 


; MASK UNWANTED BIT 


C2BE 


5DFF 


A 




SHR 


AC1 ,1 


; ADD NEW BIT TO DATA 


C23F 


3182 


A 




RXOR 


AC0 ,AC1 


C2C0 


7ES3 


A 




DSZ 


BCNT (AC 2) 


; DECREMENT BIT COUNT 


C2C1 


21 F8 


A 




JMP 


LP3 ' 




C2C2 


06 03 


A 




ROUT 


SEND 


; ECHO LAST BIT 


C2C3 


2D51 


A 




JSR 


@TDELAY+1 


; FULL-BIT DELAY 


C2C4 


4CFF 


A 




LI 


AC0 ,-1 




C2C5 


0603 


A 




ROUT 


SEND 


; SEND STOP BIT 


C2C6 


2D4E 


A 




JSR 


3TDELAY+1 


; FULL-BIT DELAY 


C2C7 


5DF8 


A 


GEC 2: 


SHR 


AC1,8 




C2C8 


3481 


A 




RCPY 


AC1 ,AC0 




C2C9 


0605 


A 




ROUT 


3RESET 
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1103 * 

1104 C2CA 3EF8 A RETURN: LD AC3 , SAV3 (AC2) ; RESTORE THE REGISTERS 

1105 C2CB 36FA A LD AC1 , SAV1 ( AC2) 

1106 C2CC 8AF9 A . LD AC 2 , SAV2 (AC 2) 

1107 C2CD 0200 A RTS 



1103 










.PAGE 








1109 


















1110 










DELAY ROUTINES FOR 


TTY, 


300, AND 1200 BAUD OPERATION 


1111 


















1112 


C2CE 


4C09 


A HDELT: 


LI 


AC0,9 




; HALF-BIT TIME 


1113 


C2CF 


2101 


A 




JMP 


. + 2 






1114 


C2D0 


4C12 


A DELYT: 


LI 


.AC0 ,18 




; FULL-BIT TIME 


1115 


C2D1 


5870 


A 




ROL 


AC0,112 






1116 


C2D2 


48FF 


A 




AISZ 


AC0 ,-i 






1117 


C2D3 


21 FD 


A 




JMP 


.-2 






1118 


C2D4 


5CD8 


A 




SHR 


AC0,40 






1119 


C2D5 


0200 


A 




RTS 








1120 


















1121 










... 300 


3AUD DELAY 






1122 


















1123 


C2D6 


4C04 


A HDEL3: 


LI 


AC0,4 




; HALF-BIT TIME 


1124 


C2D7 


2101 


A 




JMP 


. + 2 






1125 


C2D3 


4C09 


A DELY3: 


LI 


AC0 ,9 




; FULL-BIT TIME 


1126 


C2D9 


5850 


A 




ROL 


AC0 ,80 






1127 


C2DA 


48FF 


A 




AISZ 


AC0,-1 






1128 


C2DB 


21 FD 


A 




JMP 


.-2 






1129 


C2DC 


5CF4 


A 




SHR 


AC0,12 






1130 


C2DD 


0200 


A 




RTS 








1131 


















1132 










... 1200 BAUD OPERATION 




1133 


















1134 


C2DE 


4C01 


A HDEL12: 


LI 


AC0 ,1 




; HALF- BIT TIME 


1135 


C2DF 


2101 


A 




JMP 


. + 2 






1136 


C2E0 


4C02 


A DELY12: 


LI 


AC0 ,2 




; FULL-BIT TIMS 


1137 


C2E1 


5850 


A 




ROL 


AC0 ,30 






1138 


C2E2 


48FF 


A 




AISZ 


AC0 ,-1 






1139 


C2E3 


21 FD 


A 




JMP 


.-2 






1140 


C2E4 


5CF2 


A 




SHR 


AC0,14 






1141 


C2E5 


0200 


A 




RTS 








1142 


















1143 










SUBROUTINE SAVE DETERMINES THE MAXIMUM RAM AVAILABLE, SAVES 


1144 










THE ENVIRONMENT , AND DETERMINES THE PROPER BAUD RATE TO USE. 


1145 










OUTPUTS 


OF THE SUBROUTINE ARE: (AC 2) MAX RAM , (AC3) TTYAD. 


1146 










THE SELECT FLAG IS 


CLEARED BUT NOT RESTORED UPON EXIT FROM 


1147 










THE PROGRAM. 






1143 








f 










1149 


C2E6 


4300 


A SAVE: 


PUSH 


AC 3 




; CALCULATE MAXRAM 


1150 


C2E7 


3D27 


A 




LD 


AC3 , MEMTOP 






1151 


C2E3 


4000 


A TOP: 


PUSH 


AC0 






1152 


C2E9 


A300 


A 




ST 


AC0, (AC3) 




; STORE WORD INTO MEMORY AND READ BACK 


1153 


C2EA 


D300 


A 




SUB 


AC0 , (AC 3) 






1154 


C2E3 


1505 


A 




30C 


NZRO,INCR 




; NO RAM HERE 


1155 


C2EC 


8300 


A 




LD 


AC0 , (AC3) 




; COMPLEMENT AND RECHECK 


1156 


C2ED 


5000 


A 




CAI 


AC0 ,0 






1157 


C2EE 


A300 


A 




ST 


AC0 , (AC3) 






1158 


C2EF 


D300 


A 




SUB 


AC 0 , ( AC 3 ) 






1159 


C2F0 


1103 


A 




BOC 


ZRO,SREG 




; RAM FOUND 


1160 


C2F1 


DD1E 


A 


INCR: 


SUB 


3 ,BNKSIZ 




; LOOK AT NEXT LOWER BANK 


1161 


C2F2 


440# A 
21 Ff A 




PULL 


AC0 






1162 


C2F3 




JMP 


TOP 






1163 


C2F4 


4400 


A 


SREG: 


PULL 


AC0 




; SAVE REGISTERS 
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1164 


C2F5 


4B02 


A 




AISZ 


AC3 ,2 


; ADJUST ADDRESS TO TOP OF BANK 


1165 


C2F6 


A3 FB 


A 




ST 


AC0 , SAV0 (AC3) 






1166 


C2F7 


A7FA 


A 




ST 


AC1 ,SAV1 { AC3) 






1167 


C2F8 


ABF9 


A 




ST 


AC2,SAV2(AC3) 






1163 


C2F9 


3E81 


A 




RCPY 


AC3,AC2 






1169 


C2FA 


4700 


A 




PULL 


AC 3 


; RESTORE AC 3 


1170 


C2FB 


AEF8 


A 




ST 


AC3,SAV3(AC2) 






1171 


C2FC 


0A80 


A 




PFLG 


SEL 






1172 


C2FD 


8D14 


A 




LD 


AC 3 , ST AD 


; DETERMINE PROPER BAUD RATE 


1173 


C2FE 


8300 


A 




LD 


AC0 , (AC3) 






1174 


C2FF 


4F04 


A 




LI 


AC3,4 


; ASSUME 1200 TO START 


1175 


C300 


710C 


A 




SKAZ 


AC0 , BIT5 






1176 


C301 


4F02 


A 




LI 


AC3,2 




300 BAUD 


1177 


C302 


710B 


A 




SKAZ 


AC0 , B IT6 






1173 


C303 


4F00 


A 




LI 


AC3,0 




TTY 


1179 


C304 


AEE4 


A 




ST 


AC3 , BAUD ( AC2) 




SAVE BAUD RATE STATUS 


1180 


C305 


4F38 


A 




LI 


AC 3 r TTYAD 




PICK UP TTY DEVICE ADDRESS 


1181 


C306 


82FB 


A 




LD 


AC0 , SAV0 (AC 2) 






1182 


C307 


0200 


A 




RTS 








1183 








• 










1184 








- 


THE VARIABLES NEEDED IN 


THIS PROGRAM 


1185 








; 










1186 


C308 


0000 


A 


ZERO : 


. WORD 


0 






1187 


C309 


0001 


A 


ONE: 


. WORD 


1 






1188 


C30A 


0080 


A 


PBIT: 


.WORD 


030 






1189 


C303 


007F 


A 


H7F: 


.WORD 


07F 






1190 


C30C 


8000 


A 


MASK : 


. WORD 


03000 






1191 


C30D 


0020 


A 


3IT5: 


.WORD 


020 






1192 


C30E 


0040 


A 


BIT6: 


.WORD 


040 






1193 


C30F 


6FFD 


A 


MEMTOP : 


.rtQRD 


06FFD 






1194 


C310 


1000 


A 


3NKSIZ: 


. WORD 


01000 






1195 


C311 


C316 


A 


BAUD3: 


.WORD 


TDELAY+2 






1196 


C312 


7D02 


A 


ST AD: 


. WORD 


07D02 




ADR OF BAUD SELECT WORD 


1197 










. PAGE 








1193 








; 










1199 








; 


TRANSFER VECTOR FOR VARIOUS DELAY ROUTINES 


1200 


















1201 


C313 


C314 


A 


DELADO: 


.WORD 


TDELAY 






1202 


C314 


C2CE 


A 


TDELAY: 


.WORD 


HDELT 




• TTY • - HALF BIT DELAY 


1203 


C315 


C2D0 


A 




.WORD 


DELYT 




FULL BIT DELAY 


1204 


C316 


C2D6 


A 




. WORD 


HDEL3 




• 300 BAUD 


1205 


C317 


C2D3 






.WORD 


DELY3 






1206 


C318 


C2DE 


A 




. WORD 


HDEL12 


; 1200 BAUD 


1207 


C319 


C2E0 


A 




. WORD 


DELY12 







1203 








.PAGE 






1209 














1210 








THIS 


PUT CHARACTER ROUTINE IS USED AT ALL BAUD RATES. 


1211 














1212 


C31A 


29CB 


A PUTC: 


JSR 


SAVE 




1213 


C31B 


4203 


A 


PUSH 


AC 2 


; SAVE MAX RAM ADDRESS 


1214 


C31C 


8AE4 


A 


LD 


AC 2 , BAUD (AC 2) 


; GET BAUD RATE SELECTION 


1215 


C31D 


F9EA 


A 


SKNE 


AC2 f ZERO 


; TEST FOR 110 3AUD 


1216 


C31E 


210C 


A 


J MP 


TTY 


? NO PARITY 


1217 














1218 


C31F 


61EB 


A 


AND 


AC0 , H7F 


; COMPUTE EVEN PARITY 


1219 


C320 


4000 


A 


PUSH 


AC0 




1220 


C321 


4D01 


A 


LI 


AC1,1 




1221 


C322 


4F07 


A 


LI 


AC3 , 7 




1222 


C323 


1301 


A PL1: 


BOC 


BIT0,.+2 




1223 


C324 


4901 


A 


AISZ 


AC1 ,1 




1224 


C325 


5CFF 


A 


SHR 


AC0 ,1 





20 



DISKI016 



1225 


C326 


4BFF 


A 




AISZ 


AC3,-1 




1226 


C327 


21FB 


A 




JMP 


PL1 




1227 


C323 


4400 


A 




PULL 


AC0 




1223 


C329 


75DF 


A 




SKAZ 


AC 1, ONE 




1229 


C32A 


69DF 


A 




OR 


AC0 , PBIT 




1234) 








* 








1231 


C328 


4F38 


A 


TTY: 


LI 


AC 3 , TTY AD 




1232 


C32C 


3181 


A 




rcpy 


AC0,AC1 




1233 


C32D 


4C09 


A 




LI 


AC0,9 ; LOAD BIT COUNT 


1234 


C32E 


4000 


A 




PUSH 


AC0 




1235 


C32F 


C9E3 


A 




ADD 


AC2 ,DELADD 




1235 


C330 


2E01 


A 




JSR 


§1{AC2) ; FULL-BIT DELAY 


1237 


C331 


0603 


A 




ROUT 


SEND 




123 3 


C332 


2E01 


A 


LP2: 


JSR 


91 (AC2) 


FULL- BIT DELAY 


1239 


C333 


5600 


A 




XCHRS 


AC 2 ! 


EXCHANGE INDEX ADDRESS WITH BIT COUNT 


1240 


C334 


4AFF 


lL 




AISZ 


AC 2 ,-1 


• DECREMENT BIT COUNT 


1241 


C335 


211D 


A 




JMP 


NEXT 




1242 








* 








1243 


C336 


4CFF 


A 


DONE: 


LI 


AC0,-1 


• CHARACTER OUTPUT COMPLETED 


1244 


C337 


0603 


A 




ROUT 


SEND j 


SEND STOP BIT 


1245 


C333 


4600 


A 




PULL 


AC 2 ; 


LOAD BAUD-RATE SELECTOR 


1246 


C339 


2E01 


A 




JSR 


51 (AC2) 


FULL-BIT DELAY 


1247 


C33A 


2E01 


A 




JSR 


@1 (AC2) 


FULL-BIT DELAY 


1243 


C33B 


F9D5 


A 




SKNE 


AC2 , BAUD3 




1249 


C33C 


2103 


A 




JMP 


DON1 




1250 


C33D 


4600 


A 




PULL 


AC 2 




1251 


C33E 


82F8 


A 




LD 


AC0 , SA70 (AC 2) 




1252 


C33F 


2189 


A 




JMP 


RETURN- 1 




1253 


C340 


4600 


A 


DON1 : 


PULL 


AC 2 ; RESTORE ORIGINAL CHARACTER 


1254 


C341 


82FB 


A 




LD 


AC0,SAV0 (AC2) 




1255 


C34 2 


4000 


A 




PUSH 


0 




1256 


C343 


F10E 


A 




SKNE 


0 ,CR 




1257 


C344 


2102 


A 




JMP 


. + 3 




1258 


C345 


4400 


A 




PULL 


0 




1259 


C346 


2182 


A 




JMP 


RETURN- 1 




1260 


C347 


4D03 


A 




LI 


AC1,8 ; 193 MS. DELAY FOR CR ON SILENT-700 


1261 


C348 


4C30 


A 


DEL: 


LI 


AC0,48 




1262 


C349 


5370 


A 




ROL 


AC0 ,112 




1263 


C34 A 


4 8 FF 


A 




AISZ 


A ft 1 




1264 


C34B 


21FD 


A 




JMP 


.-2 




1265 


C34C 


5C8D 


A 




SHR 


AC0 ,67 




1256 


C3 4 D 


49 FF 


A 




AISZ 


AC1 ,—1 




1267 


C34E 


21F9 


A 




JMP 


DEL 




1263 


C34F 


4400 


A 




PULL 


0 




1269 


C350 


2500 


A 




JMP 


§. + 1 




1270 


C351 


C2C9 


A 




.WORD 


RETURN- 1 




1271 


C352 


000D 


A 


CR: 


.WORD 


X'0D 




1272 
















1273 


C353 


59FF 


A 


NEXT: 


ROR 


AC1,1 ; OUTPUT NEXT BIT 


1274 


C354 


3481 


A 




RCPY 


AC1 ,AC0 




1275 


C355 


0603 


A 




ROUT 


SEND 


OUTPUT ONE BIT 


1276 


C355 


5630 


A 




XCHRS 


AC 2 


EXCHANGE BIT COUNT WITH INDEX ADDRESS 


1277 


C357 


21DA 


A 




JMP 


LP 2 




1278 




C01D 


A 




. END 


DISKIO 





****** 0 ERRORS IN ASSEMBLY ****** 

$2! $31 S4! $51 $CHS" $COMP" SEND" $LIST! $LOOP" $NEXT" 

C095 A C092 A C09B A C0AF A C278 A C27D A C26A A C018 A C263 A C27B A 

$OK" $READ# $RESE# A3 A4 A5 A6 AA1 AA2 AC0 
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C283 A 0002 A 0005 A C01F A C024 A C022 A C02A A C13E A C143 A 0000 A 

AC1 AC 2 AC 3 ADATA ANMSK ASTAT ASTATA ASTATB ASTATC Bl 
0001 A 0002 A 0003 A C057 A C212 A C056 A C1A1 A C1EF A C237 A C03E A 

BAUD 3AUD3 BCNT BDATA BIT0 BITl BITS 3IT6 BNKSIZ BSAV 
FFEA A C311 A FFE3 A C059 A 0003 A 0004 A C30D A C30E A C310 A C030 A 

BSTAT CI CC1 CCRC CONTl CONT2 CR CRC CRC10 CRC11 

C058 A C046 A C148 A C0E8 A C02E A C02F A C352 A C1C0 A C1D0 A C1CD A 

CRC3 CRC 5 CRC9 CRCA CRTS CYOV D Dl D2 D3 

C1C3 A C1C8 A C1CF A C123 A C0E7 A 000A A C048 A C05D A C051 A C04C A 

DBOOT DDI DD2 DEL DEL10 DELI 024 DELADD DELAY DELAY2 DELY12 
C00E A C14D A C14F A C348 A C1F0 A C0DF A C313 A C24D A C24F A C2E0 A 

DELY3 DELYT DISK2 DISKIO DONl DONE El Ell EEl EE2 

C2D8 A C2D0 A C255 A C01D A C340 A C336 A C060 A C066 A C152 A C154 A 

ERROR EX EXB EXC EXC1 EXC2 EXC3 EXDl EXD2 Fl 

C016 A C1A3 A C0DB A C1B0 A C1B4 A C139 A C1B7 A C1BB A C1BD A C06A A 

PF1 FF2 Gl G2 GEC GEC1 GEC2 GECO GETC GETC2 

C162 A C15D A C06C A C075 A C2AE A C2B2 A C2C7 A C2A8 A C28A A C28E A 

GG1 H09F HI H28K H4K H7F HDEL12 HDEL3 HDELT HHl 

C165 A C274 A C073 A C288 A C289 A C30B A C2DE A C2D6 A C2CE A C16E A 

Tl IEN IEN2 II INCR JJl JJ2 Kl K2 K3 

C07A A 0001 A 0009 A C171 A C2F1 A C17D A C17F A C082 A C09F A C084 A 

KK1 LDISK LP1 LP 2 LP 3 Ml MASK MEMTOP MISYNC Mrtl 

C17A A C008 A C299 A C332 A C23A A C0A7 A C30C A C30F A 0001 A C183 A 

MM2 MSK MTRK N NEXl NEXT NN1 NRDY NZRO ONE 

C187 A C053 A C05C A C083 A C197 A C353 A C18A A 000E A 0035 A C309 A 

P PI PBIT PCTS PD300T PDISK PLl POLY POS PTEPIN 

C0E2 A C124 A C30A A C196 A C000 A C00A A C323 A C1BE A 0002 A C1A2 A 

PUTC RDREN RDSA RDSECT READ RESl RES2 RES3 RESTR RETURN 
C31A A 0004 A C122 A C203 A C0E9 A C1DD A C1E1 A C1E9 A C1D9 A C2CA A 

rrI S SI S2 S3 S4 S5 SAV0 SAVl SAV2 

C0FC A C0CA A C0CC A C0D0 A C0D1 A C0CD A C0D2 A FFF6 A FFFA A FFF9 A 

SAV3 SAVE SCTS 5CTSA SEL SEND SIAl SIA2 SNRDY SOAl 
FFF8 A C2E6 A C0DE A C1BF A 0002 A 0003 A C247 A C248 A 0008 A C204 A 

SOA2 30A3 SOA4 SRI SR2 SR3 3R4 SR5 SR6 SR7 
C1FE A C207 A C202 A C203 A C20E A C219 A C21A A C222 A C22D A C22F A 

SR 3 SR9 SREG SSZ STAD STEPIN STPOUT Tl T2 T3 

C233 A C214 A C2F4 A C213 A C312 A C238 A C1F1 A C0B5 A C0BC A C0BE A 

T4 T5 TDELAY TMPTR TNS TOP TOPRAM TPRAM TRAM TTY 

C037 A C0C0 A C314 A C02D A C05A A C2E8 A C276 A C275 A C00C A C32B A 

TTYAD TTYGCO TTYGST TTYPUT Ul U2 VI VCER Wl VV2 . 

0i)33 A C006 A C002 A C004 A C0C2 A C0C8 A C0D4 A C179 A C105 A C109 A 

W3 VV4 W5 Wl W2 W267 W268 W7 WA WD 

C103 A C10E A C112 A C140 A C12C A C0E0 A C0E1 A C0DC A C0DD A C192 A 



22 



DISKI016 



WD1 WD10 WD14 WRD2 WRJC WV1 XI X2 X3 Yl 

C193 A C194 A C195 A C02C A 000E A C178 A C0ED A C0EF A C0F3 A C137 A 

Y2 ZERO ZRO 

C139 A C308 A 0001 A 



2C22 A538 



MEMDI 



REVISION-G 01/02/74 

MEMDI 00154B 02/14/74 



0000 
0000 
0000 
0000 
0000 
0000 
0000 

8 0000 

9 0000 

10 0000 

11 0000 

12 0000 

13 0000 

14 0000 

15 0000 

16 0000 

17 0000 

18 0000 

19 0000 

20 0000 

21 0000 

22 0000 

23 0000 

24 0000 

25 0000 

26 0000 

27 0000 

28 0000 

29 0000 

30 0000 

31 0000 



.TITLE MEMDI , '001546 02/14/74' 

MEMDI IMP-16L/IMP-16P MEMORY DIAGNOSTIC 



1. LOAD DIAGNOSTIC INTO MAIN MEMORY. 
********************************************************* 

* * 

* IMP-16P LOADING PROCEDURE 

* * 
*********************************************************************** 



A. FROM CARDS 



DEPRESS INITIALIZE. 
SET MODE SWITCH TO PC. 

SET THE VALUE X'7FO0 INTO THE SWITCHES. 

4) DEPRESS LOAD DATA. 

5) SET MODE SWITCH TO PROG DATA. 
DEPRESS RUN- 
WHEN THE LOADER HALTS, SET MODE SWITCH TO PC. 
SET THE VALUE X'120 INTO THE SWITCHES. 

9) DEPRESS LOAD DATA. 
10) DEPRESS RUN. 



1) 
2) 
3) 



6) 
7) 
8) 



B. FROM PAPER TAPE 

1) PLACE PAPER TAPE IN READER. 

2) DEPRESS 'INITIALIZE', 

3) DEPRESS 'LOAD PROG' . 

4) UPON COMPLETION OF LOAD, PROGRAM WILL HALT. TO BEGIN 
EXECUTION, DEPRESS 'RUN'. 



32 0000 

34 0000 

35 0000 

37 0000 

38 0000 

39 0000 

40 0000 

41 0000 

42 0000 

43 0000 

44 0000 

45 0000 

46 0000 

47 0000 

48 0000 

49 0000 

50 0000 

51 0000 

52 0000 

53 0000 

54 0000 

55 0000 

56 0000 

57 0000 

58 0000 

59 0000 

60 0000 



.PAGE 

*********************************************************************** 

* * 

* IMP-16L LOADING PROCEDURE * 

* * 
*********************************************************************** 

A. CARDS 

1) PLACE CARD DECK IN READER (WITH CRBOOT). 

2) DEPRESS 'INITIALIZE'. 

3) DEPRESS *AUX1«. 

4) DEPRESS 'RUN'. 

B. PAPER TAPE 

1) PLACE PAPER TAPE IN READER. 

2) DEPRESS 'INITIALIZE*. 

3) DEPRESS 'LOAD PROG'. 

4) UPON COMPLETION OF LOAD, PROGRAM WILL HALT. TO BEGIN 
EXECUTION, DEPRESS 'RUN'. 

2. PROGRAM SHOULD HALT WITH X' 124 IN THE PC. 

3. SELECT TEST PARAMETERS (IF NECESSARY). 

A. DEPRESS 'HALT'. 

B. SET MODE SWITCH TO 'ACO'. 

C. SET FUNCTIONS REQUESTED INTO SWITCHES. 

D. DEPRESS 'LOAD DATA'. 

E. SET MODE SWITCH TO «AC1'. 

F. SET TEST START ADDRESS INTO SWITCHES. 

G. DEPRESS 'LOAD DATA'. 

H. SET MODE SWITCH TO »AC2'. 



1 



MEMDI 



61 0000 

62 0000 

63 0000 

64 0000 

65 0000 

66 0000 

67 0000 

68 0000 

69 0000 

70 0000 

71 0000 

72 0000 

73 0000 

74 0000 

75 0000 

76 0000 

77 0000 

78 0000 

79 0000 

80 0000 

81 0000 

82 0000 

83 0000 



84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
<=5 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 



0000 
0000 
0000 
0000 

0000 0120 

0120 8179 

0121 8579 

0122 897C 

0123 0000 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 
0124 

0124 2118 
0125 
0125 
0125 

0125 0000 
0125 0001 
0125 0002 
0125 0003 
0125 0001 
0125 0007 
0125 0004 
0125 0003 



4. 
5. 



MEMDI 



I. SET SWITCHES TO TEST END ADDRESS. 
J. DEPRESS 'LOAD DATA'. 

K. IF PROGRAM RELOCATION DESIRED, SET MODE SWITCH TO AC 3. 
L. SET NEW PROGRAM ADDRESS INTO SWITCHES. IF THIS OPTION IS 

USED, TEST RANGE AND PATTERNS MUST BF REDEFINED BEFORE 

FURTHER TESTING IS ATTEMPTED. 
M. DEPRESS •LOAD DATA*. 

RESTART PROGRAM EXECUTION, BY DEPRESSING RUN. 

AFTER PROGRAM AGAIN HALTS, CHECK THE ADDRESS IN THE PC. 

IF PC=X'124, ALL SELECTED TESTS WERE EXECUTED WITHOUT ANY ERRORS 

BEING DETECTED. 

TO REPEAT THE SELECTED TESTING, RETURN TO STEP 4 ABOVE. 

TO MAKE NEW TESTING SELECTIONS, RETURN TO STEP 3 ABOVE. 
IF PC=X»182, AN ADDRESSING ERROR HAS BEEN DETECTED. AC1 SHOULD 
CONTAIN A ZERO(O) INDICATING ADDRESS ERROR, AC2 SHOULD CONTAIN 
THE WORD READ FROM MEMORY, AND AC3 SHOULD CONTAIN THE ADDRESS 
REFERENCED, 

IF PC=X'20C, THE PROGRAM HAS DETECTED A PATTERN MISMATCH. 
ACO SHOULD INDICATE THE BITS WHICH FAILED, AC 1 INDICATES 
THE TEST WHICH FAILED (SEE LISTING), AC2 WILL INDICATE THE 
THE ADDRESS OF THE FAILURE, AND AC 3 CONTAINS THE CORRECT 
PATTERN. IF RUN IS DEPRESSED, THE PROGRAM WILL HALT WITH PC 
=X»20E AND AC1 WILL INDICATE WHICH BITS WERE UNDER TEST. 
TO CONTINUE AFTER AN ERROR, DEPRESS RUN. 



.TSECT 

.=.+X»120 

LD RO,FUNCT 

LD Rl , TSTRT 

LD R2,TEN0 

HALT 



FUNCTIONS TO BE PERFORMED 
;TFST START ADDRESS 
;TEST END ADDRESS 
;T0 SET UP INPUT VALUES 



INPUTS: RO: 
Rl: 
R2: 



FUNCTIONS 
START ADDRESS 
END ADDRESS 

FUNCTION 



BIT 

0 AODRESS TEST 

1 WORD TEST 

2 BIT TEST 

3 HALT ON ERROR 

4 LOOP ON SELECTED TESTS 

5 REDEFINE PATTERN 

6 LOOP ON SINGLE TFST 

7 LOOP ON ERROR 

8 RESET RANGE 

15 RELOCATE PROGRAM (NEW ADDRESS IN R3) 

IF PROGRAM IS RELOCATED, ALL PATTERNS AND RANGES 
MUST BE REDEFINED. 

JMP Al 

MISCELLANEOUS CONSTANTS 

R0=0 
Rl=l 
R2=2 
R3=3 
ZR0 = 1 
NZR0=7 
Bl = 4 
0DD = 3 



2 



MEMDI 



127 


0125 


0002 


A 




PZR0=2 






128 


0125 


0005 


A 




NEZ=5 






129 


0125 














130 


0125 








CONTROL 


VARIABLES 




131 


0125 






• 








132 


0125 


0120 


T 


PBASE: 


• WORD 


MEMDI 


;PROG START ADDRESS 


133 


0126 


0218 


T 


PLAST: 


• WORD 


PEND 


;PROG END ADDRESS 


134 


0127 














135 


0127 








PATTERN 


CONTROL 




136 


0127 














137 


0127 


AAAA 


A 


PATN: 


• WORD 


X* AAAA 


.ACTUAL PATTERN CONTENTS 


138 


0128 


5555 


A 




• WORD 


X* 5555 




139 




0 1 3R 


j 




— llO 
• — • ■ L O 






140 


0138 


0005 


A 


MAXP : 


• WORD 


5 




141 


013C 


01 27 


T 


PPNT: 


. WORD 


PATN 


lARSDI UTF AnnRP^^ HF NF*T fmtrv tm datm 


142 


013D 












143 


0130 














144 


013D 


& 15C 


A 


Al: 


ST 


ROt FUNCT 


:REOUESTFD FIINfTTflNK 


145 


013E 


1201 


A 




BOC 


PZROt A1A 


:RFI nfATF PROGRAM? 


146 


013F 


2149 


A 




JMP 


A50 


: PROGRAM RELOCATION RDIITTNF 

J ' ^ uwi\n n nu^uwMI lull IMJU I 1 1 v C 


147 


0140 


717B 


A 


A1A: 


SKAZ 


R 0. B I Tft 




148 


0141 


2101 


A 




JMP 


• +2 




149 


0142 


2102 


A 




JMP 


A2 


; no 


150 


0143 


A5 57 


A 




ST 


RltTSTRT 




151 


0144 


A95A 


A 




ST 


R2.TEND 




152 


0145 


7173 


A 


A2: 


SKAZ 


RO. BI T5 


ITFST PATTFRN RFnPPIMTTTnW RTT 


153 


0146 


2108 


A 




JMP 


A20 




154 


0147 


81 52 


A 


A4: 


LD 


RO, FUNCT 


•TCCT POD MPVT CI IMP T i niu 


155 


0 148 


132C 


A 




BOC 


0DD.A35 




156 


0149 


141D 


A 


A6: 


BOC 


B1.A25 


tWORD TEST 


157 


014A 


716B 


A 


A8: 


SKAZ 


R0,BIT2 




158 


0 148 


2122 


A 




JMP 


A30 


•RTT TF 


159 


014C 


7 16B 


A 


A10 : 


SKAZ 


R0,BIT4 




160 


0 14D 


21F9 


A 




JMP 


A4 




161 


014E 


2101 


A 




JMP 


MEMDI 


»INU1 LUUr MUUt 


162 


014F 














163 


014F 








REDEFINE PATTERN 




164 


014F 














165 


014F 


81 5C 


A 


A20 : 


LD 


RO , PREPL 


• OATTCDU nrni IP »TriOC 

• r Al 1 bKN KtrLlUAIORS 


166 


0150 


89 5 C 


A 




LD 


R2f PREPL+l 




167 


0151 


9550 


A 




LD 


Rlt 3PSTRT 


iPATTFRN WnRrK 


168 


0152 


90 50 


A 




LD 


R3 , 3PSTPT+1 




169 


0153 


0000 


A 




HALT 






170 


0154 














171 


0 154 








RO REPLICATOR 0 




172 


0154 








Rl PATTERN 1 




173 


0154 








R2 REPLICATOR 2 




174 


0 154 






# 


R3 PATTERN 2 




i 7 5 


0154 














176 


0154 


1 1F2 


A 




BOC 


ZR0,A4 


» INU UtrllNll lUNi 


177 


0155 


Al 56 


A 




ST 


RO, PREPL 


• CAVC DATTCOM 1 

fOAVC KAI 1 cKIN 1 


178 


0156 


A5D0 


A 




ST 


Rl , PATN 




179 


0157 


85E4 


A 




LD 


Rl » PPNT 




180 


0158 


A549 


A 




ST 


Rl.PSTRT 




181 


0159 


4001 


A 




LI 


Rlt 1 




182 


015A 


A54C 


A 




ST 


Pl.PWRDS 




183 


015B 


A540 


A 




ST 


RltNPAT 




184 


015C 


3881 


A 




RCPY 


R2,R0 


;R2 CONTAINS PATTERN 2 REPLICATOR 


185 


015D 


11E9 


A 




BOC 


ZR0,A4 


;N0 PATTERN 2 


186 


015E 


A94E 


A 




ST 


R2 , PREPL+l 




187 


015F 


ADC8 


A 




ST 


R3,PATN+1 




188 


0160 


890B 


A 




LD 


R2,PPNT 




189 


0161 


C945 


A 




ADD 


R2,PWRDS 




190 


0162 


A940 


A 




ST 


R2,PSTRT+1 




191 


0163 


A544 


A 




ST 


R1,PWRDS+1 




192 


0164 


4002 


A 




LI 


Rlt 2 




193 


0165 


A536 


A 




ST 


Rl »NPAT 


:SET NUMBER OF DEFINED PATTERNS 



MEMDI 



194 


0166 


21E0 


A 




JMP 


A4 




195 


0167 






; 








196 


0167 






; 


WORD 


TEST 




197 


0167 






: 








198 


0167 


4CFF 


A 


A25: 


LI 


R0,-1 


;SET MASK FOR FULL WORD 


199 


0168 


A138 


A 




ST 


ROt MASK 




200 


0169 


2953 


A 




JSR 


TESTS 


* EXECUTE WORD TESTS 


201 


016A 


812F 


A 




LD 


RO, FUNCT 




202 


016B 


714E 


A 




SKAZ 


R0.BIT6 




203 


016C 


21 FA 


A 




JMP 


A25 


;LOOP ON SINGLE TEST 


204 


016D 


21DC 


A 




JMP 


A8 


; CONTINUE 


205 


016E 






; 








206 


016E 






; 


BIT 


fEST 




207 


016E 






; 








208 


016E 


4C01 


A 


A30: 


LI 


ROtl 


;SET MASK FOR BIT TEST 


209 


016F 


A131 


A 




ST 


RO ♦ MASK 




210 


0170 


29 4C 


A 




JSR 


TESTS 


;EXECUTE BIT TESTS 


211 


0171 


8128 


A 




LD 


ROt FUNCT 




212 


0172 


7147 


A 




SKAZ 


R0,BIT6 




213 


0173 


21FA 


A 




JMP 


A30 


;LOOP ON SINGLE TEST 


214 


0174 


2107 


A 




JMP 


A10 


CONTINUE 


215 


0175 






; 








216 


0175 






; 


ADDRESS TEST — WRITE ADDRESS OF EACH MEMORY WORD INTO 


217 


0175 






; 


WORD 


AND THEN RE AO 


BACK EACH ONE TO SEE IF WORD WAS 


218 


0175 






; 


AODRESSED PROPERLY. 




219 


0175 






; 








220 


0175 


8025 


A 


A35 : 


LD 


R3 » TSTRT 


;STORE ADDRESSES IN EACH TEST LOC 


221 


0176 


AF00 


A 


A37: 


ST 


R3, (R3) 




222 


0177 


4B01 


A 




AISZ 


R3, 1 




223 


0178 


ED26 


A 




SKG 


R3.TEND 


:COMPARE AGAINST TFST FND ADDRP SS 


224 


0179 


21FC 


A 




JMP 


A37 


♦CONTINUE LOOP 


225 


017A 


8020 


A 




LD 


R3, TSTRT 


:TEST EACH IOC FOR ADDRFSS MATCH 


226 


017B 


FFOO 


A 


A39: 


SKNE 


R3, (R3) 


: IF SKIP. FATI IIRF 

v * ' JIM r | 1 n 1 L v r\ L 


227 


017C 


2108 


A 




JMP 


A40 


• MATCH 


228 


0170 


8B00 


A 




LD 


R2, (R3) 


;R2 CONTAINS ACTUAL CONTENTS 


229 


017E 


811B 


A 




LD 


ROt FUNCT 




230 


017F 


4000 


A 




LI 


R1,0 


• TEST CODE = 0 FOR ADDR TEST 


231 


0180 


7136 


A 




SKAZ 


R0,BIT3 


;IF BIT 3 SET, HALT ON ERROR 


232 


0181 


0000 


A 




HALT 




;R3 CONTAINS CORRECT ADDRESS 


233 


0182 


8117 


A 




LD 


RO, FUNCT 




234 


0183 


7137 


A 




SKAZ 


R0,BIT7 




235 


0184 


21F6 


A 




JMP 


A39 


;LOOP ON ERROR 


2 36 


0185 


4B01 


A 


A40: 


AISZ 


R3, 1 




237 


0186 


E018 


A 




SKG 


R3 f TEND 




238 


0187 


21F3 


A 




JMP 


A39 




239 


0188 


21C0 


A 




JMP 


A6 


;CONTINUE WITH NEXT TEST 


240 


0189 






: 








241 


0189 






; 


RELOCATE PROGRAM TO 


ADDRESS CONTAINED IN R3 


242 


0189 






; 








243 


0189 


819C 


A 


A50: 


LD 


RO, PL AST 


;CURRENT END ADDRESS 


244 


018A 


019A 


A 




SUB 


RO , PBASE 


; CURR ENT START ADDRESS 


245 


018B 


3C00 


A 




RADD 


R3,R0 


CALCULATE NEW END ADDRESS 


246 


018C 


A199 


A 




ST 


RO, PLAST 


;NEW LAST ADDRESS 


247 


018D 


8997 


A 




LD 


R2, PBASE 


;SAVE CURRENT STARTING ADDRESS 


248 


018E 


81AD 


A 




LD 


RO, PPNT 


♦.ADJUST PATN TABLE POINTER 


249 


01 8F 


0195 


A 




SUB 


RO, PBASE 




250 


0190 


3C00 


A 




RADO 


R3,R0 




251 


0191 


A1AA 


A 




ST 


RO, PPNT 




252 


0192 


AD92 


A 




ST 


R3, PBASE 


JSET NEW BASE ADDRESS 


253 


0193 


8200 


A 


A55: 


LD 


RO, (P2) 


;MOVE PROGRAM 


2 54 


0194 


A300 


A 




ST 


RO, (R3» 




255 


0195 


4A01 


A 




AI SZ 


R2,l 




256 


0196 


4B01 


A 




AISZ 


R3, 1 




257 


0197 


ED8E 


A 




SKG 


R3, PLAST 




258 


0198 


21FA 


A 




JMP 


A55 




259 


0199 


258B 


A 




JMP 


3PBASE 


;JUMP TO NEW STARTING LOCATION 


260 


019A 






i 







MEMDI 



261 


019A 






; 


DATA IS 


PLACED HERE SO 


IT CAN BE REACHED BY ENTIRE 


26 2 


019A 






; 


PROGRAM 






263 


019A 






; 








264 


019A 


OOOF 


A 


FUNCT: 


• WORD 


X'F 


FUNCTIONS TO BE PERFORMED 


265 


01 9B 


0220 


A 


TSTRT : 


.WORD 


X«220 


; TEST START ADDRESS 


26 6 


019C 


0002 


A 


NPAT : 


• WORD 


2 




267 


019D 


FFFF 


A 


MINI: 


.WORD 


-1 




268 


019E 


01 9F 


T 


TSTAD: 


. =.+1 


;CURRENT TEST ADDRESS 


269 


019F 


1FFF 


A 


TEND: 


.WORD 


X'IFFF 


; TE ST END ADDRESS 


270 


01A0 


01A1 


T 


PCNT: 


. = .-♦•1 


;NUMBEP 


OF PATTERNS TO EXECUTE 


271 


01A1 


01A2 


T 


MASK: 


.=. + 1 




; MASK IN USE FOR TESTS 


272 


01A2 


0127 


T 


PSTRT: 


• WORD 


PATN 


; PATTERN START IN PATN 


273 


01A3 


0128 


T 




• WORD 


PATN+1 




274 


01A4 


01A7 


T 




. = .+3 






275 


01A7 


0001 


A 


PWRDS: 


.WORD 


1 


;NUMBER OF WORDS IN PATTERN 


276 


01A8 


0001 


A 




• WORD 


1 




277 


01A9 


01AC 


T 




. = .+3 






278 


01AC 


0001 


A 


PREPL: 


.WORD 


1 


; NUMBER OF TIMES TO REPLICATE PATTERN 


2 79 


01AD 


0001 


A 




.WORD 


1 




280 


01AE 


01B1 


T 




. = .+3 






281 


01B1 






; 








282 


01B1 






; 


DYNAMIC 


CONSTANTS FOR TEST IN PROGRESS 


283 


01B1 






* 








284 


01B1 


01B2 


T 


CMASK: 


.=. + 1 




; MASK 


285 


01B2 


01B3 


T 


CWRDS: 


.= . + 1 




;N0. OF WORDS IN PATTERN 


286 


01B3 


01 B4 


T 


CREPLI : 


. = .+1 




?N0. OF TIMES TO COPY PATTERN 


287 


01B4 


0001 


A 


BITO: 


. WORD 


1 




288 


01B5 


0002 


A 


BITl: 


.WORD 


2 




289 


01B6 


0004 


A 


BIT2: 


.WORD 


4 




290 


01B7 


0008 


A 


BIT3: 


.WORD 


8 




291 


01B8 


0010 


A 


BIT4: 


• WORD 


16 




292 


0189 


0020 


A 
M 


BITS: 


.WORD 


32 




293 


01BA 


0040 


A 


BIT6: 


.WORD 


64 




294 


01BB 


0080 


A 


BIT7: 


. WORD 


128 




295 


01BC 


0100 


A 


BIT8: 


.WORD 


256 




296 


01BD 






; 








297 


01BO 






; 


EXECUTE 


TEST SEQUENCE 




298 


01B0 






; 


WRITE PATTERN WORDS THROUGHOUT RANGE. THEN READ AND TEST WORD. 


299 


01BD 






; 


COMPLEMENT AND STORE. REREAD AND CHECK, THEN REIMPLEMENT 


300 


01BD 






; 


AND STORE. FINALLY, REREAD AND CHECK. BIT TEST IS SAME, ONLY 


301 


01BD 






; 


FOR ONE 


BIT AT A TIME. 




302 


01B0 






; 








303 


01B0 








.LOCAL 






304 


01BD 


4D00 


A 


TESTS: 


LI 


RltO 


;SET FOR PASS 1 


305 


01BE 


810C 


A 


$11: 


LD 


PO, TSTRT 


;GET TEST RANGE 


306 


01BF 


AIDE 


A 




ST 


RO, TSTAD 




307 


01C0 


8114 


A 


Si: 


LD 


R0,$S4 


;SET MODIFIED INSTRUCTIONS TO ORIG VALUE 


308 


01C1 


A108 


A 




ST 


R0,$4 


REINITIALIZE MODIFIED INSTRUCTIONS 


309 


01C2 


8110 


A 




LD 


R0,$S2 


310 


01C3 


A1C7 


A 




ST 


R0,$2 




311 


01C4 


810F 


A 




LD 


RO, $S3 




312 


01C5 


A 102 


A 




ST 


R0,$3 




313 


01C6 


81D5 


A 




LD 


RO, NPAT 


: NUMBER OF DEFINED PATTERNS 


314 


01C7 


A1D8 


A 




ST 


RO,PCNT 




315 


01C8 


81E3 


A 


$3: 


LD 


RO, PREPL 




316 


01C9 


A1E9 


A 




ST 


RO, CREPLI 




317 


01CA 


89D7 


A 


$4: 


LD 


R2, PSTRT 


» GET PATTERN START ADDRESS 


318 


01CB 


81DB 


A 


$2: 


LD 


RO, PWRDS 


;MOVE CURRENT PATTERN DEFN 


319 


01CC 












;T0 FIXED ITEMS 


320 


01CC 


A1E5 


A 




ST 


RO, CWRDS 




321 


01CD 


81D3 


A 


$5: 


LD 


RO, MASK 


;GET CURRENT MASK 


322 


01CE 


A1E2 


A 




ST 


RO, CMASK 




323 


01CF 


75CD 


A 




SKAZ 


R1,MIN1 


;PASS 1 - R1=0 


324 


01 DO 


2105 


A 




JMP 


$6 




325 


0101 


2941 


A 




JSR 


STORE 


?STORE PATTERN THROUGH TEST REGION 


326 


01D2 


210B 


A 




JMP 


$7 




327 


0103 


81DB 


A 


$S2: 


.WORD 


PWRDS— $2-1 6X f FF 


X'8100 



5 



MEMDI 



328 


010 4 


81E3 


A 


$S3: 


. WORD 


PREPL-$3-l£X 


• FF 


X«8100 


329 


0105 


89D7 


A 


$S4: 


.WORD 


PSTRT-$4-l£X 


•FF 


X' 8900 


330 


0106 






• 










331 


0106 






• 


RUN ACTUAL TESTS 






332 


0106 






• 








; VERIFY 


333 


01D6 


4D05 


A 


$6: 


LI 


Rl,5 




334 


01D7 


2924 


A 




J SR 


VRF Y 






335 


0108 


293A 


A 




j *;r 


STORE 




;STORE COMPLEMENT 


336 


0109 


40 03 


A 




1 T 

U 1 


Rl t 3 




;VERIFY COMPLEMENT 


337 


010A 


2921 


A 






VRF Y 




; RECOMPL EMENT 


338 


010B 


2937 


A 




J SR 


STORE 




339 


01DC 


4001 


A 




LI 


Rl 1 1 




; VERIFY ONLY 


340 


01DD 


291E 


A 




JSR 


VRFY 




;IF ZERO, PASS 1 


341 


010E 


75BE 


A 


$7: 


SKAZ 


Rl t MI Nl 




342 


0 IDF 


2101 


A 




JMP $71 








343 


01E0 


2103 


A 




J MP 


$8 






344 


01F1 


8138 


A 


$71: 


LD 


RO, FUNCT 






345 


01E2 


71D3 


A 




SKAZ 


R0,BIT2 






346 


01E3 


2109 


A 




JMP 


$9 




;bit test 


347 


01E4 


79B9 


A 


$8: 


ISZ 


TSTAD 




; INCREMENT TEST ADDRESS 


348 


01E5 


4A01 


A 




AISZ 


R2tl 




INCREMENT PATTERN WORD ADDRESS 


349 


01E6 


81B7 


A 




LD 


RO, TSTAD 




: Fl NI SHED TEST RANGE? 


350 


01E7 


E1B7 


A 




SKG 


RO t TEND 




;IF GREATER, YES 


351 


01E8 


2109 


A 




JMP 


$10 






352 


01E9 


75B3 


A 




SKAZ 


Rl, MINI 




;IF Rl EQ 0, PASS 1 


353 


01EA 


0200 


A 




RTS 






;PASS 2 COMPLT, RETURN TO CALLER 


354 


01EB 


4D01 


A 




LI 


P 1, 1 




;SET UP FOR PASS 2 


355 


OLEC 


21D1 


A 




JMP 


$11 




; START PASS 2 


356 


01ED 








BIT TEST 






357 


01E0 


81C3 


A 


$9: 


LD 


RO,CMASK 




; CHANGE MASK TO NEXT BIT 


358 


01EE 


5C01 


A 




SHL 


R0,1 






359 


01FF 


11F4 


A 




BOC 


ZR0,$8 




;IF ZERO, DONE WITH ONE WORD 


360 


01F0 


AICO 


A 




ST 


RO,CMASK 






361 


01F1 


21E4 


A 




JMP 


$6 




; TEST NEXT BIT 


362 


01F2 






» 


TEST FOR END OF REPLICATION 


363 


01F2 


7DBF 


A 


$10: 


OSZ 


CWROS 






364 


OIF 3 


2109 


A 




JMP 


$5 




;TEST NEXT WORD 


365 


01F4 






: 


TEST FOP ENO OF ALL 


REPLICATIONS 


366 


01 F4 


70BF 


A 




DSZ 


CREPLI 






367 


01F5 


2104 


A 




JMP 


$4 




; START NEXT REPLICATION 


368 


01F6 






: 


MOVE TO 


NEXT TABLE ENTRY 


369 


01F6 


7904 


A 




ISZ 


$2 






370 


01F7 


7900 


A 




I sz 


$3 






371 


01F8 


7901 


A 




ISZ 


$4 






372 


01F9 


7DA6 


A 




OSZ 


PCNT 




; ALL PATTERNS DONE 


373 


01FA 


21CD 


A 




JMP 


$3 




;D0 NEXT PATTERN 


374 


01FB 


21C4 


A 




JMP 


$1 







375 01FC ; 

376 01FC : 

377 01FC *, EITHER VERIFY BIT SETTING OR VERIFY COMPLEMENT SETTING. ADDRESS 

378 01FC ? OF TEST WORD IN 'TSTAD', PATTERN WORD IN R2 . 

379 01FC : 



380 


01FC 








. LOCAL 






381 


01FC 


81B4 


A 


VRFY: 


LD 


RO,CMASK 


;GET CURRENT MASK 


382 


01FD 


8E00 


A 




LD 


R3, (R2) 


; GET ACTUAL PATTERN WORD 


383 


01FE 


75B6 


A 




SKAZ 


Rlt BI Tl 


; COMPLEMENT TEST 


384 


01FF 


3382 


A 


$1: 


RXOR 


RO, R3 


COMPLEMENT TEST 


385 


0200 


9190 


A 


$2 : 


LD 


RO, 3TSTAD 


;GET CONTENTS OF MEMORY 


386 


0 201 


3C82 


A 




RXOR 


R3,R0 


;COMPARE VALUES 


387 


0202 


HOD 


A 




BOC 


ZR0,$3 


;MEMORY WORD OK 


388 


0203 


A5 0D 


A 




ST 


Rl ,$R1 


;SAVE Rl 


389 


0204 


8595 


A 




LD 


Rl, FUNCT 




390 


0205 


75B1 


A 




SKAZ 


R1,BIT3 


;HALT ON ERROR? 


391 


0206 


2101 


A 




JMP 


. + 2 


; YES 


392 


0207 


2107 


A 




JMP 


$2A 




393 


0208 


A9C9 


A 




ST 


R2,$R2 


;SAVE R2 


394 


0209 


8994 


A 




LD 


R2, TSTAD 




395 


020A 


9506 


A 




LD 


Rl, $R1 





6 



MEMDI 



396 


020B 


0000 


A 






HALT 






397 


02 0C 
















398 


020C 










RO = 


BITS FAILED 




399 


020C 










Rl = 


TEST CODE 




400 


020C 










5 


REGULAR TEST 




401 


020C 










3 


COMPLEMENT TEST 




402 


020C 










1 


RECOMPLEMENT TEST 




403 


020C 
















404 


020C 










R2 = 


FAILED ADDRESS 




405 


020C 










R3 = 


CORRECT PATTERN 




406 


020C 
















407 


020C 


85A4 


A 






LD 


Rl, CMASK 


;R1 = BITS UNDER TEST 


408 


02 00 


0000 


A 






HALT 






409 


020E 


8903 


A 






LO 


R2t$R2 


; RE STORE R2 


410 


020F 


8501 


A 


$2A: 


LD 


Rl, $R1 


♦RESTORE Rl 


411 


0210 


0200 


A 


$3: 


RTS 






412 


0211 


0000 


A 


$Rl: 


• WORD 


0 




413 


0212 


0000 


A 


$R2 : 


• WORD 


0 




414 


0213 
















415 


0213 










STORE 


VALUE OR COMPLEMENT OF PATTERN WORD POINTED 


416 


0213 










INTO 


ADDRESS POINTED TO 


BY TSTAD. 


417 


0213 
















418 


0213 


8E00 


A 


STORE: 


LD 


R3, (R2) 


; ACTUAL PATTERN WORD 


419 


0214 


819C 


A 






LD 


RO , CMASK 


; GET CURRENT MASK 


420 


0215 


75A0 


A 






SKAZ 


R1,BIT2 


;DON'T COMPLEMENT ON SKIP 


421 


0216 


3382 


A 






RXOR 


R0,R3 


COMPLEMENT 


422 


0217 


BD86 


A 






ST 


R3 f 3TSTAD 


;STORE VALUE INTO MEMORY 


423 


0218 


0200 


A 


PENO: 


RTS 






424 


0219 






? 








425 


0219 






9 








426 


0219 


0120 


T 






.END 


MEMDI 





****** o ERRORS IN ASSEMBLY ****** 



$1" 




$1# 




$10" 




$11" 




$2" 




$2# 




$2A# 




$3" 


$3# 




$4" 




OICO 


T 


01FF 


T 


01F2 


T 


01BE 


T 


01CB 


T 


0200 


T 


020F 


T 


01C8 T 


0210 


T 


01CA 


T 


$5" 




$6" 




$7" 




$71" 




$8" 




$9" 




$R1# 




$R2# 


$S2" 




$S3« 




01CD 


T 


01D6 


T 


01DE 


T 


01E1 


T 


01E4 


T 


01 ED 


T 


0211 


T 


0212 T 


01D3 


T 


01D4 


T 


$S4" 




Al 




A10 




A1A 




A2 




A20 




A25 




A30 


A35 




A3 7 




01D5 


T 


0130 


T 


014C 


T 


0140 


T 


0145 


T 


014F 


T 


0167 


T 


016E T 


0175 


T 


0176 


T 


A 39 




A4 




A40 




A50 




A55 




A6 




A8 




Bl 


BITO 




BIT1 




017B 


T 


0147 


T 


0185 


T 


0189 


T 


0193 


T 


0149 


T 


014A 


T 


0004 A 


01B4 


T 


01B5 


T 


BIT2 




BIT3 




B1T4 




BIT5 




BIT6 




BIT7 




BIT8 




CMASK 


CREPLI 


CWRDS 


01B6 


T 


01B7 


T 


01B8 


T 


01B9 


T 


01BA 


T 


01BB 


T 


01BC 


T 


01B1 T 


01B3 


T 


01B2 


T 


FUNCT 




MASK 




MAXP 




MEMDI 




MINI 




NEZ 




NPAT 




NZRO 


ODD 




PATN 




019A 


T 


01A1 


T 


013B 


T 


0120 


T 


019D 


T 


0005 


A 


019C 


T 


0007 A 


0003 


A 


0127 


T 


PBASE 




PCNT 




PEND 




PLAST 


PPNT 




PREPL 


PSTRT 


PWRDS 


PZRO 




RO 




0125 


T 


01A0 


T 


0218 


T 


0126 


T 


013C 


T 


01 AC 


T 


01A2 


T 


01A7 T 


0002 


A 


0000 


A 


Rl 




R2 




R3 




STORE 


TEND 




TESTS 


TSTAD 


TSTRT 


VRFY 




ZRO 




0001 


A 


0002 


A 


0003 


A 


0213 


T 


019F 


T 


01BD 


T 


019E 


T 


019B T 


01FC 


T 


0001 


A 



D6FC 7E99 



> 

00 



IMPASP8K 



REVISION-G 05/16/74 
IMPASP8K 0000369A 6/24/74 



0000 
0000 
0000 
0000 
0000 
0000 
0000 



8 0000 

9 0000 

10 OOOD 
OOOE 
OOOF 
0010 
0011 

11 0012 

12 0013 

13 0014 

14 0015 

15 0016 

16 0017 

17 0018 

18 0019 

19 001A 

20 001B 

21 001C 

22 001D 

23 001E 

24 001F 

25 0020 

26 0021 

27 0022 
2 8 002 3 

29 0023 

30 0250 

31 0250 

32 0250 

33 0250 

34 0250 

35 0250 

36 0250 

37 0250 

38 0250 

39 0250 



0001 
FFFF 

OOOD 

0250 

0266 

02A6 

028E 

03FB 

0013 

0014 

02A3 

0410 

0472 

0442 

04F7 

04F4 

0439 

02E6 

04DO 

045D 

001F 

0020 

0021 

0022 

0023 



, TITLE IMPASP8K, • 0000369A 6/24/74* 
SUBROUTINES NEEDED BY IMP 16 ASSEMBLER 

***** *********** ****** * * ** * * * * * ** * * ** * 

SIZE8=1 
SIZE4=-SIZE8 

.ASECT 



INBUFB: 
INBUFE: 



A 
A 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 

A DSKOBJ: 
A DSKINJ 
A DSKTMP : 
A ABST: 
A DSKERR: 



PRINT: 



•=0D 
• WORD 



• =• + 1 

• = .+1 

• WORD 

• WORD 

• WORD 

• WORO 

• WORD 

• WORD 

• WORD 

• WORD 

• WORD 

• WORD 
.=•+1 

• +1 
. = .+1 
.=• + 1 
. = • + 1 

• IF 

•=0250 



MULT* DIVD» GETC» PUTCt RDCRD 



ECHOGC 

LINIT 

WOSKTM 

WOSKOB 

RDSKIN 

RDSKTM 

HSPRT 

MESS 

CLOSET 

CLOSEO 



SIZES 

0250 A •=0250 ;****************************** 

; ******* ******** *********^***^^jjc*^^^^^^ 

0000 A R0=0 

0001 A R 1=1 

0002 A R2=2 

0003 A R3=3 

0001 A Z=l 

0002 A P=2 

0003 A 0DD=3 

0004 A B1EQ1=4 

0005 A NZ=5 



40 0250 

41 0250 0002 

42 0250 OOOB 

43 C250 0002 
0250 0003 
0250 0000 
0250 0001 
0250 0002 
0250 0003 
0250 

50 0250 

51 0250 

52 0250 

53 0250 

54 0250 

55 0250 

56 0251 



44 
45 
46 
47 
48 
49 



A912 
AD12 



57 0252 4E00 



• PAGE 

$PSIGN=2 
$NRGT0=1 1 
$SELFF=2 
$BIT0=3 
AC0=0 
AC1 = ! 
AC2=2 
AC3=3 



•MULT/DIV ROUTINES' 



MULT 



MAIN CALLING PROGRAM 



SUBROUTINE MULT 



ST 
ST 
LI 



AC2,$S2 
AC3,$S3 
AC2.0 



;CLEAR AC2 



1 



IMPASP8K 



58 


02 53 


4F1 0 


A 




LI 


AC3 f lo 


•DTT mi IMT- 1 iL 


59 


0254 


5000 


A 




CA I 


ACQ* 0 


• r DMDI CUC MT A/*rv TO C t tin i t f w 

9 lUMrLtrlt N 1 ALO TO SIMPLIFY 


60 


0255 












• QD A Mr UT Mr n m iiiii t T rsi r rn r\ t t r 

»DKAI\|LHlNb UN MULTIPLIER BITO 


6 I 


0255 


OA 00 


A 




SFLG 


$SELFF 


• T Mr i 1 1 rc 1 TMl/ Tm p i i i pt r 

t INLLUCb LINK IN SHIFTS 


62 


0256 


5E01 


A 




SHL 


AC 2 , 1 


;CLtAR LINK 


63 


02 57 


13 01 


A 


$LOOP: 


BOC 


$B ITO , • +2 


;BRANCH IF ACO C0MPLEMENTED=0 


64 


0258 


3600 


A 




RAOD 


AC1 »AC2 


; ACl + AC2 — > AC2 


65 


0259 


5 AFF 


A 




ROR 


AC2» 1 


;R0TATE RESULT OF AOD INTO LINK 


66 


025A 


5CFF 


A 




SHR 


ACOf 1 


;SHIFT LINK INTO ACO 


67 


025B 


4BFF 


A 




AI SZ 


AC3 t -1 


;DECR COUNT, SKIP IF ZERO 


68 


025C 


21 FA 


A 




JMP 


$LOOP 




69 


025D 


31 81 


A 




RCPY 


ACO t AC1 


;MCVE LO ORDER RESULT TO ACl 


70 


025E 


3881 


A 




RCPY 


AC2 »ACO 


;MOVE HI ORDER RESULT TO ACO 


71 


02 5 F 


8004 


A 




LO 


AC3i $S3 




72 


0260 


8902 


A 




LD 


AC2,$S2 




73 


0261 


0A80 


A 




PFLG 


$SELFF 


;CLEAR SELF 


74 


0262 


0200 


A 




RTS 






75 


0263 


0264 


A 


$ S2: 


.=. + 1 






76 


0264 


0265 


A 


$S3: 


. = • + 1 






77 


0265 






» 








78 


0265 






* 


SUBRCUTINE OIVD 




79 


0265 














80 


02 65 


0000 


A 


$COUNT: 


.WORO 


0 




8 L 


02 66 


A924 


A 


D I VD : 


ST 


AC2,$SAV2 


;SAVE AC2 


82 


0267 


3281 


A 




RCPY 


AC0,AC2 




83 


0268 


5001 


A 




CAI 


AC0,1 




84 


0269 


3C00 


A 




RAOD 


AC3,AC0 


; SUBTRACT HI ORDER FROM DIVISOR 


85 


026 A 


1B1 0 


A 




30 C 


$NRGT0,$OVFLW 


;IS HI ORDER >= DIVISOR 


86 


026B 


4CF0 


A 




LI 


ACO ,-16 


;no 


87 


026C 


A1F8 


A 




ST 


ACO,$COUNT 


; SET C0UNT=16 


88 


02 60 


OAOO 


A 




SFLG 


$SELFF 


;SET SELX 


89 


026E 


4C00 


A 




LI 


ACO ,0 




90 


026F 


5C01 


A 




SHL 


AC0,1 


; CLE AR LINK 


91 


0270 


5D01 


A 




SHL 


AC1,1 




92 


0271 


5A01 


A 


SPOOL: 


ROL 


AC2,1 


; ROTATE HI ORDER LEFT WITH LINK 


93 


0272 


3881 


A 




RCPY 


AC2,AC0 




94 


0273 


5001 


A 




CAI 


AC0,1 




95 


0274 


3C00 


A 




RAOD 


AC3,AC0 


; SUBTRACT HI ORDER FROM DIVISOP 


96 


0275 


1B03 


A 




BOC 


$NRGTO,$GOES 


; IS HI ORDER >= DIV ISOR 


97 


0276 


4C00 


A 




LI 


ACO,0 


;no 


98 


0277 


5C01 


A 




SHL 


AC0,1 


;CLEAR LINK 


99 


0278 


2104 


A 




JMP 


$SHFTL0 




100 


02 79 


5001 


A 


$GOES: 


CAI 


AC0,1 


;yes 


101 


027A 


3281 


A 




RCPY 


AC0,AC2 


;HI ORDER = HI ORDER - DIVISOR 


102 


027B 


4CFF 


A 




LI 


AC0,-1 




103 


027C 


5C01 


A 




SHL 


AC0,1 


;set link 


104 


0270 


5901 


A 


$ SHFTLO 


:ROL 


AC1 ,1 


.ROTATE LO ORDER WITH LINK LEFT 


105 


02 7 E 


79E6 


A 




ISZ 


$C0UNT 


;ARE WE DONE? 


106 


02 7 F 


21F1 


A 




JMP 


SPOOL 


;NO 


107 


0280 


3481 


A 




RCPY 


ACl, ACO 


; YES 


108 


0281 


1201 


A 




BOC 


$ PS I GN ? • +2 


;IS RESULT N EG 


109 


0282 


2105 


A 




JMP 


SOVFLW 


;YES, OVERFLOW 


110 


0283 


3881 


A 




RCPY 


AC2,AC0 


;N0 MOVE REMAINDER TO AC0,QUOT 


111 


02 84 












;IN ACl 


112 


0284 


0A80 


A 


$ DONE : 


PFLG 


$SELFF 


; CL E AR SELX 


113 


02 85 


8905 


A 




LD 


AC2,$SAV2 


'.RESTORE AC2 


114 


02 86 


8005 


A 




LD 


AC3,$SAV3 


; RE STORE AC 3 


115 


0287 


0200 


A 




RTS 






116 


0288 


8004 


A 


$0VFLW: 


LD 


AC3,$H7000 




117 


028o 


3F00 


A 




RADD 


AC3,AC3 


;SET OVERFLOW 


118 


028A 


21F9 


A 




JMP 


$DONE 




119 


028B 


0000 


A 


$SAV2: 


.WORD 


0 




120 


02 8C 


0000 


A 


$SAV3: 


• WORD 


0 




121 


028D 


7000 


A 


$H7000: 


• WORD 


X'7000 





IMPASP8K 



122 028E 

123 028E 

124 028E 0029 A 

125 02 8E 0012 A 

126 C29E 0070 A 

127 028E 0009 A 

128 028E 0016 A 

129 028E 0026 A 

130 028E 0038 A 



•PAGE 'TELETYPE I/O - GETC/PUTC 

; TELETYPE DELAY CONSTANTS 

$TA = 41 

$TB = 18 

$TC = 112 

$ EA = 9 

$EB = 22 

$EC = 38 



$TTYAD = 



7*8 



131 028E 

132 028E ; 

133 02 8E 

134 028E 2947 A PUTC: 

136 0290 2110 A 

137 0291 4C30 A 

138 0292 293F A 

139 0293 4E09 A 

140 0294 4F38 A 

141 0295 0603 A 

142 0296 293A A $LP1: 

143 0297 5829 A 

144 0298 4AFF A 

145 0299 2101 A 

146 029A 2104 A 

147 029B 59FF A 

148 029C 3481 A 

149 029D 060? A 

150 029E 21F7 A 

151 029F 4CFF A DONE: 

152 02A0 0603 A 

153 02A1 2130 A 

154 02A2 7E59 A PPUTC: 



.SPACE 


5 


TELETYPE TRANSMIT 


JSR 


SAVE 


J S R 3 


P PUTC 


JMP 


DONE+2 


LI 


R0,030 


JSR 


$DELAY+1 


LI 


R2,9 


LI 


R 3» $TTYAD 


ROUT 


3 


JSR 


SDELAY 


ROL 


ROt $TA 


AI SZ 


R2,-l 


JMP 


0 +2 


JMP 


DONE 


ROR 


Rl tl 


RCPY 


R1,R0 


ROUT 


3 


JMP 


$LP1 


LI 


R0,-1 


ROUT 


3 


JMP 


RET 


• WORD 


07F59 



CHARACTER ROUTINE 



155 

156 

157 

158 

159 

160 

161 

16 2 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 



02A3 

02A? 

02A4 

02A5 

02 A6 

02A6 

02A7 

02A8 

02 A9 

02AA 

02 A8 

02AC 

02AD 

02 AE 

02AF 

02B0 

02 Bl 

02B2 

02B3 

02B4 

02B5 

02 B6 

02B7 

02B8 

02 B9 



2 93 2 
2D2A 
2127 

292F 
2D28 
2124 
0A80 
4F38 
0605 
4E08 
0604 
0402 
1201 
21FD 
4C09 
291F 
58EA 
0402 
1201 
21F4 
792D 
7D2C 
2101 



A ECHOGC: 
A LECO: 
A 



GETC : 
L GET : 



$25: 



-SPACE 5 
JSR SAVE 
JSR3 PGECO 
JMP $X 

GET CHARACTER ROUTINE 



$LP2 : 



JSP 

JSR3 

JMP 

PFLG 

LI 

ROUT 
LI 

ROUT 

RIN 

BOC 

JMP 

LI 

JSR 

ROR 

RIN 

BOC 

JMP 

ISZ 

DSZ 

JMP 



SAVE 
PGETC 
$X 
2 

R3,$TTYAD 

5 

R2 ,8 

4 

2 

2 ,.+2 

e-2 

RO,$EA 
$ DELAY+1 
ROt $E B 

2 

2, ,+2 

$25 

FLAG 

FLAG 

.+2 



3 



IMPASP8K 



180 02BA 0603 A 

181 02BB 2915 A 

182 02BC 5826 A 

183 02BO 040? A 

184 02BE 6125 A 

185 02BF 5DFF A 

186 02CO 3182 A 

187 02C1 4AFF A 
183 02C2 21F4 A 

189 02C3 7921 A 

190 02C4 7020 A 

191 02C5 2104 A 

192 02C6 0603 A 

193 02C7 2909 A 

194 02C8 4CFF A 

195 02C9 0603 A 

196 02CA $11: 

197 02CA 2906 A 

198 02CB 50F8 A 

199 02CC 3481 A 

200 02CD A10D A $X: 

201 02CE 211 0 A 

202 02CF 7E73 A PGECO: 

203 0200 7E3B A PGETC: 



ROUT 


3 


JSR 


$DELAY 


ROL 


RO»$EC 


RI N 


2 


AND 


RO, X8000 


SHR 


Rl t l 


RXOR 


ROtRl 


AISZ 


R2,-l 


JMP 


$LP2 


ISZ 


FLAG 


DSZ 


FLAG 


JMP 


$11 


ROUT 


3 


JSR 


SDELAY 


LI 


R0,-1 


ROUT 


3 


JSR 


$DELAY 


SHR 


Rl,8 


RCPY 


Rl ,R0 


ST 


RO,$REG 


JMP 


RET 


• WORD 


07E73 


.WORD 


07E3B 



204 02D1 

205 02 Dl 

206 02D1 

207 0201 

208 02D1 4C12 A 

209 02D2 5890 A 

210 02D3 48FF A 

211 0204 21F0 A 

212 0205 0200 A 



.SPACE 5 
; DELAY ROUTINE 

$DELAY: 

LI RO f $TB 

ROR RO,$TC 

AISZ R0»-1 

JMP .-2 

RTS 



213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

2 27 

228 

229 

230 

231 



02D6 

02D6 

02D6 

02D6 

02D7 

02D8 

02 D9 

02DA 

02DB 

02DF 

02DF 

02E0 

02 El 

02E2 

02 E 3 

02 E4 

02E4 

02E5 

02E6 



.SPACE 5 

SAVE AND RESTORE REGISTERS ROUTINE 



A104 
A504 
A 904 
AD04 
02 00 
02DF 



SAVE: 



$REG: 



81FB A RET: 
85FB A 
89FB A 
8DFB A 
0200 A 

5 

8000 A X8000: 
02E6 A FLAG: 



ST 

ST 

ST 

ST 

RTS 

. = . + 4 

LD 
LD 
LD 
LD 
RTS 

. WORD 
. = . + 1 

.IF 



ROt $REG 
Rl f $REG+l 
R2 ,$REG+2 
R3,$REG+3 



ROt $REG 
R1,$REG+1 
R2,$REG+2 
R3,$REG+3 



08000 



S IZE8 



4 



IMPASP8K 



232 


02E6 








• r Hb C 


• nilTPHT TITLE MESSAGE 1 


233 


02 E6 






? 






234 


02E6 


4D1 7 


A 


ME5S • 


L 1 


i »tJ 


235 


02E7 


4C0A 


A 




1 T 

Li 


r\ viha 

U t A UA 


236 


02E8 


2C1 A 


A 




1 CD 

J oK 


aOD INT 


237 


02E9 


49FF 


A 




A T C 7 
Al bL 


1 » I 


238 


02EA 


21F0 


A 




JMP 


_ -) 

a - C 


239 


02EB 


8917 


A 




LD 




240 


02EC 


8600 


A 




LD 


1 1 1 2) 


241 


02ED 


4A01 


A 




A T C 1 

AISZ 


2 » 1 


242 


02 EE 


2908 


A 




JSR 


Tunc 
TYrfc 


243 


02EF 


3E 81 


A 




KL r Y 


i » - 


244 


02 F0 


4 A04 


A 




A T C 7 

A I 5 L 


2,4 


245 


02F1 


400E 


A 




L 1 


1,14 


246 


02F2 


2904 


A 




1 C D 

J SK 


T VD C 


24 7 


02 F3 


4C0D 


A 




L I 


0 , X *0D 


248 


02F4 


2C 1A 


A 




ICQ 

JSP 


1 DO T MT 

a) HK 1 IN 1 


249 


02F5 


4C0C 


A 




L I 


A V • A/* 1 

0 , X ■ UL 


250 


02 p 6 


241 A 


A 




JMP 


aPK IN 1 


251 


02F7 












252 


02 F7 


8200 


A 


TYPE : 


■ a 

LD 


0,121 


253 


0?F8 


5808 


A 




ROL 


0,8 


254 


02F9 


6908 


A 




OR 


OA V O A 


25 5 


02FA 


2C1 A 


A 




ICO 

JSR 


a\ KK IN I 


256 


C2FB 


8200 


A 




LD 


0,(2) 


257 


02FC 


6905 


A 




OR 


R0,X80 


253 


02 FD 


2C1 A 


A 




JSR 


2PR INT 


259 


02 FE 


4A01 


A 




AISZ 


2,1 


260 


02FF 


4-9FF 


A 




AISZ 


1,-1 


261 


0300 


21F6 


A 




JMP 


TYPE 


262 


03 01 


0200 


A 




RTS 




263 


03 02 


0080 


A 


X80: 


• WORC 


080 


264 


03 03 








n a r c 
• P A fc t 


IMCCCACCt 

iltoo Hoc 


265 


0303 












266 


0^03 


0304 


A 


HEAD: 


i inn n 
o WuKU 


0 +1 


267 


0304 


0039 


A 




• WOR D 


bU 1 1 U n— • 


268 


0305 


2 020 


A 




A C/~ T T 

• A SL 1 1 


1 Nl AT T DM A 1 C. CM T mNi 01 ITT HR 




0306 


2020 


A 










03 07 


2020 


A 










03 08 


2 04E 


A 










03 0 9 


4154 


* 










030A 


4 94F 


A 










C30B 


4E41 


A 










030C 


4C20 


A 










03 00 


5345 


A 










030E 


4D49 


A 










030F 


434F 


A 










0310 


4E44 


A 










0311 


5543 


A 










031. 2 


544F 


A 










03 I 3 


5220 


A 








269 


0314 


ODO A 


A 




o WUK L 


n nn a 
JUU4 


270 


031 5 


ODOA 


A 




□no r 
• WUH L 


n n a a 
UUUA 


271 


03 16 


ODOA 


A 




• WOR 0 


A A A A 
U JUA 


272 


0317 


2020 


A 




• A5C 11 


* I r\ r i D 




0318 


2020 


A 










03 19 


2020 


A 










031 A 


2020 


A 










0318 


2020 


A 










031C 


2020 


A 










031 0 


2 02 0 


A 










031E 


2 049 


A 










031F 


4050 


A 










0320 


2 03! 


A 










0321 


3620 


A 









IMP ASP 8K 



273 
274 
275 
276 



277 
278 
279 
280 
281 
28 2 
283 
284 



285 



0322 0D0A 
03 23 0O0A 

0324 ODOA 

0325 2020 

0326 2020 

0327 2020 

0328 2020 

0329 2052 
032A 4553 
03 28 4944 
032C 454E 
0320 5420 
032E 4153 
032F 5345 

0330 4042 

0331 4C45 

0332 5220 

0333 ODOA 

0334 ODOA 

0335 ODOA 



0336 
0337 
03 38 
03 39 
03 3A 



ODOA 
ODOA 
ODOA 
ODOA 
5449 



033B 544C 
033C 453A 
0330 2000 



• WORC 

• WORC 

• WORD 
•ASCII 



• WORC 

• WORD 

• WORD 

• WORD 

• WORD 

• WORD 

• WORC 
•ASCII 



ODOA 
ODOA 
ODOA 



ODOA 
CDOA 
ODOA 
ODOA 
ODOA 
ODOA 
ODOA 
•TITLE:* 



RESIDENT ASSEMBLER' 



BOTTOM: • WORD 02000 



286 
287 
288 
289 
290 
291 
29 2 
293 
294 



295 



296 



29 7 



C33E 
03 3E 
033E 
033E 
033E 
03 8E 
038E 
038E 
03 8E 
038F 
0390 
0391 
0392 
0393 
0394 
03 95 
0396 
03 97 

0398 
0399 
039A 
039B 
03 9C 
039D 
039E 
039F 
03A0 
03A1 
03 A 2 
03A3 
03 A4 
03A5 
03A6 
03A7 
03A8 
03A9 
03AA 
03AB 
03AC 



• PAGE 'CARD INPUT ROUTINE - RDCRD * 



0012 A $ B8UF= INBUF B 

0013 A $EBUF=INBUFE 
038E A $BUF2: .=*+80 



0000 
0482 
0006 
0042 
0442 
0222 
0800 A 
0012 A 
0812 
0412 
0422 
080A 
0242 
0400 
0842 
0300 
0200 
0100 
0080 
0040 
0020 
0010 
0008 
0004 
0002 
0001 
0082 
040A 
0822 
OOOA 
020A 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



ASCII CODE TABLE 



$ASCTBL:.WORC 0,0482,6,042,0442,0222,0800,012 



• WORC 08 12, 041 2, 0422, 080A, 0242, 04 00, 0842, 03 00 



•WORD 0 200,0100,080,0*0,020,010,8,4,2,1 



■ WORD 082 ,040A,0822,OA,020A 



6 



IMPASP8K 



293 
299 



500 



301 



302 



303 
304 
305 
306 
307 
303 
309 
310 
31 1 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 



03 AD 
03AE 
03AF 
03B0 
03 61 
03B2 
03B3 
03B4 
03 B5 
03B6 
03 B7 
03B8 
03B9 
03BA 
03BB 
C3BC 
03B0 
03 8E 
03BF 
03C0 
03 CI 
03C2 
03 C3 
03O 
03C5 
03C6 
03C7 
03C8 
03C9 
03CA 
03CB 
03CC 
03CD 
03CE 
03CF 
03CF 
03D0 
0301 
03D2 
0302 
0303 
03 D4 
0304 
03D5 
03D6 
03D7 
03D8 
0309 
03DA 
03 DB 
03 0C 
0300 
030E 
03DF 
03E0 
03E1 
C3E2 
03E3 
03 E4 
03E5 
03E5 
03F6 
03E7 
03 E8 
03E9 



0206 
0022 
0900 
0880 
0840 
0820 
0810 
0808 A 
0804 A 
0802 
0801 
0500 
0480 
0440 
0420 
0410 
0408 
0404 A 
0402 A 
0401 
0280 
0240 
0220 
0210 
0208 
0204 
02 02 
0201 
0882 
0282 
0806 
0406 
0212 
0102 



$CM: 



.WORD 0206,022 

.WORD 0900,0880,0840, 0820,0810,0808,0804,0802,0801 



0000 A 
*C01 A 
2101 A 

4C00 A 
A123 A 



8122 
15 OF 
4F10 
21 04 
711F 
21 p 5 
5CFE 
l^FB A 
8C12 A 
8918 
4D50 
8200 
A300 
4A01 
4B01 
49 FF 
21FA 



, WORD 0 500 , 0480, 0440, 0420 , 0410 , 0408 , 0404, 0402 ,0401 



.WORD 0280,0240,0220,0210,0208,02 04,0202,0201 



•WORC 0882,02 82,0806,0406,0212,0102 



INERR: HALT 



F IRS2: 



Rnr.ARn: 



WTLOOP: 



Si: 



4F10 A 
2100 A 
5CFF A 
1405 A 
810D A 



F IRST: 



OFFLN: 



; TRANSMISSION ERROR 



LI 


0,1 


JMP 


.+2 


LI 


0,0 


ST 


0 ,FSTCD 


LD 


0 » FSTCD 


BOC 


NZR0,FI RST 


LI 


3,CRADDR 


JMP 


.+5 


SKAZ 


0,HCO 


JMP 


INERR 


SHR 


0,2 


BOC 


BIT!, WTLOOP 


LD 


3 ,$BBUF 


LD 


2 ,BBUF2 


LI 


1,80 


LD 


0,(21 


ST 


0,(3) 


AISZ 


2,1 


AISZ 


3 ,1 


AISZ 


1 ,-1 


JMP 


$1 


LI 


3 ,CRADDR 


JMP 


.+1 


SHR 


0,1 


BOC 


BIT1,0NLN 


LD 


0, FSTCD 



BRANCH IF BUSY 
MOVE DATA 



BRANCH IF ONLINE 

CARD READER IS OFFLINE 



7 



IMPASP8K 



334 
335 
336 
337 
338 
' 39 
340 
341 
342 
343 
344- 
345 
346 

34 7 
348 
349 

35 0 
35! 
35 2 
35? 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 



03EA 
03FB 
03 EC 
03EO 
03EE 
03 EE 
03EF 
03F0 
03 Fl 
03F2 
03F3 
03 F4 
C3F5 
03F5 
03F6 
03F7 
03 F8 
03F9 
03F9 
03 F9 
03F9 
03 F9 
03F9 
03F9 
03F9 
03F9 
03FA 
03 ^B 
03F9 

03 FC 
03F0 
03FE 
03F C 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 

04 08 
0409 
040A 
04 OB 
040C 
040D 
040E 
040F 
0410 



1 503 A 
4C01 A 
Al OA A 
0200 A 



8107 A 
3281 A 
2D04 A 
21DD A 
8104 A 
150E A 
0200 A 



ONLN; 



7FD3 A ROCRDP 
033E A BBUF2: 
0001 A FSTCD: 
OOCO A HCO: 



BOC 


NZRO, ONLN 


LI 


0,1 


ST 


0, FSTCD 


PTS 




LD 




RCPY 


0,2 


JSR 


dJRDCRDP 


JMP 


INERR 


LD 


0, FSTCD 


BOC 


NZR0,FIRS2 


PTS 




• WORD 


07F03 


.WORC 


$BUF2 


• WORD 


1 


• WORD 


X'CO 



0004 
0005 
0001 
0002 
OOOC 
0010 
0048 
02D6 
02DF 

2DFD 
29D7 
8C12 
8300 
890F 
F200 
210* 
4 AO! 
E90A 
2! FB 
8907 
D908 
4A20 
ABOO 
4B01 
EC13 
21F2 
25ED 
03AD 
03CE 
038E 



A 
A 
A 
A 
A 
A 
A 
A 
A 

A 
A 
A 
A 
A 
A 
A 
A 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



BIT1 

NZRO 

STATUS 

STNDRD 

POA 

CRADDR 
HSPAD 
ASAVE1 : 
ARET1: 

RDCRD: 



$GETCOL 
$CMPRE ; 



$ FOUND: 



PNTQM: 
$EASCI : 
$BASCI: 



• WORD 
o WORD 

JSR 
JSR 
LD 
:LD 
LD 

SKNE 

JMP 

AISZ 

SKG 

JMP 

LD 

SUB 

AISZ 

ST 

AI SZ 
SKG 
JMP 
JMP 
.WORD 
.WORD 
• WORD 
. END IF 



4 
5 
1 

2 

12 

2*8 

9*8 

SAVE 

RET 

aASAVEl 
RDC ARD 
R3,$BBUF 
R0,0(R3 ) 
P2,$BASCI 
R0,0(R2 » 
$FOUND 
R2,l 

R2,$EASCI 
$CMPRE 
R2, PNTQM 
R2 ,$BASCI 
R2,X»20 
R2,0(R3 ) 
R3,l 

R3, $EBUF 
SGETCOL 
o/ARETl 
$QM 

$ASCTBL+64 
$ASCT8L 



; BRANCH IF FIRST CARD 



384 0410 

385 0410 

386 0410 

387 0410 

388 0410 

389 0410 

390 0410 8117 

391 0411 A1C5 

392 0412 A1D3 

393 0413 8115 

394 0414 A1D2 

395 0415 8114 

396 0416 A1D8 

397 0*17 8113 
39 8 0418 A1D7 
399 0419 8112 



• PAGE »16L INITIALIZATION ROUTINE * 
; 16L INITIALIZATION ROUTINE 
LINIT: 





. IF 


SIZES 


A 


LD 


0,WAIT 


A 


ST 


0 ,WTLOOP 


A 


ST 


CFIRST+l 


A 


LD 


0 , F IRTS 2 


A 


ST 


C=IRST + 2 


A 


LD 


CLONLN 


A 


ST 


0,ONLN+1 


A 


LD 


CLONLN+l 


A 


ST 


0,CNLN+2 


A 


LD 


0 ,L0NLN+2 



8 



IMPASP8K 



400 
401 
402 
403 
404 
405 
406 

40 7 
408 
409 
410 
411 

41 2 
413 
c\u 
415 
416 
417 
418 
419 

42 0 
421 
422 
423 
424 
42 5 
42 6 
427 

42 8 
42«? 
430 
431 
432 

43 3 
434 
435 



436 



041A 

041 B 
0413 
04 IB 
041C 
04 ID 
041E 
041F 
04 IF 

042 0 
0421 
0422 
0423 
0423 
0424 
042 5 
0426 
0427 
04 28 
0428 
0428 
0429 
042A 
042 B 
042C 
042D 
0420 
042D 
042E 
042F 
042F 
0430 
0431 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 



A106 A 



8111 A 
Bl 16 A 
8110 A 
B115 A 



810F 
B114 
810E 
B113 

8100 
B112 
81 0C 
Bill 

0200 



0401 A 
5CFF A 
0602 A 
1C01 A 
21FD A 



3181 A 
0A80 A 



4F00 
2102 

4F01 
AD3C 
028F 
C290 
02A4 
02 A5 
02A7 
02A8 



WAIT: 

FIRTS2 

LONLN: 



LPCC: 

LECOC: 

LGETC: 
LLl: 



ST 


0,ONLN+3 


• END IF 




LD 


RCLPCC 


ST 


K'Jt aJL L L 


LD 


R0,LPCC+1 


ST 


P0,3LLL+1 


LD 


ROtLECOC 


ST 


ROt 3LLL+2 


LD 


n r\ i C^nfil 

KO jLtLUt+1 


ST 


R0,3LLL+3 


LD 


RO, LGETC 


ST 


R0,3LLL+4 


LD 


R0,LGETC+1 


ST 


R0,3LLL+5 


RTS 




.IF 


SIZE8 


R IN 


STATUS 


SHH 


U » 1 


ROUT 


STNDRD 


BOC 


P0A,.+2 


JMP 


a -2 


o END IF 




RCPY 


ROt Rl 


PFLG 


2 


LI 


R3tO 


JMP 


.+3 


LI 


R3,i 


ST 


R3,.+X'3D 


• WORD 


LPCLPC+l, 



R3,.+X'3D 

LPCLPC+l, LEC0,LEC0+1,LGET,LGET+1 



• IF 



SIZE8 



437 


0439 






.PAGE 


'HIGH SPEED PRINTER OUTPUT ROUTINE'. 


438 


0439 










439 


0439 


2D65 


A HSPRT: 


JSR 


3ASAVE 


£-40 


043A 


4F48 


A 


LI 


3,HSPAD 


441 


04 3B 


0607 


A 


ROUT 


7 ; OUTPUT ASCII CHAR 


442 


043C 


1C01 


A 


BOC 


P0A,,+2 


443 


043D 


21FD 


A 


JMP 


.-2 


444 


043E 


040! 


A 


RIN 


STATUS 


445 


043F 


1401 


A 


BOC 


BITl, e +2 


446 


0440 


21 FD 


A 


JMP 


.-2 


447 


0441 


255C 


A 


JMP 


3ARET 



4^8 0442 

449 0442 

450 0442 

451 0442 

452 0442 
45 3 0442 
4*54 0442 

455 04<t2 

456 0443 



2D5C 
801E 



457 0444 6111 



WDSKOB 



.PAGE 
• LOCAL 



•DISK I/O 1 



WRITE DISK OBJECT RECORD 

(Rl)= ADDRESS OF BUFFER CONTAINING OBJECT RECORD 



JSR 

LD 

AND 



3ASAVE 

RO, DSKOB J 
R0,$4000 
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IMPASP8K 



458 0445 1506 A BOC 

459 0446 801 E A LD 

460 0447 A 1 IB A ST 

461 0448 69CD A OR 

462 0449 A01E A ST 

463 044A 8119 A LD 

464 044B A178 A ST 

465 044C 3781 A $100: RCPY 

466 0440 8700 A LD 

467 044E 657C A AND 

468 044F 4902 A AISZ 

469 0450 8300 A $101: LD 

470 0451 2905 A JSR 

471 0452 4B01 A AISZ 

472 0453 49FF A AISZ 

473 0454 21FB A JMP 

474 0455 2548 A JMP 

475 0456 4000 A $4000: .WORD 

476 0457 ; 

477 0^57 ; STORE 

478 0*57 ; 

479 0457 ; 

480 0457 896C A $STOB: LD 

481 0458 A200 A ST 

482 0459 796A A I SZ 

483 045A F96D A SKNE 

484 045B 2101 A JMP 

485 045C 0200 A RTS 

486 045D ; 

487 045D ; WRITE 

488 045D ; 

489 045D CLOSEO: 

490 045D 4100 A PUSH 

491 045E 4300 A PUSH 

492 045F 4CFA A LI 

493 0460 A174 A ST 

494 0461 2D3E A $202: JSR 

495 0462 0007 A .WORD 

496 0463 0464 A DOBS: .=.+1 

497 0464 0580 A ADOBBF: .WORD 

498 0465 0466 A $201: .=.+1 

499 0466 0467 A . = . +1 

500 0467 3081 A NOP 

501 0*68 81FC A LD 

502 C469 2964 A JSP 

503 046A 21F6 A JMP 

504 046B 79F7 A ISZ 

505 046C 81F7 A LD 

506 046D A156 A ST 

507 046E 4700 A PULL 

508 046F 4500 A PULL 

509 0470 81F2 A LD 

510 0471 0200 A RTS 

511 0472 ; 

512 0472 ; WRITE 

513 0472 ; 

514 0472 2D2C A WDSKTM: JSR 

515 0473 8020 A LD 

516 0474 3181 A RCPY 

517 0475 6154 A AND 

518 0476 1508 A BOC 

519 0477 A56B A ST 

520 0478 6D51 A OR 

521 0479 A420 A ST 

522 047A 4C00 A LI 

523 047B A15C A ST 

524 047C A15E A ST 

525 047D 8148 A LD 



NZ,$100 
RO t 0 SKOBJ 
ROtDOBS 
R0»$4000 
R0,DSK0BJ 
RO, ADOBBF 
RO, DOBW 
Rl ,R3 
R1»0(R3) 
Rl ,XFF 
Rl ,2 

R0,0(R3) 

$ST0B ; STORE OBJECT WORD 

R3,l 
Rlt-1 
$101 
3ARET 
04000 

OBJECT WORD (FROM RO) 
(SAVE R1,R3) 

R2,D0BW 

R0,0(R2) 

DOBW 

R2,D0BMX 
. + 2 



OR CLOSE OECK OBJECT FILE 



Rl 
R3 

R0,-6 
R0,$CNT 
3ADSKI0 
7 

DOBUF 



R0,$201 
$ERCK 
$202 

DOBS 

RO, ADOBBF 
RO,DOBW 

R3 
Rl 

R0,DOBS 



DISK TEMPORARY (FROM INBUF) 

3ASAVE 
RO , DSKTMP 
R0,R1 
R0,X4000 
NZ,$50 
Rl »DTMS 
R1,X4000 
Rl, DSKTMP 
R0,0 
RO, LNUM 
RO , I NHALF 
RO, ADINB 
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IMP ASP 8K 



526 
527 
528 
529 
530 
531 
5 32 

53 3 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 

54 8 
549 
550 
551 
55? 
553 
554 
555 
556 
557 
558 

55 9 

56 0 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
59 2 
593 



C47E 
04 7F 
0480 
04 81 
0482 
0483 
0484 
0485 
0486 
0487 
0*88 
0489 
04 8A 
0*8 B 
04 8C 
048D 

048 E 
04 8F 
0490 
0491 
C492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
049A 
049A 
0496 
049C 
049D 
049D 

049 E 
049F 
04 AO 
0* Al 
C4A1 
04A1 
C4AI 
C4A2 
04 A3 
04A4 
04 A 5 
04 A6 
04A7 
04A8 
04A9 

Q&.A A 

04 A B 
04AC 
04AD 
04AE 
04AE 
04AE 
04AE 
04AF 
04B0 
04 Bl 
04B2 
04B3 
04B4 
04B5 
04 B6 
04B7 
04B8 
04 B9 



A143 

7958 

8^57 

291F 

8C12 

4C00 

8700 

F547 

210C 

1103 

C14D 

2924 

21F8 

3481 

F110 

210C 

291F 

FC13 

2109 

4B01 

21F0 

4801 

FC13 

2102 

4B01 

21EC 

C13D 

2914 



$50: 



$53 
$54 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 

A $55: 
A 



$52: 



$51 



4D0D A $60: 
2905 A 
2501 A 

000D A $CR: 
02DF A ARET: 
02D6 A A SAVE : 
054C A AOSKIO: 



3920 A 
8138 A 
1305 A 
A600 
F91B 
2105 
791A 
0200 
4C00 
2903 
21F5 
2930 
0200 



$STR2: 



4000 A 
8912 A 
812A A 
1305 
4400 
5C08 
A200 
7925 
0200 
4400 
C200 
A200 



$70: 



$71: 



$STR1 



$8C: 



ST 




RO t DTMW 


ISZ 




LNUM 


LD 




R 1 1 LNUM 


JSR 




$STR2 


LD 




R3 f I NBUFB 


LI 




R0,0 


LD 




Rl ,0<R3 ) 


SKNE 




Rl , BLANK 


JMP 




$51 


BOC 




Z,$52 


ADD 




R0,HEX80 


JSR 




$STR1 


JMP 




$53 


RCPY 




R1,R0 


SKNE 




RO,$CR 


JMP 




$60 


JSR 




$STR1 


SKNE 




R3-INBUFE 


JMP 




$60 


AISZ 




R3,l 


JMP 




$53 


AISZ 




R0,1 


SKNE 




R3, INBUFE 


JMP 




$55 


AISZ 




R3, 1 


JMP 




$54 


ADD 




R0,HEX80 


JSR 




$STR1 


FINISHED 


LI 




Rl , OD 


JSR 




$STR2 


JMP 




3ARET 


• WORD 




OD 


• WORD 




RET 


• WORD 




SAVE 


o WORD 




DSCIO 


STORE 


2 


CHAR FROM Rl 


LD 




R2 , DTMW 


LD 




ROtlNHALF 


BOC 




ODD, $70 


ST 




Rl ,0(R2 ) 


SKNE 




R2,DINMX 


JMP 




$71 


ISZ 




DTMW 


RTS 






LI 




ROtO 


JSR 




$STR1 


JMP 




$STR2 


JSR 




$WRIT 


RTS 






STORE 


1 


CHAR FROM RO 


PUSH 




RO 


LD 




R2 tDTMW 


LD 




ROtlNHALF 


BOC 




ODD, $80 


PULL 




RO 


SHL 




RO, 8 


ST 




R0,0 (R2 ) 


ISZ 




INHALF 


RTS 






PULL 




RO 


ADD 




R0,0<R2I 


ST 




R0,0(R2) 



; NUM OF BLANKS 



; ANOTHER BLANK 

; NO PRECEDING BLANKS 



; FINISHED 



11 



IMP ASP 8K 



594 


04BA 


F906 


A 




SKNE 


R2 t DINMX 


595 


04BB 


2103 


A 




JMP 


$81 


596 


04BC 


7905 


A 




ISZ 


DTMW 


597 


04BD 


791D 


A 




ISZ 


INHALF 


598 


04BE 


0200 


A 




RTS 




599 


04BF 


291D 


A 


$81: 


JSR 


$WRIT 


600 


04C0 


0200 


A 




RTS 




601 


04C1 


067F 


A 


DINMX: 


• WORD 


DINB+127 


602 


04C2 


04C3 


A 


DTMW: 


.=. +1 




603 


C4C3 


04C4 


A 


DINW: 


• = • + 1 




604 


04O 


04C5 


A 


DOBW: 


• = . + 1 




605 


04C5 


001 F 


A 


ADSKIN: 


.WORC 


DSKIN 


606 


C4C6 


0600 


A 


ADINB: 


• WORD 


DINB 


607 


04C7 


067F 


A 


DINWMX: 


• WORD 


DINB+127 


608 


04C8 


05FF 


A 


DOBMX: 


• WORD 


DOBUF+127 


609 


04C9 


0000 


A 


XOD: 


• WORD 


OD 


610 


04 C A 


4000 


A 


X4000: 


.WORD 


04000 


611 


04CB 


OOFF 


A 


XFF: 


• WORD 


OFF 


612 


04CC 


007F 


A 


X7F: 


• WORD 


07F 


613 


04CD 


0020 


A 


BLANK: 


• WORD 


020 


614 


04CE 






• 






615 


04CE 


8908 


A 


$ERCK: 


LD 


R2,K4 


616 


04CF 


3382 


A 




RXOR 


R2.R0 


617 


04D0 


1501 


A 




BOC 


NZ,.+2 


618 


04D1 


0201 


A 




RTS 


1 


619 


0^D2 


7902 


A 




ISZ 


$CNT 


620 


0403 


0200 


A 




RTS 




62! 


04 D4 


242? 


A 




JMP 


30SKERR 


622 


04D5 


0000 


A 


$CNT: 


• WORD 


0 


623 


0406 


0080 


A 


HEX80: 


• WORD 


080 


624 


04D7 


0004 


A 


K4: 


.WORD 


4 


625 


04D8 


0409 


A 


LNUM: 


• =• + 1 




626 


04 D9 


04DA 


A 


BUFPTR : 


• =. + 1 




627 


04DA 


040B 


A 


I BLKCT: 


.=.+1 




628 


040B 


04DC 


A 


INHALF: 


• =. + 1 




629 


04 DC 


0020 


A 


AOSKTM: 


• WORO 


DSKTMP 


630 


040D 






; 






631 


04DD 






; 


WRITE 


TEMP BUFFER TO 


632 


O^DO 






; 






633 


04DD 






$ ViiRI T: 






6 34 


0*DD 






; 


CLOSE 


TEMP FILE 


635 


04D0 






CLOSET: 






636 


04D0 


4100 


A 




PUSH 


Rl 


637 


04DE 


4300 


A 




PUSH 


R3 


638 


040 F 


4CFA 


A 




LI 


R0,-6 


639 


04E0 


A1F4 


A 




ST 


RO,$CNT 


640 


04E1 


2DBE 


A 


$W2: 


JSR 


3ADSKI0 


641 


04E2 


0007 


A 




• WORC 


7 


642 


04E3 


04E4 


A 


DTMS: 


. = • + 1 




643 


04E4 


0600 


A 




• WORD 


OINB 


644 


04E5 


04E6 


A 


$W! : 


.=. + 1 




645 


04E6 


04E7 


A 




.= . + 1 




646 


04E7 


3081 


A 




NOP 




647 


04E8 


81FC 


A 




LD 


R0,$W1 


648 


04 E9 


29E4 


A 




JSR 


$ERCK 


649 


04EA 


21 F 6 


A 




JMP 


$W2 


650 


04EB 


79F7 


A 




I SZ 


DTMS 


651 


04EC 


4C00 


A 




LI 


R0» 0 


652 


04ED 


A1E0 


A 




ST 


R0» INHALF 


653 


04EE 


81D7 


A 




LD 


ROt ADINB 


654 


04EF 


A1D2 


A 




ST 


RO f DTMW 


655 


04F0 


4700 


A 




PULL 


R3 


656 


04F1 


4500 


A 




PULL 


Rl 


657 


04F2 


81F0 


A 




LD 


ROtDTMS 


658 


04F3 


0200 


A 




RTS 




659 


04F4 






* 






660 


04F4 








READ DISK TEMPORARY 


661 


04F4 













;EVEN=LEFT,ODD=RIGHT 



WRITE 

LOGICAL SECTOR 

BUFFER 

STATUS 

PHYSICAL SECTOR 
ERROR RETURN 
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662 


04F4 


20AA 


A 


RDSKTM: 


JSR 


SASAVE 




663 


04 F5 


80E6 


A 




LD 


R3 f ADSKTM 




664 


04F6 


2102 


A 




JMP 


RDSK 




66 5 


04F7 






• 








666 


04F7 






• 


READ 


DISK INPUT (INTO 


INBUF ) 


667 


04^7 














668 


04 F7 


2DA7 


A 


ROSKIN: 


JSR 


SASAVE 




669 


04F8 


8DCC 


A 




LD 


R3, ADSKIN 




670 


04F9 


8300 


A 


RDSK: 


LD 


R0,0(R3) 




671 


04FA 


3181 


A 




RCPY 


ROtRI 




672 


04FB 


61CE 


A 




AND 


R0.X4000 




673 


04 FC 


1506 


A 




BOC 


NZ,$1 




674 


04FD 






5 


INITIALIZE 




675 


04FD 


A52F 


A 




ST 


Rl tDI NS 




676 


04FE 


6DCB 


A 




OR 


Rlt X4000 




677 


04FF 


A700 


A 




ST 


Rl »0 (R3 ) 




678 


0500 


4C00 


A 




LI 


ROtO 




679 


AT A 1 


A1C1 


A 

«* 




ST 


R0*D INW 




680 


0502 


A1D7 


A 




ST 


RO ♦ I BLKCT 




681 


0503 








READ 


FROM DINS, DINW 




682 


0503 


8012 


A 


$l: 


LD 


RO, INBUFB 




683 


0504 


A1D4 


A 




°,T 


RO , BUFPT R 




68* 


0505 


79BD 


A 




ISZ 


DINW 




68* 


05 06 






5 


LOOP 






686 


0506 


290B 


A 


$3: 


JSP 


$GIOC 




687 


05 07 


B1D1 


A 




o 1 


RO, 3BUFPTR 




688 


0508 


79D0 


A 




I C. 7 
lot 


BUFPTR 




689 


0509 


D1BF 


A 






R0,X0D 




690 


050A 


1106 


A 




DUO 


Z,$3A 


; FINISHED 


691 


050B 


81CD 


A 




i n 


RO, BUFPTR 




692 


050C 


E013 


A 




C Si 


RO, I NBUFE 




693 


050D 


21F8 


A 




1 M D 

Jnr 


$3 


; NEXT 


694 


050E 






? 


C It T D 


EXCESS CHARACTERS 


UNTIL CR 


695 


050E 


2903 


A 




ICO 


$3 IOC 




69 6 


050F 


Dl B9 


A 






R0,X0D 




697 


0510 


15FD 


A 




BOC 


NZ,. -2 




698 


0511 


258C 


A 


$3A: 


J MP 


3ARET 




69° 


0512 






; 








700 


0512 






. 


r c t 

GET 


NEXT I/O CHAR (INTO RO ) (FROM DINS, DINW) 


701 


0512 














702 


0512 


81C7 


A 


$GIOC: 


LD 


RO, I BLKCT 




703 


0513 


15 2C 


A 




BOC 


NZ,$G9 




704 


0514 


81 AE 


A 




LD 


RO-DINW 




705 


05 15 


3381 


A 




nrnv 

KCr Y 


RO ,R3 




706 


0516 


5CFF 


A 




CUD 


R0,1 




707 


0517 


1100 


A 




oUL 


It $G1 


; READ DISK 


708 


0518 


8700 


A 




LD 


R1,0(R3) 




709 


0519 


81C1 


A 




LD 


RO, INHALF 




710 


05 I A 


79C0 


A 




ISZ 


INHALF 




7 11 


051 B 


1302 


A 




BOC 


ODD, .+3 




712 


051C 


5DF8 


A 




SHR 


Rl,3 




713 


0510 


2119 


A 




JMP 


$G2 




714 


051 E 


79A4 


A 




ISZ 


DINW 




715 


051F 


81A3 


A 




LD 


R0,DINW 




716 


0520 


E1A6 


A 




SKG 


R0,DINWMX 




717 


0521 


2115 


A 




JMP 


$G2 




718 


0522 


4C00 


A 




LI 


R0,0 




719 


0523 


A19F 


A 




ST 


R0,DINW 




720 


0524 


2112 


A 




JMP 


$G2 




721 


0525 






? 


READ 


SECTOR 




722 


0525 


A1B5 


A 


$G1: 


ST 


RO, INHALF 




723 


0526 


8107 


A 




LD 


R0,$G4 




724 


0527 


C19B 


A 




ADD 


R0,DINW 




725 


052 3 


A19A 


A 




ST 


R0,DINW 




726 


0529 


4CFA 


A 




LI 


R0,-6 




727 


052A 


A1AA 


A 




ST 


R0,$CNT 




728 


052B 


2D1F 


A 


$G6: 


JSR 


a$ADI0 




729 


052C 


0002 


A 




• WORD 2 


; READ 
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73 0 

731 

732 

73 3 

734 

735 

736 

737 

73 8 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

76^ 



052D 
052E 
052^ 
0530 
0531 
0532 
0533 
05?4 
0535 
05'6 
0537 
0537 
0538 
0539 
053A 
053B 
053C 
053D 
053E 
053E 
053F 
0540 
05 40 
C541 
05^2 
0543 
0544 
0544 
0544 
0545 
0546 
0547 
0548 
0549 
054A 
054B 



0000 
0600 
0000 
0000 
3081 
81FC 
299A 
?1F6 
79F7 
21DB 

3481 
6192 
11D8 
F18E 
2108 
E18F 
0200 

6180 
A19A 

7D99 
3081 
4C20 
02 00 



DINS: 

$G4: 

$G5: 



9505 A 
E581 A 
0200 
4000 
B501 
0200 
04C3 
054C 



$G2: 



$G9: 



$G10; 



.WORD 

• WORD 

• WORD 

• WORD 
NOP 
LD 
JSR 
JMP 
ISZ 
JMP 



0 

DINB 

0 

0 

R0,$G5 
$ ERCK 
$G6 

DINS 
$GIOC 



LOGICAL SECTOR 

BUFFER 

STATUS 

PHYSICAL SECTOR 
ERROR 



CHECK CHAR IN Rl FOR RETURN 



RCPY 
AND 
BOC 
SKNE 
JMP 
SKG 
RTS 

N BLANKS 
AND 
ST 

BLANKS LEFT 

DSZ IBLKCT 

NOP 

LI R0,020 
RTS 

CARRIAGE RETURN 



RltRO 
RO,XFF 
Z,$GIOC 
RO,XOD 
$G10 
RO, X7F 



R0,X7F 
RO, IBLKCT 



$ADW: 
$ADIO: 



LD 

SKG 

RTS 

LI 

ST 

RTS 

• WORD 

• WORD 



Rl,a$ADW 
RltDINWMX 

R1,0 

R1,3$ADW 

DINW 
DSCIO 



CR 

NORMAL CHAR 



766 
767 
76 8 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
78 2 

78 3 
784 
785 
786 
787 
788 
789 
790 
791 
792 

79 3 
794 
795 
796 



054C 
054C 
054C 
O^C 
054C 
054C 
054C 
054C 
056-C 
054C 
05 4C 
05^C 
054C 
05^C 
054C 
054C 
054C 
05^C 
054C 
054C 
054C 
054C 
05 ^C 
054C 
05^c 
05 4C 
05 4C 
054C 
054C 
05 4C 
054C 



0000 A RO 

0001 A Rl 

0002 A R2 

0003 A R3 

* 

OOOC A POA 
000*5 A NPARMS 



0000 
0001 
0002 
0003 
C004 



A OPCODE 
A SECNO 
A MEMAD 
A $STAT 
A DSC AD 



0000 A ERROR 

0001 A NORMAL 



•PAGE 'DISC I/0» 
•LOCAL 

CALLING SEQUENCE 

JSR DSCIO 
(OPERATICN CODE I 
(LOGICAL SECTOR NUMBER) 
(MEMORY BUFFER ADDRESS) 
(STATUS RETURN) 

(ACTLAL DISC ADDRESS REFERENCEC) 
(ERRCR RETURN) 
(NORMAL RETURN) 
0 

= I 
2 
3 

12 
5 

DISC PARAMETERS 
0 
1 
2 
3 
4 

RETURN ADDRESSES 
0 
1 



14 



IMPASP8K 



797 


054C 














79 8 


C54C 








DI SC 


OPERATION CODES 




"?99 


054C 














800 


054C 


0004 


A 


SETADR 




4 


; SET MEMORY ADDRESS 


801 


054C 


0002 


A 


READ 




2 




802 


054C 


0007 


A 


WRITE 




7 




803 


054C 


0003 


A 


RDCHK 




3 




80*- 


054C 


0001 


A 


ROSTAT 




1 




805 


054C 


0005 


A 


RESET 




5 




















807 


054C 








DEVICE ADDRESS 




808 


054C 






.' 








809 


054C 


001 8 


A 


D I SC 


_ 


3*8 




810 


054C 


4600 


A 


DSCIO: 


PULL 


R2 


; OBTAIN PARAMETERS LIST ADDRESS 


81 1 


054D 


4A05 


A 




AIS Z 


R2t NPARMS 




812 


054E 


4200 


A 




PUSH 


R2 




813 


054F 


4AFB 


A 




AISZ 


R 2t -NPARMS 




81 4 


05 5 0 


g?Q2 


A 




LD 


q 0 . MEMAD( R2 ) 




815 


0551 


4F04 


A 


D SO: 


LI 


R 3 1 SETADR 




816 


05 5 2 


0618 


A 




ROUT 


DISC 


; PASS MEM BUFFER ADDR TO DISC 


817 


0553 


1C03 


A 




BCC 


P0A,DS1 




818 


0554 


2919 


A 




JSR 


STATSUB 


: tf^t n r <\C "sTatik 


819 


05 5 5 


0 2 00 


A 




RTS 


ERROR 




820 


0556 


21FA 


A 




JMP 


DSO 




821 


0557 














8 22 


0557 








SCAN 


BAD SECTOR TABl F 

L> I— ' JLV./ 1 Ul\ 1 HULL 


TO TOMPIITF TR APK / <s FT Tf~IR 4nnSFCC 


823 


05 57 














824 


0557 


8201 


A 


D SI : 


LD 


R0,SECN0(R2) 




82 5 


0558 


9C21 


A 




LD 


R3,3ABST 




826 


05 59 


CC21 


A 




ADD 


R 3 1 ABST 




827 


055A 


FC21 


A 


0S2 : 


SKNE 


R3 1 ABST 




82 8 


05 5 8 


2104 


A 




JMP 


DS3 




829 


05 5 C 


E 300 


A 




SKG 


RO, ( R3 j 




830 


055D 


2102 


A 




JMP 


D S3 




831 


055E 


4BFF 


A 




AISZ 


R3,-l 




832 


055F 


2 1FA 


A 




JMP 


DS2 




833 


0560 


DC21 


A 


□ S3 : 


SUB 


R 3, ABST 




834 


0561 


3C00 


A 




RADD 


R3,R0 




835 


0562 


3181 


A 




RCPY 


R0,R1 




836 


0563 


5003 


A 




SHL 


P I, 3 




837 


0564 


6116 


A 




AND 


ROtHOOIF 




8 38 


C565 


6516 


A 




AND 


Ri,HlFOO 




839 


0566 


3400 


A 




RADD 


R 1 , RO 




840 


0567 


A204 


A 




ST 


R0,DSCAD(R2 ) 




841 


0568 














842 


0568 








PERFCRM REQUESTED I/O 


npCD AT TON 
t_ r C t\ « 1 i U IN 


843 


0568 














84&- 


0568 


8 E00 


A 


DS4 : 


LD 


R3,0PC0DE<R2) 




845 


05 69 


061 8 


A 




ROUT 


DISC 




846 


056a 


1C 03 


A 




BOC 


POA, STATSUB 




847 


05 6 B 


2902 


A 




JS* 


STATSUB 




848 


05 6C 


0200 


A 




RTS 


ERROR 




849 


056D 


21 FA 


A 




JMP 


DS4 




850 


056F. 














851 


056E 








READ 


STATUS AND SAVE 




852 


056E 














8 53 


056E 


4F01 


A 


STATSUB 


:LI 


R3 »RDSTAT 


• RFAD nt <sT <;tatiiq 


854 


05 6F 


041 8 


A 




RIN 


DISC 




855 


0570 


A203 


A 




ST 


R0,$STAT(R2) 


; SA VE 


856 


05 7 1 


710B 


A 




SKAZ 


R0,H00C0 


; TEST XMISSION ERROR DR DATA nVFRRIIW 


857 


0572 


0200 


A 




RTS 


ERROR 




858 


05 73 


710A 


A 




SKAZ 


R0,H0004 


; TEST DISC ON-LINE 


859 


0574 


2103 


A 




JMP 


STl 




860 


0575 


^F05 


A 




LI 


R 3t RE SET 


; NOT ON-LINE - RESET DISC 


861 


05^6 


0618 


A 




ROUT 


DISC 




86 2 


0577 


0200 


A 




RTS 


ERROR 




86 3 


0578 


7106 


A 


STl: 


SKAZ 


R0,H0008 


; TEST BUSY BIT 


864 


0579 


21F4 


A 




JMP 


STATSUB 


; DISC STILL BUSY 



15 



IMPASP8K 



865 


057A 


0201 


A 




RTS 


NORMAL 


866 


057B 


001F 


A 


H001F: 


• WORD 


X»1F 


e67 


057C 


1F00 


A 


H1F00: 


• WORD 


X'IFOO 


868 


05 70 


OOCO 


A 


HCOCO: 


.WORD 


X'CO 


869 


057E 


0004 


A 


H0004: 


• WORC 


4 


87 0 


057F 


0008 


A 


H0008: 


• WORD 


8 


871 


0580 


0600 


A 


DOBUF : 


.=.+128 




872 


0600 


0680 


A 


DINB: 


.=.+128 




873 


0680 








• END 





; ALSO USED AS TEMP BUFFER 



* **** * 



0 ERRORS IN ASSEMBLY ****** 



$1 




$1" 




$100" 




$101" 




$11 




$201" 




$202" 


$25 




$3" 


$3A" 


03DF 


A 


0503 


A 


044C 


A 


0450 


A 


02CA 


A 


0465 


A 


046 1 A 


02AB 


A 


0506 A 


0511 A 


$4000 


it 


$50" 




$51" 




$52" 




$5 3" 




$54" 




$55" 


$60" 




$70" 


$71" 


0*56 


A 


047 F 


A 


049 3 


A 


048B 


A 


0483 


A 


048* 


A 


0498 A 


049A 


A 


04 A 9 A 


04AC A 


$80" 




$81" 




$ADIO 


•i 


$ADW" 




$ASCT 




$BASC 




$BBUF 


$BIT0 


$BUF2 


$CMPR 


04B7 


A 


04BF 


A 


054B 


A 


054A 


A 


038E 


A 


040F 


A 


0012 A 


0OC3 


A 


03 3E A 


0400 A 


$CNT» 




$COUN 




$CR" 




$DELA 


$DONE 




$E A 




$EASC 


$EB 




$EBUF 


$EC 


04D5 


A 


0265 


A 


049D 


A 


0201 


A 


0284 


A 


0009 


A 


040E A 


0016 


A 


0013 A 


0026 A 


$ ERCK 


ii 


$FOUN 




$G1" 




$G10" 


$G2" 




$G4" 




$G5" 


$G6" 




$G9 " 


$GETC 


04CE 


A 


0406 


A 


0525 


A 


0544 


A 


0537 


A 


052E 


A 


052F A 


052B 


A 


0540 A 


03FE A 


$GIOC 


it 


$GOES 




$H700 




$LOOP 




$LP1 




$LP2 




$NRGT 


$OVFL 




$POOL 


$PSIG 


0512 


A 


0279 


A 


028D 


A 


0257 


A 


0296 


A 


02B7 


A 


OOOB A 


0288 


A 


0271 A 


0002 A 


$QM 




$REG 




$S2 




$S3 




$SAV2 




$SAV3 




$SELF 


$SHFT 




$STAT# 


$STOB" 


03 AD 


A 


02DB 


A 


0263 


A 


0264 


A 


028B 


A 


028C 


A 


0002 A 


027D 


A 


0003 A 


0457 A 


$STR1 


•« 


$STR2 


ii 


$TA 




$TB 




$TC 




$TTY A 




$W1" 


$W2" 




$WRIT" 


$X 


04AE 


A 


04A1 


A 


0029 


A 


0012 


A 


0070 


A 


0038 


A 


C4E5 A 


04E1 


A 


04DD A 


02CD A 


ABST 




ACO 




AC1 




AC2 




AC3 




ADINB 




ADOBBF 


ADSKIN 


ADSKIO 


ADSKTM 


0021 


A 


0000 


A 


0001 


A 


0002 


A 


0003 


A 


04C6 


A 


0464 A 


04C5 


A 


C4A0 A 


04 DC A 



ARET 


ARET! 




A SAVE 


ASAVE1 


049E A 


03FA 


A 


049F A 


03F9 A 


CLOSEO 


CLOSET 


CRADDR 


DINB 


045D A 


04DD 


A 


0010 A 


0600 A 


DOBMX 


DOBS 




DOBUF 


DOBW 


0*C8 A 


0463 


A 


0580 A 


04C4 A 


DSC AD 


DSCIO 




DSKERR 


DSKIN 


000* A 


054C 


A 


0022 A 


001F A 


FIRS2 


F IRST 




FIRTS2 


FLAG 


03D2 A 


03E5 


A 


042 9 A 


02E5 A 


H1F00 


HCO 




HEAD 


HEX80 


057C A 


0 3F8 


A 


0303 A 


04D6 A 


INHALF 


K4 




LECO 


LECOC 


0<+DB A 


04D7 


A 


02A4 A 


042F A 


LPC 


LPCC 




MEMAD 


MESS 


028F A 


042D 


A 


000 2 A 


02E6 A 



B1EQ1 BBUF2 
0004 A 03F6 / 

DINMX DINS 
04C1 A 052D * 

DONE DSO 



FSTCD GETC 



MULT 



BIT1 


BLANK 


BOTTOM 


BUFPTR 


0004 A 


04CD A 


033D 


A 


04 D9 A 


DINW 


DINWMX 


CISC 




DIVD 


04C3 A 


04C7 A 


0018 


A 


0266 A 


DS1 


DS2 


DS3 




DS4 


0557 A 


055A A 


0560 


A 


0568 A 


DTMS 


DTMW 


ECHOGC 


ERROR 


04E3 A 


04C2 A 


02A3 


A 


0000 A 


HO 004 


H0008 


H001F 


HOOCO 


057E A 


057F A 


057B 


A 


057D A 


IBLKCT 


INBUFB 


INBUFE 


INERR 


04DA A 


0012 A 


0013 


A 


03CF A 


LINIT 


LLL 


LNUM 




LONLN 


0410 A 


0433 A 


04D8 


A 


042A A 


NPARMS 


NZ 


NZRO 




ODD 


0C05 A 


0005 A 


C005 


A 


0003 A 



16 



IMP ASP 8K 



OFFLN ONLN 
03E9 A C3EE A 

PUTC PO 
028E A 0000 A 

RDSKIN RDSKTM 
04F7 A 04F4 A 

SIZE8 ST1 
0001 A 0578 A 

WTLOOP XOD 
03D7 A 04C9 A 



OPCCOE P 
000C A 0002 A 

Rl R2 
0001 A 0002 A 

RDSTAT READ 
0001 A 0002 A 

STATSU STATUS 
056E A 0001 A 

X4000 X7F 
04CA A 04CC A 



PGECO PGETC 
02CF A 0200 A 

R3 RDCARD 
0003 A 03D4 A 

RESET RET 
0005 A 02DF A 

STNDRD TYPE 
0002 A 02F7 A 

X80 X8000 
0302 A 02E4 A 



PNTQM POA 
040D A OOOC A 

ROCHK RDCRD 
0003 A 03FB A 

SAVE SECNQ 
02D6 A 0C01 A 

WAIT WDSKOB 
0428 A 0442 A 

XFF Z 
04CB A 0001 A 



PPUTC PRINT 
02A2 A 001A A 

RDCRDP RDSK 
03F5 A 04F9 A 

SET ADR SIZE4 
0004 A FFFF A 

WDSKTM WRITE 
0472 A 0007 A 



84BA B09D 



17 



CO 



IMPASM8K 



REVISION-G 01/02/74 
IMPASM 0000370A 6/25/74 



0000 
0000 
0000 
0000 
0000 
0000 
0000 

8 0000 

9 3000 

10 0000 

11 0000 

12 0000 

13 0000 

14 0000 

15 000D 

16 000E 

17 000F 

18 0010 

19 0011 

20 0012 

21 0013 

22 0014 

23 0015 

24 0016 

25 0017 

26 0018 

27 0019 

28 001A 

29 001B 

30 001C 

31 001D 

32 001E 

33 001F 

34 0020 

35 0021 

36 0022 

37 0023 

38 0023 

39 0023 

40 0023 

41 0023 

42 0023 

43 0023 

44 0023 

45 0023 

46 0023 

47 0023 
43 0023 

49 0023 

50 0023 

51 0023 

52 0023 

53 0023 

54 0023 



55 0023 



.TITLE IMPASM8K, '0000370A 6/25/74 
**************************************** 

SIZE8=-1 IF 4K VERSION 
SIZE8=1 IF 8K VERSION 



0001 


A 


SIZES 


- 


1 


FFFF 


A 


SIZE4 


= 

.IF 


-SIZE8 
SIZE8 


1FFF 


A 


STTOP 




8191 


0001 


A 


DBGVER 


— 

. BSECT 


1 


000C 


a 


PNCHMD 




0C 


000D 


B 




.=.+0D 




000E 


B 


MULT: 


. = . + 1 




000F 


B 


DIVD: 


. = . + 1 




0010 


B 


GETC : 


. = . + 1 




0011 


B 


PUTC: 


. = . + 1 




0012 


B 


RDCRD: 


. = . + 1 




06A0 


A 


INBUFB: 


.WORD 


INBOF 


06EF 


A 


INBUFE: 


.WORD 


INBUF+ 


0015 


B 


ECHOGC : 


. = .+1 




0016 


B 


LINIT: 


. = . + 1 




0017 


B 


WDSKTM : 


. = .+1 




0018 


B 


WDSKOB: 


. = .+1 




0019 


B 


RDSKIN: 


. = . + 1 




001A 


B 


RDSKTM: 


. = . + 1 




001B 


B 


HSPRT; 


. = .+1 




001C 


B 


MESS: 


. = . + 1 




001D 


B 


CLOSET: 


.*. + l 




001E 


B 


CLOSEO: 


. = .+1 




FFFE 


A 


DSKOBJ: 


.WORD 


-2 


FFFE 


A 


DSKIN: 


.WORD 


-2 


FFFE 


A 


DSKTMP: 


.WORD 


-2 


1699 


A 


ABST: 


.WORD 


BADSTB 


1343 


A 




.WORD 


DSKERR 



DEBUG ALSO USES THIS LOCATION 



BAD SECTOR TABLE 



**************************************** 



BOC ASSIGNMENTS 



0001 


A 


Z=l 


0002 


A 


P=2 


0003 


A 


ODD=3 


3004 


A 


B1EQ1=4 


0005 


A 


NZ=5 


000B 


A 


LEZ=11 


0000 


A 


R0=0 


0001 


A 


Rl = l 


0002 


A 


R2=2 


0003 


A 


R3=3 


8000 


A 


S=08000 


0008 


A 


ELIM=8 


0000 


A 


ZERO: 


00FF 


A 


K255: 



; NUMBER OF ERRORS LIMIT FOR EACH STATEMENT 



. PAGE 'CONSTANTS 
.WORD 0 
.WORD 255 



1 



IMPASP8K 



58 


0025 


000B 


A 


Kll : 


.WORD 


11 


59 


0026 


0001 


A 


Kl : 


.WORD 


1 


60 


0027 


0003 


A 


K3 : 


.WORD 


3 


61 


0028 


0006 


A 


K6: 


.WORD 


6 


62 


0029 


0008 


A 


K8 : 


.WORD 


8 


63 


002A 


0007 


A 


K7: 


.WORD 


7 


64 


002B 


0009 


A 


K9: 


.WORD 


9 


65 


002C 


0004 


A 


K4 : 


.WORD 


4 


66 


002D 


000F 


A 


K15: 


.WORD 


15 


67 


002E 


FFF0 


A 


XFFF0 : 


.WORD 


0FFF0 


68 


002F 


FFF7 


A 


XFFF7: 


.WORD 


0FFF7 


69 


0030 


8000 


A 


X8000: 


.WORD 


08000 


70 


0031 


6666 


A 


X6666: 


.WORD 


06666 


71 


0032 


0040 


A 


HEX40: 


.WORD 


040 


72 


0033 


005A 


A 


HEX5A: 


.WORD 


05A 


73 


0034 


0020 


A 


HEX20: 


.WORD 


020 


74 


0035 


002F 


A 


HEX2F: 


.WORD 


02F 


75 


0036 


0039 


A 


HEX39: 


.WORD 


039 


76 


0037 


0046 


A 


HEX46 : 


.WORD 


046 


77 


0038 


0030 


A 


HEX30: 


.WORD 


030 


78 


0039 


0037 


A 


HEX37: 


.WORD 


037 


79 


003A 


007F 


A 


HEX7F: 


• WORD 


07F 


80 


003B 


003F 


A 


HEX3F: 


.WORD 


03F 


81 


003C 


002A 


A 


HEX2A: 


.WORD 


02A 


82 


003D 


0400 


A 


HEX400 : 


.WORD 


0400 


83 


003E 


1000 


A 


X1000: 


.WORD 


01000 


84 


003F 


0100 


A 


K256: 


.WORD 


256 


85 


0040 


0002 


A 


K2: 


.WORD 


2 


86 


0041 


0010 


A 


K16: 


.WORD 


16 


87 


0042 


FF00 


A 


XFF00 : 


.WORD 


0FF00 


88 


0043 


0029 


A 


RPAREN: 


.WORD 


') 7256 
'X7256 
' " 7256 


89 


0044 


0058 


A 


CHARX: 


.WORD 


90 


0045 


0027 


A 


QUOTE : 


.WORD 


91 


0046 


0028 


A 


LPAREN: 


.WORD 


'(7256 


92 


0047 


000D 


A 


CR: 


.WORD 


0D 


93 


0048 


2020 


A 


BLANKS: 


.WORD 




94 


0049 


003B 


A 


SEMI : 


.WORD 


';7256 
'.7256 
' : 7256 


95 


004A 


002E 


A 


DOT: 


.WORD 


96 


004B 


003A 


A 


COLAN : 


.WORD 


97 


004C 


003D 


A 


EQUAL : 


.WORD 


'=7256 


98 


004D 


5C00 


A 


SHLIN: 


SHL 


R0,0 


99 


004E 


0024 


A 


DOLLAR: 


.WORD 


'$7256 
V/256 
' + 7256 
'-'/256 
'%'/256 
'&'/256 
'! '/256 


100 


004F 


002C 


A 


COMMA : 


.WORD 


101 


0050 


002B 


A 


CPLUS: 


.WORD 


102 


0051 


002D 


A 


CMINUS: 


.WORD 


103 


0052 


0025 


A 


CNOT: 


.WORD 


104 


0053 


0026 


A 


CAND: 


.WORD 


105 


0054 


0021 


A 


COR: 


.WORD 


106 


0055 


13E8 


A 


ERRBAS : 


.WORD 


ERBUF 


107 


0056 












108 


0056 


0034 


B 


BLANK 


s 


HEX20 


109 


0056 


0038 


B 


CZERO 




HEX30 


110 


0056 


0032 


B 


CAT 




HEX40 


111 


0056 


003C 


B 


CMPY 




HEX2A 


112 


0056 


0035 


B 


CDIV 




HEX2F 



' 7256 
'0'/256 
'§7256 
'*'/256 
77256 



113 


0056 








.PAGE 'VARIABLES' 




114 


0056 








ACTR, BCTR, TCTR, MUST BE 


IN THAT SEQUENCE 


115 


3056 


0000 


A 


ACTR: 


.WORD 0 


?ASECT LOC CTR 


116 


0057 


0000 


A 


BCTR: 


.WORD 0 


;BSECT LOC CTR 


117 


0058 


0000 


A 


TCTR: 


.WORD 0 


;TSECT LOC CTR 


118 


0059 


005A 


B 


AMAX: 


. = . + 1 





2 



IMPASM8K 



119 


005A 


005B 


B 


BMAX: 


. = . +1 










120 


005B 


005C 


B 


TMAX : 


.= .+1 










121 


005C 


0000 


A 


LOCCTR: 


.WORD 


0 




; CURRENT LOC CTR 


122 


005D 


0000 


A 


PASS: 


.WORD 


0 




;PASS1 =0 , PASS2 =NON ZERO 


123 


005E 


06A0 


A 


INPTR: 


.WORD 


INBUF 




; POINTS TO NEXT INPUT CHAR. 


124 


005F 


0060 


B 


LCPTR: 


.*. + l 


;LAST 


ACTIVE CHAR PTR (USED BY ERROR) 


125 


0060 


0000 


A 


BASE: 


.WORD 


0 








126 


0061 


0000 


A 


TOP: 


.WORD 


0 








127 


0062 


0000 


A 


NEXT: 


.WORD 


0 








128 


0063 


16C1 


A 


BASEA: 


.WORD 


STBAS 








129 


0064 


1FFF 


A 


TOPA: 


.WORD 


STTOP 








130 


0065 


1FFF 


A 


NEXTA: 


.WORD 


STTOP 








131 


0066 


16C1 


A 


BASEB: 


.WORD 


STBAS 








132 


0067 


1FFF 


A 


TOPB: 


.WORD 


STTOP 








133 


0068 


1FFF 


A 


NEXTB: 


.WORD 


STTOP 








134 


0069 


006A 


B 


XINOK: 


. = . + 1 






; EXTENDED INSTRUCTIONS OK? 0=NO 


135 


006A 


006B 


B 


MOFLAG: 


. = . + 1 






^MULTIPLE OUTPUT FLAG 0=1ST 1=SUBSEQ. 


136 


006B 


0003 


A 


SECT: 


.WORD 


3 




; SECTION 1=ASECT 2=BSECT 3=TSECT 


137 


006C 


0000 


A 


LOCREG : 


.WORD 


0 




t LOCAL REGION NUMBER (0 TO 255) 


138 


006D 


070E 


A 


IFPTR: 


.WORD 


IFTAB 


-1 






139 


006E 


070E 


A 


IFPTRA: 


.WORD 


IFTAB 


-1 


; INITIALIZATION FOR IFPTR 


140 


006F 


0000 


A 


IFSTAT: 


.WORD 


0 ; 


IFSTATUS 0 




*ENDIF LAST 2=IF LAST 4=ELSE LAST 


141 


0070 


0001 


A 


IFMODE: 


.WORD 


1 






0=SKIP l=NO SKIP 


142 


0071 


003C 


A 


PGRL: 


.WORD 


60 






NUM OF LINES REMAINING ON PAGE 


143 


0072 


0000 


A 


IVAL: 


.WORD 


0 






INSTR. VALUE FROM DI TABLE 


144 


0073 


0000 


A 


ICLASS: 


.WORD 


0 






INSTR CLASS DI TABLE 


145 


0074 


0000 


A 


FORMPT : 


.WORD 


0 






SYMBOL TABLE FORM PTR 


146 


0075 


0076 


B 


F0RM3: 


. = . + 1 








FORM BEGIN FIELD BITS 


147 


0076 


0077 


B 


FORMT: 


. = .+1 








FORM TERMINAL FIELD BITS 


148 


0077 


0078 


B 


FORMM : 


. = . + 1 








FORM FIELD MASK 


149 


0078 


0079 


B 


FORMBN : 


. = . + 1 








•FORM BEGINNING BIT NUMBER 


150 


0079 


Ck nt ~7 7v 

007A 


B 


T71 r\ y\ kg mti 

FORM IN : 


* = . +1 








•FORM TERMINAL BIT NUMe 


151 


007A 


0000 


A 


EXPVAL: 


.WORD 


0 






VALUE FROM EXP. ROUTINES 


152 


007B 


007C 


B 


EXPPD: 


. = . + 1 








•EXP PREVIOUS DEF FLAG 


153 


007C 


007D 


B 


EXPREL: 


. = .+1 








• EXP RELOCATION CODE 


154 


007D 


0000 


A 


NAM0: 


.WORD 


0 








155 


007E 


0000 


A 


NAM1 : 


.WORD 


0 








156 


007F 


0000 


A 


NAM2: 


.WORD 


0 








x _> / 


8080 


8088 


n 

f~> 


CNAM8 : 


.WORD 


8 








158 


0081 


0000 


A 


CNAM1 : 


.WORD 


0 








159 


0082 


0083 


3 


STVAL : 


. = . + 1 








•SYMBOL TALBE VALUE 


1 r rt 
AO V 


n fx n -» 


n ra o a 


B 


c m nnnn _ 

oxxruoc i 


• 1 

. — . T JL 








. puunnr mmr D nnmi r\PDTnTmr r\K7 pr >P 
' 0 x nouu inDuo ri\ov • uur iihiiuh c un\j 


161 


0084 


0085 


B 


STREL : 


.= .+1 








•SYMBOL TABLE RELOCATION FLAG 


162 


0085 


0086 


B 


STPT: 


.= .+1 








•SYMBOL TABLE PRT. 


163 


0086 


0087 


B 


ITVAL: 


. = .+1 


» 






•ITEM VALUE 


164 


0087 


0088 


B 


ITREL: 


.= .+1 








j ITEM RELOCATION 


165 


0038 


0089 


B 


EC: 


.= .+1 








•ERROR COUNT 


166 


0089 


0001 


A 


INDEV: 


.WORD 


1 






•INPUT DEVICE 0=CR 1=KB 2=PT 


167 


008A 


00 8 B 


B 


LBLPT: 


. = .+1 








•LABEL PRT, USED BY ASSIGN DIRECTIVE 


168 


008B 


008C 


B 


ERRPT: 


. = . + 1 








•POINTS TO NEXT ERROR ENTRY 


169 


008C 


008D 


B 


LCNT1 : 


. = . + 1 








;DEC LINE CNT FOR PRINTING1 ('0'/256) 


170 


008D 


003E 


B 


LCNT2 : 


. = . + 1 








r DEC LINE CNT FOR PRINTING2 (06666 = 0) 


171 


008E 


008F 


B 


LISTMD: 


. = . + 1 








•VALUE FROM LAST LIST DIRECTIVE 


172 


008F 


0001 


A 


ERRLST: 


.WORD 


1 






; ERROR LISTING REQUESTED l=NO 0=YES 


173 


0090 


0091 


B 


OBJMOD : 


. = . + 1 








?0=NO OBJECT MODULE NZ=OBJ MOD 


174 


0091 


0001 


A 


NOLI ST: 


.WORD 


1 






?0=NO LISTING 


175 


0092 


0093 


B 


NOCOM: 


. = .+1 


7 t ~~ 


NO COMMENT 


PRINTING 


176 


0093 


0094 


B 


NOMAP : 


. = . + 1 


; NO 


MAP FLAG 0= 


NONE 


177 


0094 


FFFE 


A 


IDSKIN: 


.WORD 


-2 






; -2=NO, OTHER= INITIAL LOGICAL SECTION 


178 


0095 


FFFE 


A 


IDSKTM: 


.WORD 


-2 






; -2=NO, OTHER= INITIAL LOGICAL SECTION 


179 


0096 


0000 


A 


HSPR: 


.WORD 


0 






', l=NO, 0=HIGH SPEED PRINTER 


180 


0097 


0000 


A 


TYPMOD : 


.WORD 


0 






; 0=PRINT r NZ=TYPE OR PUNCH 


1R1 


0098 








.IF 


DBGVER 







3 



IMPASM9K 



182 0098 0000 A ERDEB: .WORD 0 

183 0099 0000 A MAPDEB: .WORD 0 

184 009A .ENDIF 



;l=ERROR DEBUG MODE 
;1=MAP DEBUG MODE 



185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

209 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 



009A 

009A 

009A 

009A 

0000 

06A0 

06F0 

070E 

070F 

0719 

072B 

072C 

072C 

072C 

072C 

072C 

072C 

072D 

072E 

072F 

0730 

0730 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0739 

0739 

073A 

073B 

073C 

073D 

073E 

073F 

0740 

0741 

0742 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

074A 

074B 

074C 

074D 

074E 

074F 

0750 



06A0 A 
06F0 A 
070E A 
070F A 
0719 A 
072B A 
0000 A 



4CD8 A 
8937 A 
8C21 B 
8600 A 
A700 
4A01 
4B01 
4801 
21FA 



4C01 A 
A089 B 
A096 B 
A097 B 
4C00 A 
A00C A 
A05D B 
9C9A I 
2C9B I 



2C9C 
21E8 
290E 
210A 
1101 
A063 B 
A464 B 
A467 B 
2C9D 
2104 
2906 
2102 
A06 6 B 
A467 B 



.PAGE 'INITIALIZATION AND START' 
. LOCAL 

.************************************* 

.ASECT 

.=06A0 

INBUF: .=.+80 
PGSTRG: .=.+30 

. = .+1 
IFTAB: .=.+10 
TTLBUF: .=.+18 

.WORD 0 

.ENDIF 

.************************************* 



; PAGE STRING BUFFER 
?IF TABLE 



START : 



8D3B A 
0418 A 
4801 A 
2C15 B 



NEW1: 



IMP 16/L TEST 

LD R3,HEX760 

RIN 018 

AISZ R0,1 

JSR @LINIT 

.IF SIZE8 

MOVE BAD SECTOR TABLE 



LI 

LD 

LD 

LD 

ST 

AISZ 

AISZ 

AISZ 

JMP 

.ENDIF 



R0,-40 
R2 , LABST 
R3 , ABST 
R1,0(R2) 
R1,0(R3) 
R2,l 
R3 f 1 
R0,1 
NEW1 



$2; 



LI R0,1 

ST R0,INDEV 

ST R0 , HSPR 

ST R0 r TYPMOD 

LI R0,0 

ST R0 , PNCHMD 

ST R0 r PASS 

LD R3 , MSGBEG 

JSR ONLMSG 
READ MEMORY SIZE 

JSR RDTTY 

JMP START 

JSR GSIZE 

JMP $2 

BOC Z,. + 2 

ST R0 , BASE A 

ST Rl,TOPA 

ST Rl,TOPB 

JSR GCOMMA 

JMP $2 

JSR GSIZE 

JMP $2 

ST R0 f BASEB 

ST Rl,TOPB 



;USE DEFAULT SIZE 



;GET ALTERNATE REGION SIZE 



4 



IMPASM8K 



243 


0750 


2C9E 


I 




JSR 


GNVC 


244 


0751 


2118 


A 




JMP 


NEWASM 


245 


0752 


21D9 


A 




JMP 


START 


246 


0753 






? 


END OF 


MEMORY SIZE INPUT 


247 


0753 






; 






248 


/IT r 1 

0753 






i 


GET SIZE PAIR 


249 


0753 






i 






250 


0753 












251 


0753 


290E 


A 




JSR 


$GDEC 


252 


0754 


/loan 

0200 


* 
A 




RTS 




253 


0755 


A511 


A 




ST 


R1,$TMP 


254 


0756 


2C9E 


I 




JSR 


GNVC 


255 


0757 


2108 


A 




JMP 


$3 


256 


0758 


F04B 


B 




SKNE 


R0,COLAN 


257 


0759 


2101 


A 




JMP 


. + 2 


258 


075A 


2105 


A 




JMP 


$3 


259 


075B 


2906 


A 




JSR 


$GDEC 


260 


075C 


2103 


A 




JMP 


$3 


261 


075D 


8109 


A 




LD 


R0,$TMP 


262 


075E 


D426 


B 




SUB 


R1,K1 


263 


075F 


0201 


A 




RTS 


1 


264 


0760 


7C5E 


B 


53: 


DSZ 


INPTR 


265 


8761 


0200 


A 




RTS 


0 


266 


0762 












267 


0762 






? 


GET DECIMAL VAL FOR SIZE 


268 


0762 












269 


0762 


2C9F 


I 


$GDEC: 


JSR 


GITEM 


270 


0763 


0200 


A 




RTS 




271 


0764 


8485 


B 




LD 


Rl t ITVAL 


272 


0765 


5O0A 


A 




SHL 


Rl,10 


273 


0766 


0201 


A 




RTS 


1 


274 


0767 


0768 


A 


$TMP ; 


. = .+1 




275 


0768 


0760 


A 


HEX760: 


.WORD 


0760 


276 


0769 


1E63 


A 


LABST t 


.WORD 


01E63 


277 


076A 








.PAGE 


'NEW ASSEMBLY' 


278 


076A 








.LOCAL 




279 


076A 












280 


076A 






* 


BEGIN NEW ASSEMBLY 


281 


076A 












232 


S 76 A 


4C0S 


A 


NEWASM • 


T T 
Ul 


d«i a 

*\ M f V 


283 


076B 


A00C 


A 




ST 


R0 ,PNCHMD 


284 


076C 


A05D 


B 




ST 


R0 r PASS 


285 


076D 


A069 


B 




ST 


R0,XINOK 


286 


076E 


A090 


B 




ST 


R0,OBJMOD 


287 


076P 








.IF 


DBGVER 


288 


076F 


A098 


B 




ST 


R0 , ERDEB 


289 


0770 


A099 


B 




ST 


R0 r MAPDEB 


290 


0771 








. ENDIF 




291 


0771 


A05A 


B 




ST 


R0 , BMAX 


292 


0772 


A05B 


B 




ST 


R0 , TMAX 


293 


0773 


B0A0 


I 




ST 


R0 , PTRTAB 


294 


0774 


B0A1 


I 




ST 


R0,PTREND-1 


295 


0775 


A1AA 


A 




ST 


R0,TTLBUF+7 


296 


0776 


8064 


B 




LD 


R0 r TOPA 


297 


0777 


A065 


B 




ST 


R0 f NEXTA 


298 


0778 


8067 


B 




LD 


R0 , TOPB 


299 


0779 


A068 


3 




ST 


R0 , NEXTB 


300 


077A 


4C01 


A 




LI 


R0,1 


301 


077B 


A093 


B 




ST 


R0 , NO MAP 


302 


077C 


A097 


B 




ST 


R0 r TYPMOD 


303 


077D 


A089 


B 




ST 


R0 , INDEV 



i ERROR-EXTRA DATA 



; FORCE ERROR 
; FORCE ERROR 

f INPUT CHAR PTR ; FORCE ERROR 



; VAL* 10 24 



; 0=PASS 1 

0» EXTENDED INSTR ILLEGAL 



; RESET ERROR DEBUG MODE 
; RESET MAP DEBUG MODE 



; EMPTY POINTER TABLE 



; INPUT DEVICE 0=CR , 1=KB , 2»PT ;SET INPU 



5 



IMPASM8K 



304 


077E 


A091 


B 




305 


077F 


A08E 


B 




306 


0780 


A08F 


B 




307 


0781 


A096 


B 




308 


0782 


4CFE 


A 




309 


0783 


A094 


B 




310 


0784 


A095 


B 




311 


0785 


A01E 


B 




312 


0786 


4C05 


A 




313 


0787 


A191 


A 




314 


0788 


8138 


A 




315 


0789 


A193 


A 




316 


078A 


8137 


A 




317 


078B 


A192 


A 




318 


078C 


8136 


A 




319 


078D 


A191 


A 




320 


078E 


A092 


B 




321 


078F 


4FF5 


A 




322 


0790 


8048 


B 




323 


0791 


890F 


A 




324 


0792 


A200 


A 




325 


0793 


4A01 


A 




326 


0794 


4B01 


A 




327 


0795 


21FC 


A 




328 


0796 


4F06 


A 




329 


0797 


2CA2 


I 




330 


0798 


9CA3 


I 




331 


0799 


2C9B 


I 




332 


079A 








333 


079A 








334 


079A 


2C9C 


I 




335 


079B 


21CE 


A 




336 


079C 


2CA4 


I 




337 


079D 


21CC 


A 




338 


079E 


2903 


A 




339 


079F 


2CA5 


I 




340 


07A0 


2132 


A 




341 


07A1 


0720 


A 


$TTL : 


342 


07A2 








343 


07A2 








344 


07A2 








345 


07A2 


4D03 


A 


PINIT: 


346 


07A3 


A46B 


B 




347 


07A4 


4D01 


A 




348 


07A5 


A48E 


B 




349 


07A6 


A470 


B 




350 


07A7 


4C00 


A 




351 


07A8 


A00C 


A 




352 


07A9 


B0A6 


I 




353 


07AA 


A06F 


B 




354 


07AB 


A06C 


B 




355 


07 AC 


A056 


B 




356 


07AD 


A057 


B 




357 


07AE 


A053 


B 




358 


07AF 


A05C 


B 




359 


07B0 


B0A7 


I 




360 


07B1 


B0A8 


I 




361 


07B2 


846E 


B 




362 


07B3 


A46D 


B 




363 


07B4 


8431 


B 




364 


07B5 


A488 


B 




365 


07B6 


A48D 


B 




366 


07B7 


4D30 


A 





ST R0 , NOLI ST ;SET LISTING MODE 

ST R0 , LISTMD 

ST R0 , ERRLST 

ST R0 f HSPR 

LI R0,-2 

ST R0 , IDSKIN 

ST • R0 , IDSKTM 

ST R0 , DSROB J 

LI R0,5 

ST R0 ,TTLBUF 

LD R0 , $MAIN 

ST R0,TTLBUF+4 

LD R0,$MAIN+1 

ST R0 f TTLBUF+5 

LD R0,$MAIN+2 

ST R0,TTLBUF+6 

ST R0,NOCOM 

LI R3,-ll 

LD R0 , BLANKS 

LD R2 , $TTL 

ST R0,0(R2) 

AISZ R2,l 

AISZ R3,l 

JMP .-3 

LI R3,6 

JSR MANYNL 

LD R3 , MSGNXT 

JSR ONLMSG ? 'NEXT ASSEMBLY *.ASM' 

INPUT CONTROL STATEMENT 

JSR RDTTY 

JMP NEWASM 

JSR PRCTRL ; PROCESS CONTROL STATEMENT 

JMP NEWASM 

JSR PINIT 

JSR NEWLIN 

JMP NEXTST 

.WORD TTLBUF+7 

PASS INITIALIZATION 

LI Rl,3 

ST Rl , SECT ;SECT:=TSECT 

LI Rl , 1 

ST Rl , LISTMD 

ST Rl , IFMODE 

LI R0,0 

ST R0 f PNCHMD 

ST R0,PGSTRG ; RESET PAGE STRING 

ST R0 , 1 FSTAT 

ST R0,LOCREG ; LOCAL REGION NUMBER 

ST R0 , ACTR 

ST R0,BCTR 

ST R0 , TCTR 

ST R0 ,LOCCTR 

ST R0 r SOUCK ? SOURCE CHECKSUM 

ST R0 f OBJCK ; OBJECT CHECKSUM 

LD Rl , IFPTRA 

ST R1,IFPTR 

LD Rl,X6666 

ST R1,EC 

ST R1,LCNT2 

LI Rl,'0'/256 



6 



IMPASM8K 



3ft7 

JO 1 


0 7R8 

B (DO 


A48P 


g 




cm 


pi .LCNT1 




3fi8 




4n37 

4UJ/ 






r.T 


rvx § -J J 




369 


07BA 


A471 


B 




ST 


Rl , PGRL 




37 CI 

■J 1 V 


YJ 1 DD 


80104 

OB54 


R 






i\W f X U w7 £\ J. 1.1 




371 


07BC 


A01F 


B 




ST 


R0,DSKIN 




37 7 


07BD 


O U 7 -/ 


B 




LD 


R0 , IDSKTM 




373 


0 7BE 


A020 


B 




ST • 


R0 t DSKTMP 




37 A 

.3/4 


a 1 or 


7Pa o 


T 

J. 




T8R 
u OK 


INITOR 


INITIALIZE OBJECT RECORD 


J / 3 


0I7P0I 


0170101 
0 Z W 0 


ft 




RTS 






37 C 


fll 7P1 
!3 /Ul 


An4 1 


a 
ft 


•5 \ta TW • 


.ASCII 


'MAINPR' 






0I7P7 


4Q4 P 


a 

ft 












01 7P3 




a 
ft 










377 
J / / 


PI 7P4 
D / L4 








• PAGE 


'STATEMENT PROCESS AND FORM USAGE ' 


37ft 
j / 0 


01 7P A 
0 /C4 








. LOCAL 






37Q 


0 / U 4 














380 


GJ7P4 








STATEMENT PROCESS 






OilCA 

V 1 V. 4 














3ft 7 


CI7P4 














38 3 

J O J 


PI7P4 


1 1 Pi 1 


a 

ft 


8 YAPP • 


• WORD 


XARGCK 




384 


one*. 


70147 


a 

ft 


8 PR • 


.WORD 


B 




38 s ; 

J 3 J 


ot7Pft 


4P1 8 
4V*1 O 


a 

ft 


YPPDPP • 


LI 


R0 , 24 ; 


SYNTAX ERROR ; SYNTAX ERROR 


38ft 


CI7P7 






? 






387 

Jo / 




7PAA 

Z V»,ftrt 


T 
1 


YPRR1 • 


JSR 


ERROR 




388 


07C8 






* 








3 80 


CI7PR 


71 01 e; 
Zl H 3 


a 




JMP 


DIREND 




3Q0I 
j y yj 




7Paa 


T 
1 


1KKS i : 


JSR 


ERROR 




301 


Pi7PA 


4P0IPI 

4VKI s3 


a 
ft 




r x 

LI 


R0 t v) 




3Q 7 




A noil 


ft 


INAfcso : 


LI 


Rl , 1 


;ABS 


30 3 

j ? .3 


01 ICC 




T 

1 


i nuu i ; 


JSR 


OUTWRD 


30 4 


men 


71 CI 3 
il W J 


a 




JMP 


ENDST 




3Q c; 


V /CD 






f 








30ft 


Pi7pp 


z ur 3 


a 

ft 


ui Ktiwu : 


JSR 


@$XARG 




307 


PI 1CV 


ZCH W 


T 
1 




JSR 


0IBREP 


; OUTPUT INPUT BUFFER AND REPORT ERRORS 


308 


d 7noi 

v 1 lJY> 


71 017 


a 

ft 




7MP 

*J rl ir 


MPYTCT 


3QQ 


Pl7nl 

H / UX 


/Llf Z 


A 

ft 


titNUol : 


JSR 


9$XARG 




HUB 


tJ / L>Z 


Z LfiU 


T 
1 




JSR 


REPERR 


7 REPORT ERRORS 


Ad 1 

901 


CI7n3 






NCjXIb I ! 






a a 7 
4 w z 


OI7n3 


o'/jy o 


y 




LD 


R0,HSPR 




4PJ3 


07n4 


ACIQ7 

ft*7 7 / 


R 
D 




ST 


R0 r TYPMOD 




404 


07D5 


8 PISS 


R 




LD 


R0 f ERRBAS 




iB5 


B / 1JO 


Ah o d 


rj 
D 




ST 


R0 ', ERRPT 








a can 

4 www 


A 




LI 


R0,0 




4017 

to/ 


a 7r»8 


& (A c a 

A<3 OA 


Q 

O 




ST 


R0 , MOFLAG 




408 

*t w y 




tun 


ft 




LI 


Rl f -15 




409 


07 DA 


4400 


A 




PULL 


R0 




4 1 CI 


fl7nn 

w / L/o 


A O PI 1 


a 

ft 




AISZ 


Rl f l 




411 

Til 




71 pn 


a 

ft 




JMP 


.-2 




417 




81 P7 


a 

A 




LD 


R0, $CB 




41 3 


PI 7 HE" 


ROt HP 

Dr? Ad 


T 

l 




ST 


R0,RELTB+3 


; REPLACE B IN ENTRY WHICH MAY HAVE I 


At A 


ci "7 r> i? 
w /Dr 






* 






Alt: 
413 


ifl / Ur 






* 








416 


07DF 


2CAF 


I 




JSR 


READ 




417 


07E0 


2C9E 


I 


NEXTLB: 


JSR 


GNVC 


?GET NEXT VALID CHAR 


418 


07E1 


21EC 


A 




JMP 


DIREND 


; FINISH STATEMENT (END OF STAT) 


419 


07E2 


F04A 


B 




SKNE 


R0,DOT 


420 


07E3 


2108 


A 




JMP 


SDOT 


7 DIRECTIVE OR .= 


421 


07E4 






? 


LABEL, 


INSTR OR FORM 




422 


07E4 


2CB0 


I 




JSR 


BLDNAM 


; BUILD NAME 


423 


07E5 


21E0 


A 




JMP 


XERROR 


;NO NAME 


424 


07E6 


F04B 


B 




SKNE 


R0,COLAN 


425 


07E7 


24B1 


I 




JMP 


LABEL 


LABEL 



IMPASM8K 



426 


07E8 


F04C 


B 




SKNE 


R0 , EQUAL 




427 


07E9 


24B2 


I 




JMP 


ASSIGN 


; ASSIGN DIRECTIVE | 


428 


07EA 


2CB3 


I 




JSR 


IFBYP 


•IF BYPASS? 


429 


07EB 


2108 


A 




JMP 


$SERCH 


; INSTR OR FORM SEARCH 


430 


07EC 


2C9E 


I 


$DOT: 


JSR 


GNVC 




431 


07ED 


21D8 


A 




JMP 


XERROR 




432 


07EE 


F04C 


B 




SKNE 


R0 , EQUAL 




433 


07EF 


24B4 


I 




JMP 


DOTASN 




434 


97F0 


7C5E 


B 




DSZ 


INPTR 


; INPUT CHAR PTR 


435 


07F1 


4C2E 


A 




LI 


R0, '. '/256 




436 


07F2 


2CB5 


I 




JSR 


BLDDIR 




437 


07F3 


21D2 


A 




JMP 


XERROR 




438 


07F4 






* 


DIRECTIVE OR INSTR OR FORM SEARCH 


439 


07F4 


2CB6 


I 


$SERCH: 


JSR 


DISER 




440 


07F5 


2107 


A 




JMP 


$5A 




441 


07F6 






* 


MATCH 


FOUND 




442 


07F6 


8300 


A 




LD 


R0,0(R3) 




443 


07F7 


8701 


A 




LD 


R1,1(R3) 




444 


07F8 


A072 


B 




ST 


R0 , IVAL 




445 


07F9 


A473 


B 




ST 


R1,ICLASS 




446 


07FA 


8069 


B 




LD 


R0 r XINOK 


; EXTENDED INST OK FLAG (0=NO) 


447 


07FB 


3681 


A 




RCPY 


Rl,R2 




448 


07FC 


2200 


A 




JMP 


0(R2) 




449 


07FD 






$5A: 








450 


07FD 






• 

» 


TABLE 


EXHAUSTED, SEARCH 


FORM IN SYMBOL TABLE 


451 


07FD 


4C02 


A 




LI 


R0,2 




452 


07FE 


C080 


B 




ADD 


R0,CNAM0 


?1ST 2 COMPRESSED CHARS. OF NAME 


453 


07FF 


A080 


B 




ST 


R0,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME 


454 


0300 


2CB7 


I 




JSR 


STSER 


; SEARCH SYMBOL TABLE 


455 


0801 


215E 


A 




JMP 


$7A 


? TABLE OVERFLOW 


456 


0802 






; 








457 


0802 






; 


PROCESS FORM REFERENCE 




458 


0802 






; 








459 


0802 


83FE 


A 




LD 


R0,-2(R3) 
R0 f $FVAL 




460 


0803 


A160 


A 




ST 


1 FORM VALUE 


461 


0804 


8300 


A 




LD 


R0,0(R3) 




462 


0805 


682C 


B 




OR 


R0,K4 




463 


0806 


A300 


A 




ST 


R0,0 (R3) 


;SET USED BIT 


464 


0807 


8083 


B 




LD 


R0,STPDEF 




465 


0908 


1155 


A 




BOC 


Z,$7 


; ERROR NOT PREV. DEFINED 


466 


0809 


83FF 


A 




LD 


R0 r -1(R3) 




467 


080A 


6027 


B 




AND 


R0,K3 




463 


080B 


A159 


A 




ST 


R0 , $FREL 




469 


080C 


8874 


B 




LD 


R2 r FORMPT 




470 


080D 


8200 


A 




LD 


R0 r 0(R2) 




471 


080E 


A076 


B 




ST 


R0 , FORMT 


j FORM FIELD TERMINAL BITS 


472 


080F 


8201 


A 




LD 


R0,1(R2) 




473 


0*10 


A075 


B 




ST 


R0 , FORMB 


; FORM FIELD BEGIN BITS 


474 


0811 


4C10 


A 




LI 


R0,16 


^INITIALIZE 


475 


0812 


A078 


B 




ST 


R0 f FORMBN 


; FORM FIELD BEGINNING BIT NUMBER 


476 


0813 


A079 


B 




ST 


R0 , FORMTN 


; FORM FIELD TERMINAL BIT NUMBER 


477 


0814 


8075 


B 




LD 


R0 r FORMB 


; FORM FIELD BEGIN BITS 


478 


0815 


2935 


A 




JSR 


$FBIT 




479 


0816 


2140 


A 




JMP 


$13 


y FORM END 


480 


0817 


A075 


B 




ST 


R0, FORMB 


; FORM FIELD BEGIN BITS 


491 


0818 


2118 


A 




JMP 


$11B 


;GO TO BOTTOM OF FORM LOOP 


482 


0819 








TOP OF FORM LOOP 




483 


0819 


2CB8 


I 


$12: 


JSR 


EXPABS 




484 


081A 


213A 


A 




JMP 


$8 


j NONE 


485 


081B 


6077 


B 




AND 


R0 , FORMM 


; FORM FIELD MASK RIGHT JUSTIFIED ;MASK 


486 


081C 


844D 


B 




LD 


Rl f SHLIN 




487 


081D 


C479 


B 




ADD 


Rl , FORMTN 


; FORM FIELD TERMINAL BIT NUMBER yTERMIN 


488 


081E 


A500 


A 




ST 


Rl,$9 





IMPASM8K 



499 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 



081F 

0820 

0821 

0822 

9822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0829 

082A 

082B 

082C 

082D 

082E 

082F 

0830 

0831 

0831 

0832 

0833 

0834 

0834 

0835 

0836 

0837 

0838 

0839 

083A 

083B 

083B 

083B 

083B 

083C 

083D 

083E 

083F 

0340 



0000 
C143 
A142 

807A 
8477 
5100 
3483 
1102 
3482 
1532 

8075 
2920 
212B 
A075 
A534 
2C9D 
2125 
8531 

D441 
C478 
A478 

8076 
2915 
2124 
A076 
D441 
C479 
A479 



A $9: 

A 

A 

• 
f 

B 
B 
A 
A 
A 
A 
A 

B $11: 

A 

A 

B 

A 

I 

A 

A 



HALT 



$11Bj 



3478 
D479 
F525 
2103 
C426 
C44D 



an a a a i 



•Kent » 



531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 



0342 
0843 
0844 
0845 
0846 
0847 
0847 
0847 
0843 
0849 
084A 
084B 
084B 
084B 
084B 
084C 
084D 
084E 
084F 
0350 
0851 



4C01 A 
5C00 A $11A: 
D026 B 
A077 B 
21D2 A 



2CB9 I $F16 
210C A 
2 CAB I 
2186 A 



4D0F 
1501 
0200 
1202 
5C01 
0201 
5C01 



$FBIT: 



SFBl : 



$FB2: 



ADD 


R0,$FVAL 


ST 


R0,$FVAL 


NOW CHECK FOR EXP 


LD 


R0 , EXPVAL 


LD 


Rl,FORMM 


CAI 


Rl r 0 


RAND 


R1,R0 


30C 


Z,$ll 


RXOR 


R1,R0 


BOC 


NZ - S 1 0 

Vt u $ V A V 


BOTTOM 


OF FORM LO( 


LD 


R0 , FORMB 


JSR 


$FBIT 


JMP 


$13 


ST 


R0 , FORMB 


ST 


Rl , $TMP 


JSR 


GCOMMA 


JMP 


$8 


LD 


Rl , $TMP 


SUB 


R1,K16 


ADD 


Rl , FORMBN 


ST 


Rl , FORMBN 


LD 


R0 , FORMT 


JSR 


$FBIT 


JMP 


$10 


ST 


R0 , FORMT 


SUB 


R1,K16 


ADD 


Rl , FORMTN 


ST 


Rl t FORMTN 



A SHL INST. WILL BE STORED HERE *** 

? FORM VALUE 

; FORM VALUE 
SIZE ERROR 

J EXPRESSION VALUE ; VALUE FROM EXP. 

; FORM FIELD MASK RIGHT JUSTIFIED ; MASK 



; ERROR - FIELD OVERFLOW 
; FORM FIELD BEGIN BITS 



GENERATE MASK 



LD 

SUB 

SKNE 

JMP 

ADD 

ADD 

ST 

LI 

SHL 

SUB 

ST 

JMP 



Rl , FORMBN 

Rl, FORMTN 

R1,HEXF 

SF16 

R1,K1 

R1,SHLIN 

Ri,$llA 

R0,1 

R0,0 

R0,K1 

R0 , FORMM 

$12 



;FORM END 

: FORM FIELD BEGIN BITS 



; FORM FIELD BEGINNING BIT NUMBER ;PREV 
; FORM FIELD BEGINNING BIT NUMBER 

; FORM FIELD TERMINAL BITS 



; FORM FIELD TERMINAL BITS 

; FORM FIELD TERMINAL BIT NUMBER ; PREV B 
; FORM FIELD TERMINAL BIT NUMBER 



; FORM FIELD BEGINNING BIT NUMBER 
; FORM FIELD TERMINAL BIT NUMBER 

; SPECIAL CASE 16 BIT FORM 

;SHL R0 r 0 INSTR. 
? *** CAREFUL **** 

. ***************** 

; FORM FIELD MASK RIGHT JUSTIFIED ; FORM 



SPECIAL CASE 16 BIT FORM TO ALLOW RELOCATABLE ADR 
JSR EXP 
JMP $8 
JSR OUTWRD 
JMP ENDST 

FIND BIT NUM IN WORD(R0) f RESULT IN Rl , SHIFT R0 ACCORDINGLY 



LI 

BOC 

RTS 

BOC 

SHL 

RTS 

SHL 



PI, 15 
NZ,$FB1 

P,$FB2 
R0,1 

1 

R0,1 



9 



IMPASM8K 



552 


0852 


49FF 


A 




AISZ 


Rl,-1 




553 


0853 


3081 


A 




NOP 






554 


0854 


21F9 


A 




JMP 


$FB1 




555 


0855 








MISSING ARG ERROR 




556 


0855 


4C00 


A 


$8: 


LI 


R0,0; 


MISSING ARG. ERROR 


557 


0856 


2CAA 


I 




JSR 


ERROR 




558 


0857 








FORM PROCESS END 




559 


0857 


810C 


A 


$13: 


LD 


R0 , $FVAL 


;FORM VALUE 


550 


0858 


850C 


A 




LD 


Rl , $FREL 




561 


0859 


2CAB 


I 




JSR 


OUTWRD 




562 


085A 


24BA 


I 




JMP 


ENDST 




563 


085B 






f 


ERROR 


- FIELD OVERFLOW 




564 


085B 


4C06 


A 


$10: 


LI 


R0,6; 


VALUE ERROR 


565 


085C 


2CAA 


I 




JSR 


ERROR 




566 


085D 


21F9 


A 




JMP 


$13 




567 


085E 






• 








568 


085E 






• 


ERROR 


ILLEGAL INSTR 




569 


085E 


4C2A 


A 


$7: 


LI 


R0,42; 


UNDEFINED INSTRUCTION 


570 


085F 


24BB 


I 




JMP 


ERRST 




571 


0860 








ERROR 


SYMBOL TABLE OVERFLOW 


572 


0860 


4C24 


A 


$7A: 


LI 


R0,36; 


TABLE OVERFLOW ERROR 


573 


0861 


24BB 


I 




JMP 


ERRST 




574 


0862 


0863 


A 


$TMP: 


. = .+1 






575 


0863 


000F 


A 


HEXF: 


.WORD 


0F 




576 


0864 


0865 


A 


$FVAL: 


.= .+1 




; FORM VALUE 


577 


0865 


0866 


A 


$FREL: 


. = .+1 






578 


0866 








. ENDIF 





579 


0866 








.PAGE 


'END DIRECTIV 


580 


0866 








. LOCAL 




581 


0866 


2031 


A 


$X2031: 


.WORD 


02031 


582 


0367 












583 


0867 








END DIRECTIVE 


594 


H67 












585 


0867 






END: 






586 


0867 


2CBC 


I 




JSR 


OOREC 


5S7 


0868 


2CB9 


I 




JSR 


EXP 


588 


0869 


3081 


A 




NOP 




589 


086A 


3881 


A 




RCPY 


R2 ,R0 


590 


036B 


1502 


A 




BOC 


NZ, .+3 


591 


086C 


4C2A 


A 




LI 


R0,42; 


592 


086D 


2CAA 


I 




JSR 


ERROR 


593 


086E 


8C6B 


B 




LD 


R3,SECT 


594 


086F 


805C 


B 




LD 


R0 , LOCCTR 


595 


0870 


A355 


B 




ST 


R0,ACTR-1(R3) 


596 


0871 


8758 


B 




LD 


R1,AMAX-1(R3) 


597 


0872 


2CBD 


I 




JSR 


MAXR1 


598 


0373 


A753 


B 




ST 


Rl f AMAX-l(R3) 


599 


0374 


806D 


B 




LD 


R0 r IFPTR 


600 


0875 


F06E 


B 




SKNE 


R0,IFPTRA 


601 


0876 


2102 


A 




JMP 


. + 3 


602 


0877 


4C12 


A 




LI 


R0 , 18; 


603 


0878 


2CAA 


I 




JSR 


ERROR 


604 


0879 


807A 


B 




LD 


R0 r EXPVAL 


605 


087A 


2CBE 


I 




JSR 


OVAL 


606 


087B 


2CAC 


I 




JSR 


OIBREP 


607 


087C 


805D 


B 




LD 


R0,PASS 
R0,$X2031 


608 


087D 


C1E8 


A 




ADD 


609 


087E 


B0BF 


I 




ST 


R0 ,MSGP 


610 


087F 


805D 


B 




LD 


R0,PASS 


611 


0880 


1102 


A 




BOC 


Z,ENDP1 


612 


0381 


1459 


A 




BOC 


B1EQ1,ENDP3 



; OUTPUT OBJECT RECORD IF ANY 



UNDEFINED ERROR 



;SET Rl = MAX OF Rl AND R0 



NESTING USAGE ERROR 



; OUTPUT INPUT BUFFER , REPORT ERRS, 
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IMPASM8K 



613 


0882 


1326 


A 




BOC 


ODD, ENDP2 


614 


0833 












615 


0383 








END PASS 1 


616 


0883 












617 


0883 






ENDPl: 






618 


0883 


4C00 


A 




LI 


R0,0 


619 


0384 


A154 


A 




ST 


R0,TLAST 


620 


0335 


A154 


A 




ST' 


R0,OLAST 


621 


0886 


4D01 


A 




LI 


Rl,l 


622 


0887 


8091 


B 




LD 


R0, NOLI ST 


623 


0833 


C09F 


B 




ADD 


R0 r ERRLST 


624 


0389 


D026 


B 




SUB 


R0,K1 


625 


088A 


1501 


A 




BOC 


NZ, .+2 


626 


088B 


4D02 


A 




LI 


Rl,2 


627 


088C 








.IF 


SIZE8 


628 


088C 


F440 


B 




SKNE 


Rl,K2 


629 


088D 


2103 


A 




J MP 


$EP1 


630 


038E 


8090 


B 




LD 


R0,OBJMOD 


631 


088F 


1106 


A 




BOC 


Z,$EP1 


632 


0390 


8096 


B 




LD 


R0,HSPR 


633 


0391 


1103 


A 




BOC 


Z,$EP2 


634 


0892 


801E 


B 




LD 


R0 / DSKOBJ 


635 


0893 


C040 


B 




ADD 


R0,K2 


636 


0894 


1101 


A 




BOC 


Z,$EP1 


637 


0895 


4D03 


A 


SEP2: 


LI 


Rl,3 


638 


0896 






$EP1 : 






639 


0396 








. ENDIF 




640 


0896 


A45D 


B 




ST 


R1,PASS 


641 


0897 


8020 


B 




LD 


R0 , DSKTMP 


642 


0898 


1B02 


A 




BOC 


LEZ,$51 


643 


0899 


2C1C 


B 




JSR 


@ CLOSET 


644 


089A 


A13E 


A 




ST 


R0,TLAST 


645 


089B 


3096 


B 


$51: 


LD 


R0 , HSPR 


646 


089C 


1502 


A 




BOC 


NZ,.+3 


647 


089D 


9CC0 


I 




LD 


R3 , $TTL 


648 


089E 


2C1B 


B 




JSR 


@MESS 


649 


039F 


2CC1 


I 




JSR 


OEPM 


650 


08A0 


805D 


B 




LD 


R0,PASS 
B1E01,BEGP34 


651 


08A1 


1410 


A 




BOC 


652 


08A2 






; 






653 


08A2 






; 


BEGIN 


PASS 2 


654 


08A2 






; 






655 


08A2 


2CC2 


I 




JSR 


RESETP 


656 


08A3 


2CC3 


I 




JSR 


PINIT 


657 


08A4 


803F 


B 




LD 


R0 f ERRLST 


658 


03A5 


A08E 


B 




ST 


R0 , LISTMD 


659 


08A6 


4F06 


A 




LI 


R3,6 


669 


08A7 


2CA2 


I 




JSR 


MANYNL 


661 


08A8 


24C4 


I 




J MP 


NEXTST 


662 


0 8A9 






; 






663 


08A9 






; 


END PASS 2 


664 


08A9 






; 






665 


08A9 






ENDP2 : 






666 


08A9 


2CC5 


I 




JSR 


OPTRS 


667 


08AA 


8093 


B 




LD 


R0 , NOMAP 


668 


08AB 


1102 


A 




BOC 


Z, .+3 


669 


08 AC 


2CC6 


I 




JSR 


OMAP 


670 


08AD 


2101 


A 




JMP 


.+2 


671 


0 8AE 


2CC2 


I 




JSR 


RESETP 


672 


08AF 


2919 


A 




JSR 


$EL 


673 


08B0 


2CC1 


I 




JSR 


OEPM 


674 


08B1 


785D 


B 




ISZ 


PASS 


675 


08B2 






BEGP34: 







; BEGIN PASS 3 OR 4 



j KKbtST f BITS IN SYMBOL TABLE 



? OUTPUT ALL POINTERS 



11 



IMPASM8K 



676 


08B2 


8090 


B 




677 


08B3 


1145 


A 




678 


08B4 


801E 


B 




679 


08B5 


1206 


A 




680 


08B6 


9CC7 


I 




681 


08B7 


AC97 


B 




682 


08B8 


2C9B 


I 




683 


08B9 


2CA5 


I 




684 


08BA 


0000 


A 




685 


08BB 


2CC8 


I 




686 


08BC 








687 


08BC 






$50: 


68? 


08BC 


805B 


B 




689 


08BD 


B0C9 


I 




690 


08BE 


805A 


B 




691 


08BF 


B0CA 


I 




692 


08C0 


8D6E 


A 




693 


08C1 


2CCB 


I 




694 


08C2 


2CCC 


I 




695 


08C3 


2CC3 


I 




696 


08C4 


805D 


B 




697 


08C5 


848F 


B 




698 


08C6 


F027 


B 




699 


08C7 


A48E 


B 




700 


08C8 


24C4 


I 




701 


08C9 








702 


08C9 








703 


08C9 








704 


08C9 


4C01 


A 


$EL: 


705 


08CA 


A08E 


B 




706 


08CB 


2CA5 


I 




707 


08CC 


8888 


B 




708 


08CD 


4D20 


A 




709 


08CE 


8109 


A 




710 


08CP 


F831 


B 




711 


08D0 


2CCD 


I 




712 


08D1 


F831 


B 




713 


08D2 


2101 


A 




714 


08D3 


2CCE 


I 




715 


08D4 


9CCF 


I 




716 


08D5 


2CD0 


I 




717 


08D6 


0200 


A 




718 


08D7 








719 


08D7 


08D8 


A 


$TMP: 


720 


03D8 


4E4F 


A 


$N0: 


721 


08D9 


08DA 


A 


TLAST: 


722 


08DA 


08DB 


A 


OLAST: 


723 


08DB 








724 


08DB 








725 


08DB 








726 


08DB 






ENDP3: 


727 


08DB 


2967 


A 




728 


08DC 








729 


08DC 


805D 


B 




730 


08DD 


D027 


B 




731 


08DE 


1504 


A 




732 


08DF 


8093 


B 




733 


08E0 


1102 


A 




734 


08E1 


2CC6 


I 




735 


08E2 


29E6 


A 




736 


08E3 








737 


08E3 






$OE: 


738 


08E3 


4C01 


A 





LD 


R0,OBJMOD 


BOC 


Z f $FINIS 


LD 


R0,DSKOBJ 


BOC 


P f $50 


LD 


R3 f MSGTO 


ST 


R3 , TYPMOD 


JSR 


ONLMSG 


JSR 


NEWLIN 


HALT 




JSR 


LEAD 


LD 


R0 , TMAX 


ST 


R0,TTLBUF+3 


LD 


R0,BMAX 


ST 


R0,TTLBUF+2 


LD 


R3,$TTL 


JSR 


CKPNCH 


JSR 


OGLOB 


JSR 


PINIT 


LD 


R0 , PASS 


LD 


R1,ERRLST 


SKNE 


R0 f K3 


ST 


R1,LISTMD 


JMP 


NEXTST 


OUTPUT 


ERROR LINES 


LI 


R0,1 


ST 


R0,LISTMD 


JSR 


NEWLIN 


LD 


R2,EC 


LI 


Rl,020 


LD 


R0 ,$NO 


SKNE 


R2,X6666 


JSR 


02CH 


SKNE 


R2,X6666 


JMP 


. + 2 


JSR 


OSPDEC 


LD 


R3 f MSGNOE 


JSR 


OMSG 


RTS 




. = .+1 




.WORD 


'NO' 


. = . + 1 




. = . + 1 




JSR 


OPTRS 


.IF 


SIZE8 


LD 


R0 r PASS 


SUB 


R0,K3 


BOC 


NZ,$OE 


LD 


R0,NOMAP 


BOC 


Z,$OE 


JSR 


OMAP 


JSR 


$EL 


. ENDIF 





LI R0 f l 



?WAIT FOR PT PUNCH ON 



i CHECKSUM AND PUNCH 



; 'ERROR LINES' 
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739 


08E4 


A08E 


B 




ST 


r\ n t *r femurs 

R0 , LISTMD 




740 


08E5 


807A 


B 




LD 


R0 ,EXPVAL 


; EXPRESSION VALUE 


741 


08E6 


A14D 


A 




ST 


R0 ,ENDBUF+3 




742 


08E7 


807C 


B 




LD 


R0 , EXPREL 


; EXPRESSION RELOCATION MODE 


743 


08E8 


1101 


A 




BOC 


Z , .+2 




744 


08E9 


D026 


B 




SUB 


R0 ,K1 




745 


08EA 


A148 


A 




ST 


R0 ,ENDBUF+2 




746 


08EB 


8D44 


A 




LD 


R3,$EB 




747 


08EC 


2CCB 


I 




JSR 


CKPNCH 




748 


08 ED 


801E 


B 




LD 


R0 i DSKOBJ 




749 


08EE 


1B03 


A 




BOC 


LEZ , .+4 




750 


08EF 


2C1D 


B 




JSR 


8CLOSEO 




751 


08F0 


A1E9 


A 




ST 


R0 ,OLAST 




752 


08F1 


2102 


A 




JMP 


.+3 




753 


08F2 


2CC8 


I 




JSR 


LEAD 


; OUTPUT LEADER TO PT 


754 


08F3 


0000 


A 




HALT 




; WAIT FOR PT PUNCH OFF 


755 


08F4 


2942 


A 




JSR 


OEPM 




756 


08F5 


9CD1 


I 




LD 


R3 , MSGOCK 


; 'OBJECT CHECKSUM =' 


757 


08F6 


2CD0 


I 




JSR 


OMSG 




758 


08F7 


813E 


A 




LD 


R0,OBJCK 


? OBJECT CHECKSUM 


759 


08F8 


2CD2 


I 




JSR 


OHEX 




760 


08F9 






SFINIS: 








761 


08F9 








. IF 


SIZE8 




762 


08F9 


81DF 


A 




LD 


R0 , TLAST 




763 


08FA 


1105 


A 




BOC 


Z,$FIN2 




764 


08FB 


8D0C 


A 




LD 


R3,$M1 




765 


08FC 


2C9B 


I 




JSR 


ONLMSG 




766 


08FD 


81DB 


A 




LD 


R0, TLAST 




767 


08FE 


D026 


B 




SUB 


R0,K1 




768 


08FF 


2CD2 


I 




JSR 


OHEX 




769 


0900 


81D9 


A 


$FIN2 s 


LD 


R0,OLAST 




770 


0901 


1120 


A 




BOC 


Z,$FIN3 




771 


0902 


RD13 


A 




LD 


R3,$M2 




772 


0903 


2C9B 


I 




JSR 


ONLMSG 




773 


0904 


81D5 


A 




LD 


R0,OLAST 




774 


0905 


D026 


B 




SUB 


R0,K1 




775 


0906 


2CD2 


I 




JSR 


OHEX 




776 


0907 


211A 


A 




JMP 


$FIN3 




777 


0908 


0909 


A 


$M1 : 


.WORD 


. + 1 




778 


0909 


4C41 


A 




. ASCII 


'LAST TEMP SECTOR (HEX) =' 




090A 


5354 


A 












090B 


2054 


A 












Ot Q (A r* 

U 7 u ^ 


A C A r% 


A 

n 












090D 


5020 


A 












090E 


5345 


A 












090F 


4354 


A 












0910 


4F52 


A 












0911 


2028 


A 












0912 


4845 


A 












0913 


5829 


A 












•3914 


3D20 


A 










779 


0915 


0000 


A 




.WORD 


0 




780 


0916 


0917 


A 


$M2: 


.WORD 


.+1 




781 


0917 


4C41 


A 




.ASCII 


'LAST OBJ SECTOR 


(HEX)=' 




0918 


5354 


A 












0919 


204F 


A 












091A 


424A 


A 












091B 


2053 


A 












091C 


4543 


A 












091D 


544F 


A 












091E 


5220 


A 












091F 


2848 


A 












0920 


4558 


A 
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782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 



0921 

0922 

0922 

0923 

0924 

0925 

0926 

0927 

0928 

0929 

0929 

092A 

092A 

092A 

092B 

092C 

09 2D 

092E 

092E 

092F 

0930 

0931 

0932 

0935 

0936 

0937 

0937 

0937 

0937 

0937 

0938 

0939 

093A 

093B 

093C 

093D 

093E 

093F 

0940 

0941 

0942 

0943 

0943 

0943 

0943 

0943 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

094A 

094B 

094C 

094C 

094D 

094E 

094F 

0950 

0951 

0952 



$FIN3: 



293D A 

8096 B 
1505 A 
4C0D A 
2C1A B 
4C0C A 
2C1A B 
2C1A B 



24D3 I $FIN1 



2CAC I ENDP4 
2917 A 
2CC6 I 
21B5 A 



2031 
0719 
0931 
C004 
0935 
0936 
0937 



X2031: 
$TTL: 
$EB : 
ENDBUF: 

SOUCK : 
OBJCK : 



OEPM: 



8D3C A 
AC97 B 
2C9B I 
8096 B 
A097 B 
813C A 
F1F0 
0200 
8D3B 
2C9B 
81F3 
24D2 



OPTRS: 



2CA5 I 
2CD4 I 
4F02 A 
AC6B B 
8057 B 
A05C B 



9CD5 
AD8C 
2CA9 

8D8A 
8300 
1501 
24 BC 
3181 
8301 
2 CAB 



$NP: 



LD 

BOC 

LI 

JSR 

LI 

JSR 

JSR 

. ENDIF 

JMP 



JSR 
JSR 
JSR 
JMP 

.WORD 
.WORD 
.WORD 
.WORD 
. = .+3 
. = .+1 
. = .+1 



R0,HSPR 

NZ,$FIN1 

R0,0D 

@HSPRT 

R0,0C 

§HSPRT 

@HSPRT 

NEWASM 



OIBREP 
OPTRS 
OMAP 
$OE 

02031 
TTLBUF 
ENDBUF 
0C004 



? OUTPUT INPUT BUFFER , REPORT ERRS 
; OUTPUT POINTERS 

; OUTPUT END RECORD 



OUTPUT END PASS X MESSAGE 



LD 


R3 f MSGEP 


ST 


R3 , TYPMOD 


JSR 


ONLMSG 


LD 


R0,HSPR 


ST 


R0, TYPMOD 


LD 


R0,MSGP 


SKNE 


R0,X2031 


RTS 




LD 


R3,MSGSOV 


JSR 


ONLMSG 


LD 


R0 , SOUCK 


JMP 


OHEX 


OUTPUT 


POINTERS 


JSR 


NEWLIN 


JSR 


06B 


LI 


R3, 2 


ST 


R3,SECT 


LD 


R0 , BCTR 


ST 


R0 , LOCCTR 


LD 


R3 , PTABF 


ST 


R3 , $TMP 


JSR 


INITOR 


LD 


R3,$TMP 


LD 


R0,0(R3) 


BOC 


NZ f .+2 


JMP 


OOREC 


RCPY 


R0,R1 


LD 


R0, 1(R3) 


JSR 


OUTWRD 



; 'END PASS 1 
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844 
845 
846 
847 
848 
849 
850 



851 

852 



853 
854 
855 



855 
857 



858 
859 
860 



861 
862 
863 
864 



865 
866 
867 



0953 
0954 
0955 
0956 
0956 
0956 
0957 
0958 
0959 
095A 
095B 
095C 
095D 
095E 
095F 
0960 
0961 
8962 
0963 
0964 
0965 
0966 
0967 
0968 
0969 
096A 
096B 
095C 
096D 
096E 
096F 
0970 
0971 
0972 
0973 
0974 
0975 
0976 
0977 
0978 
0979 
097A 
097B 
097C 
097D 
097E 
097F 
0980 
0981 
0982 
0983 
0984 
0985 
0986 
0987 
0988 
0989 
098A 
0983 
098C 
098D 
098E 
093F 



7983 A 
7982 A 
21F6 A 



0957 A 
4E53 A 
4320 A 
494D A 
502D A 
3136 A 
2041 A 
5353 
454D 
424C 
4552 
0D0A 
4D45 A 
4D4F A 
5259 A 
203D A 
0000 A 
0968 A 
4E45 A 
5954 A 
2041 
5353 
454D 
424C 
5920 
0D0A 
2 2 El 
4153 
4D20 
0000 
0975 
454E 
4420 
5041 A 
5353 A 
0000 A 
0000 A 
097C A 
534F A 
5552 
4345 
2043 
4B2E 
3D20 
0000 
0984 
5455 
524E 
2050 
5420 A 
5055 A 
4E43 
4820 
4F4E 
2041 
4E44 
2050 
5553 



ISZ $TMP 

ISZ $TMP 

JMP $NP 

END OF POINTER OUTPUT 



;LOOP FOR NEXT PTR 



MSGBEG; 



MSGNXT: 



MSGEP: 

MSGP: 

MSGSOVi 



.WORD .+1 
.ASCII 'NSC IMP-16 ASSEMBLER ' 



.WORD 0D0A 

, ASCII 'MEMORY 



.WORD 0 

•WORD .+1 
.ASCII 'NEXT ASSEMBLY 



.WORD 0D0A 
.ASCII '*.ASM ' 



.WORD 0 

.WORD .+1 
.ASCII 'END PASS 



.WORD 0 

.WORD 0 

S WQRD ,+1 

.ASCII 'SOURCE CK, 



.WORD 0 
MSGTO: .WORD .+1 

.ASCII 'TURN PT PUNCH ON AND PUSH RUN 
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0990 


4820 


A 








0991 


5255 


A 








0992 


4E20 


A 






868 


0993 


0000 


A 


.WORD 


0 


869 


0994 


0995 


A MSGOCK: 


.WORD 


. + 1 


870 


0995 


204F 


A 


.ASCII 


' OBJ.CK.=' 




0996 


424A 


A 








0997 


2E43 


A 








0998 


4B2E 


A 








0999 


3D20 


A 






871 


099A 


0000 


A 


.WORD 


0 


872 


099B 


099C 


A MSGNOE: 


.WORD 


. + 1 


873 


099C 


2045 


A 


.ASCII 


' ERROR LINES' 




099D 


5252 


A 








099E 


4F52 


A 








099F 


204C 


A 








09A0 


494E 


A 








09A1 


4553 


A 






874 


09A2 


0000 


A 


.WORD 


0 



875 


09A3 








.PAGE 


'IF, ELSE, 


876 


09A3 








. LOCAL 




877 


09A3 












878 


09 A3 








IF, ELSE 


,ENDIF DIR 


879 


09A3 










880 


09A3 






IF: 






881 


09A3 


9070 


B 




LD 


R0 , IFMODE 


882 


09A4 


C06F 


B 




ADD 


R0 , I FSTAT 


883 


09A5 


8C6D 


B 




LD 


R3,IFPTR 


884 


09A6 


FD2D 


A 




SKNE 


R3 , IFTBL 
$OV 


885 


09A7 


210F 


A 




JMP 


886 


09A8 


786D 


B 




ISZ 


IFPTR 


887 


09A9 


A301 


A 




ST 


R0,1(R3) 


888 


09AA 


4C02 


A 




LI 


R0,2 


889 


09AB 


A36F 


B 




ST 


R0 , I FSTAT 


890 


09AC 


2CB8 


I 




JSP 


EXPA3S 


891 


09AD 


210C 


A 




JMP 


SNOEX 


892 


09AE 


E023 


B 




SKG 


R0 f ZERO 


R93 


09AF 


4C00 


A 




LI 


F0,0 


894 


09B0 


1101 


A 




BOC 


Z, .+2 


895 


09B1 


4C01 


A 


$1: 


LI 


R0 f 1 


896 


09B2 


6070 


B 




AND 


R0 f IFMODE 


897 


09B3 


A070 


B 




ST 


R0 r IFMODE 


898 


09B4 


807A 


B 




LD 


R0 , EXPVAL 


899 


09B5 


2CD6 


I 




JSR 


OHEXIF 


900 


09B6 


24D7 


I 




JMP 


DIREND 


901 


09B7 












902 


09B7 








IF TABLE OVERFLOW 


903 


09B7 


4C24 


A 


SOV: 


LI 


R0,36; 


904 


09B8 


2CAA 


I 




JSR 


ERROR 


905 


09B9 


24D7 


I 




JMP 


DIREND 


906 


09BA 








NO EXP 


ERROR 


907 


09BA 


4C2A 


A 


$NOEX: 


LI 


R0,42; 


908 


09BB 


2CAA 


I 




JSR 


ERROR 


909 


09BC 


21F4 


A 




JMP 


$1 


910 


09BD 












911 


09BD 








ELSE DIRECTIVE 


912 


09BD 












913 


09BD 






ELSE: 






914 


39BD 


806F 


B 




LD 


R0, I FSTAT 


915 


09BE 


F040 


B 




SKNE 


R0,K2 
$ELOK 


916 


09BF 


2103 


A 




JMP 



?IF TABLE OVERFLOW 



; ERROR - NO EXP 



? EXPRESSION VALUE 



TABLE OVERFLOW ERROR 



UNDEFINED ERROR 



?IF STATUS 
; ELSE OK 
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917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 

n -> a 

7J1 

935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 



4C12 A $NERR: 
2CAA I 
24D7 I 



09C0 
09C0 
09C1 
09C2 
09C3 
09C3 
09C3 
09C4 
09C5 
09C6 
09C7 
09C8 
09C9 
09CA 
09CA 
09CA 
09CA 

V 7LH OBOr D 



$ELOK : 



4C04 A 
A06F B 
8070 B 
5000 A 
6026 B 
A070 B 
24D7 I 



ENDIF ! 



09CB 
09CC 
09CD 
09CE 
09CF 
09D0 
09D1 
09D2 
09D3 
09D4 
0904 
09D5 



11F4 A 
906D B 
6026 B 
A070 B 
906D B 
6028 B 
A06F B 
7C6D B 
2407 I 

0718 A IFTBL: 



NESTING ERROR 
LI R0,18; 
JSR ERROR 
JMP 01 REND 

ELSE OK 



NESTING - USAGE ERROR 



LI 

ST- 

LD 

CAI 

AND 

ST 

JMP 



R0,4 

R0 , IFSTAT 

R0 , IFMODE 

R0,0 

R0,K1 

R0 , IFMODE 

DIREND 



ENDIF DIRECTIVE 



LD 

BOC 

LD 

AND 

ST 

LD 

AND 

ST 

DSZ 

JMP 

.WORD 
.IF 



R0 , IFSTAT 

Z,$NERR 

R0,§IFPTR 

R0,K1 

R0, IFMODE 

R0,@IFPTR 

R0,K6 

R0, IFSTAT 

IFPTR 

DIREND 

IFTAB+9 
SIZE8 



; COMPLEMENT IF MODE 



; NESTING ERROR 



? STATUS 



;IF TABLE LIMIT 



947 
948 
949 

950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 



09D5 
09D5 
09D5 
09D5 
09D5 
09D5 
09D6 
09D7 
09D8 
09D9 
09DA 
09DB 
09DC 
09DD 
09DE 
09DF 
09E0 
09E1 
09E2 
09E3 
09E4 
09E5 
09E6 
09E7 
09E8 
09E9 
09EA 
09EB 
09EB 
09EB 
09EC 



.PAGE 
. LOCAL 



FORM DIRECTIVE ' 



2CB3 I 
4C00 A 
A075 B 
A076 B 
A164 A 
4C01 A 
A164 A 
4C0F A 
A15E A 



2CD8 
24D9 
4300 
2CB5 
2101 
2155 
4700 
83FF 
7029 B 
2151 A 
AD54 A 
8074 B 
A154 A 



2C9D I 
213E A 



FORM; 



FORM DIRECTIVE 



$LOOP: 



JSR 

LI 

ST 

ST 

ST 

LI 

ST 

LI 

ST 

JSR 

JMP 

PUSH 

JSR 

JMP 

JMP 

PULL 

LD 

SKAZ 

JMP 

ST 

LD 

ST 



JSR 
JMP 



IFBYP 
R0,0 

R0 , FORMS 
R0 , FORMT 
R0 , FORMV 
R0 ,- 1 

R0 ', FRMREL 

R0,15 

R0 , $BBIT 

GFORM 

XERROR 

R3 

DISER 
. + 2 
$20 
R3 

R0,-1(R3) 
R0 , K8 
$20 

R3,$FPTR 
R0,FORMPT 
R0, $FFFF 



GCOMMA 
$ENO 



;FORM FIELD BEGIN BITS 

; FORM FIELD TERMINAL BITS 



;GET FORM NAME 

; SYNTAX ERROR - NO SYMBOL 



?DUP DEF ERROR 
?FORM PTR 
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978 
979 
980 
981 
982 
983 
934 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 



09ED 

09EE 

09EF 

09F0 

09F1 

09F2 

09F2 

09F3 

09F4 

09F5 

09F6 

09F7 

09F7 

09F8 

09F9 

09FA 

09FB 

09FC 

09FC 

09FD 

09FE 

09FF 

0A00 

0A01 

0A02 

0A03 

0A04 

0A05 

0A06 

0A07 

0A08 

0A09 

0A0A 

0A0B 

0A0C 

0A0D 

0A0E 

0A0E 

0A0E 

0A0F 

0A10 

0A11 

0A12 

0A13 

0A14 

0A15 

0A16 

0A17 

0A18 

0A19 

0A1A 

0A1B 

0A1C 

0A1C 

0A1D 

0A1E 

0A1F 

0A20 

0A21 

0A21 

0A22 

0A23 

0A24 



814E A 
1203 A 
4C12 A $11: 
2CAA I 
2139 A 

2CDA I $10: 
21FB A 
D147 A 
D040 B 
12F8 A 

2C9E I 
2103 A 
F046 B 
2113 A 
7C5E B 

804D B $12: 
C13E A 



A101 A 
4C01 A 
5C00 A 
C075 B 
A075 B 
3138 A 
D07A B 
A136 A 
C026 B 
C04D B 
A101 A 
4C01 A 
5C00 A 
C076 B 
A076 B 
21DD A 



812D A 
D07A B 
A12B A 
C04D B 
C026 B 
A10F A 
304D B 
C07A B 
A101 A 
4C01 A 
5C00 A 
D026 B 
5000 A 
1505 A 



$4: 



$5: 



$13 



$2: 



2CB9 I 
21D1 A 
6427 B 
A520 A 
2102 A 



2CDB 
21CC 
5C00 
C119 



$2A: 



$3: 



LD 

BOC 

LI 

JSR 

JMP 

JSR 
JMP 
SUB 
SUB 
BOC 

JSR 

JMP 

SKNE 

JMP 

DSZ 



R0 , $BBIT 
P,$10 
R0, 18, • 
ERROR 
$END 

EXPP7 
$11 

R0, $BBIT 

R0,K2 

P,$ll 

GNVC 
$12 

R0,LPAREN 

$13 

INPTR 



; BEGIN BIT NUM (15 TO 0) 
USAGE ERROR 



NO PRESET VALUE 



LD 

ADD 

ST 

LI 

SHL 

ADD 

ST 

LD 

SUB 

ST 

ADD 

ADD 

ST 

LI 

SHL 

ADD 

ST 

JMP 



R0, SHLIN 

R0,$BBIT 

R0 f $4 

R0,1 

R0,0 

R0 ,FORMB 
R0 , FORMB 
R0 r $BBIT 
R0 , EXPVAL 
R0 , $BBIT 
R0,K1 
R0 , SHLIN 
R0,$5 
R0,1 
R0,0 

R0 , FORMT 
R0 , FORMT 
$LOOP 



PRESET VALUE 



LD 

SUB 

ST 

ADD 

ADD 

ST 

LD 

ADD 

ST 

LI 

SHL 

SUB 

CAI 

BOC 



R0 , $BBIT 
R0 , EXPVAL 
R0,$BBIT 
R0, SHLIN 
R0 r Kl 
R0,$3 
R0 , SHLIN 

R0, EXPVAL 
R0,$2 
R0,1 
R0, 0 
R0,K1 
R0 , 0 
NZ, $2A 



; ERROR - FIELD SIZE TOO LARGE 



; ( 

; YES-LEFT PAREN. 
; INPUT CHAR PTR 

jSHL R0,0 

. *** CAREFUL 

. *** 

t FORM FIELD BEGIN BITS 

; FORM FIELD BEGIN BITS ;SET BEG BIT 

; EXPRESSION VALUE 
; UPDATE NEW $BBIT 

;SHL R0,0 
;*** CAREFUL 

. *** 

•FORM FIELD TERMINAL BITS 

7 FORM FIELD TERMINAL BITS j SET TERMING 

yLOOP 



; EXPRESSION VALUE 



;*** CAREFUL 



, *** 



, *** 



CAREFUL 



SPECIAL CASE 16 BIT FORM 



JSR 

JMP 

AND 

ST 

JMP 

JSR 
JMP 
SHL 
ADD 



EXP 

$11 

R1,K3 

Rl,FRMREL 

$3 

EXPFRM 

$11 

R0,0 

R0,FORMV 



; GET EXP, MASK IN R0 

; ERROR 
. *** 
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1041 


0A25 


A113 


A 




ST 


R0 , FORMV 




1042 


0A26 


2C9E 


I 




JSR 


GNVC 




1043 


0A27 


21C7 


A 




JMP 


$11 


;NO CLOSING PAREN - ERROR 


1044 


0A28 


F043 


B 




SKNE 


R0 , RPAREN 




1045 


0A29 


21C1 


A 




JMP 


SLOOP 




1046 


0A2A 


21C4 


A 




JMP 


$11 


;NO COSING PAREN - ERROR 


1047 


0A2B 






t 








1048 


0A2B 














1049 


0A2B 


8D11 


A 


SEND: 


LD 


R3,$FPTR 


; PTS. TO LOWEST WORD OF ENTRY 


1050 


0A2C 


8912 


A 




LD 


R2 , $FFFF 


? SAVED FORMPT 


1051 


0A2D 


8110 


A 




LD 


R0,FOPJfY 




1052 


0A2E 


A3FE 


A 




ST 


R0,-2(R3) 




1053 


0A2F 


83FF 


A 




LD 


R0,-1(R3) 




1054 


0A30 


602E 


B 




AND 


R0,XFFF0 




1055 


0A31 


C029 


B 




ADD 


R0,K8 




1056 


0A32 


C10D 


A 




ADD 


R0 , FRMREL 




1057 


0A33 


A3FF 


A 




ST 


R0,-1(R3) 




1058 


0A34 


8075 


B 




LD 


R0 , PORMB 


; FORM FIELD BEGIN BITS 


1059 


0A35 


A201 


A 




ST 


R0,1(R2) 




1050 


0A36 


8076 


B 




LD 


R0,FORMT 


; FORM FIELD TERMINAL BITS 


1061 


0A37 


A200 


A 




ST 


R0,0(R2) 




1062 


0A38 


24D7 


I 




JMP 


D I REND 




1063 


0A39 






• 

9 








1064 


0A39 






f 








1065 


0A39 


4C30 


A 


$20: 


LI 


R0,48; 


DUP DEF ERROR 


1066 


0A3A 


2CAA 


I 




JSR 


ERROR 




1057 


0A3B 


24D7 


I 




JMP 


DIREND 




1068 


0A3C 














1069 


0A3C 


0A3D 


A 


$BBIT: 


. = . + 1 




; BEGIN BIT NUM (15 TO 0) 


1070 


0A3D 


0A3E 


A 


$FPTR: 


. = .+1 




1071 


0A3E 


0A3F 


A 


FORMV: 


. = . + 1 




; VALUE 


1072 


0A3F 


0A40 


A 


$FFFF: 


s = . + l 




yTEMP FOR FORMPT 


1073 


0A40 


0A41 


A 


FRMREL: 


. = .+1 






1074 


0A41 








. ENDIF 







1075 


0A41 








.PAGE 


'ASECT, BSECT, 


1076 


0A41 












1077 


0A41 






* 


ASECT, 


BAECT, TSECT, AN 


i an o 


n x a i 

a t\t x 






# 






1079 


0A41 








. LOCAL 




1080 


0A41 


4F01 


A 


ASECT: 


LI 


R3,l 


1 A 1 

XV O X 


0A42 






$1: 






1082 


0A42 


2CB3 


I 




JSR 


IFBYP 


1083 


0A43 


885B 


B 




LD 


R2,SECT 


1084 


0A44 


805C 


B 




LD 


R0 , LOCCTR 


1085 


0A45 


A255 


B 




ST 


R0 ,ACTR-1 ( R?) 


1086 


0A46 


8658 


B 




LD 


R1,AMAX-1 (R2) 


1087 


0A47 


2910 


A 




JSR 


MAXR1 


1088 


0A48 


A658 


B 




ST 


R1,AMAX-1(R2) 


1089 


0A49 


8755 


B 




LD 


R1,ACTR-1(R3) 


1090 


0A4A 


AC6B 


B 




ST 


R3,SECT 


1091 


0A4B 


A45C 


B 




ST 


Rl , LOCCTR 


1092 


0A4C 


2CBC 


I 




JSR 


OOREC 


1093 


0A4D 


805C 


B 




LD 


R0 , LOCCTR 


1094 


0A4E 


2CBE 


I 




JSR 


OVAL 


1095 


0A4F 


24D7 


I 




JMP 


DIREND 


1096 


0A50 












1097 


0A50 


4F02 


A 


BSECT: 


LI 


R3,2 


1098 


0A51 


21F0 


A 




JMP 


$1 


1099 


0A52 






* 






1100 


0A52 


4F03 


A 


TSECT: 


LI 


R3,3 


1101 


0A53 


21EE 


A 




JMP 


$1 



;SET Rl = MAX OF Rl AND R0 



? OUTPUT OBJECT RECORD IF ANY 
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1 1 f! 9 


PI A c i4 












1X7 J 


ynJ4 












1 1 d4 

1 J. « *» 


PI AS4 






EXTD : 






1 1 CI S 


Surt 3 4 


£ V- D ^> 


I 




JSR 


IFBYP 


1 1 OA 

1 1 13 O 


nice 

Slfl 3 3 


4 v*KI X 






LI 


R0 r l 


1 1 W / 


0 A56 


A069 


Q 




ST 


R0 r XINOK 


1 1 <J O 


Pi A57 


24D7 


J 




JMP 


DIREND 


I 1 fl|Q 

II W 7 


dASR 












1 1 1 ft 

lllu 


0 A58 








PUT MAX OF R0 AND 


1111 
1111 


JO 












1110 

± 1 1 Z 


CI a^R 


Al PIQ 

nlo j 


A, 


MaYRl • 

i in A, I\l • 


ST 


R0,$TMP 


111 - ? 
ill J 




J4t)i 


a 




RXOR 


R1,R0 


1114 
lilt 


nit; a 


1 9CI4 


a 

n 




BOC 


P,$SAME 


1 1 1 S 
1113 


lift 3 Q 


fll CIA 

O 1 v \j 


& 




LD 


R0, $TMP 


1116 


0A5C 


1201 


A 




BOC 


P, . + 2 


1117 
ill/ 


I9rt3 U 


n jot 


ft 




LD 


R1,$TMP 


1118 


0A5E 


0200 


A 




RTS 




1 1 1 9 

11X7 


0A5F 






r 


SAME SIGN 


1 1 90 


0A5F 


E502 


ft 




SKG 


Rl , $TMP 


1191 

1 1 £ 1 


PI Afi CI 

U /AO V 


RSfl 1 

O Ju 1 


ft 




LD 


R1,$TMP 


1 1 99 

1 1 £. £. 


PIAfil 


d9flfl 


A 




RTS 




1 1 9 7 
lit J 


CJAfi9 


flA67 

Or* "3 j 


A 




. = . + 1 




I 1 OA 

I I <<£ 4 


Cf a£ 7 








.PAGE 


' GLOBL, L0( 


1 1 o c; 
ii / j 










. LOCAL 




1 1 Ofk 
lliO 


Ciafi? 












1197 
1 1 c. 1 


flafi? 

una j 








GLOBL , 


LOCAL, ASCII 


1 1 9 R 

lit?) 


BftO J 












I 1 9Q 

II & y 














1 1 ?ei 

11 JP 


dafi? 

O MO J 


£l~D 3 


T 
1 




JSR 


IFBYP 


I 1 7 1 

I I J 1 


ci a p; d 

«nD4 




T 
1 




JSR 


GSYM 


117 9 

11 Jc 


'•no J 


91 dP 

41 f! El 


A 




JMP 


$4 


1 1 j j 


W rtU D 


R 7 Ad 


A 


SI • 

•? 1 • 


LD 


R0,0(R3) 


1 1 74 
not 


dafi7 


fid 9Q 
o v t. j 


D 

O 




AND 


R0 r K8 


I 1 "JS 

I I j j 


V AO O 


1 Rdfl 


A 




BOC 


NZ,$3 


1 1 

11 JO 








J 


SET GLOBL BIT 


11 J / 




Q 7 PP 


A 
ft 




LD 


R0,-1(R3) 


1 1 


ci afi a 


fi R 9P 


n 




OR 


R0,K4 


I 1 ?Q 

II J; 


ci afi r 


A7PP 


A 




ST 


R0,-1(R3) 


1 1 4 CI 

11HB 








§ 1 A • 

y 1 ft • 






1141 
nil 


a Afir 




T 
X 




JSR 


G COMMA 


114 9 

1 1 4 t. 


d Afin 

DnOu 


94D7 


T 

X 




JMP 


DIREND 


114? 

114 J 






T 

X 




JSR 


GSYM 


1144 

X 1 4 4 


0A6F 


2 4D7 


I 




JMP 


DIREND 


1 1 4R 

114 J 


ci a7d 


91 PS 

£i t j 


ft 




JMP 


$1 


1 1 4fi 

1 14U 


PIA71 

on / 1 






# 






1147 

114 / 


CI A7 1 

V t\ / 1 


4P1 9 


ft 


■? J • 


LI 


R0 f 18; 


lllo 


PIA79 


9PAA 


T 
1 


S 9 • 


JSR 


ERROR 


1 1 4Q 

1147 


flA7 7 

on / j 


91 PR 
£ir n 


A 




JMP 


$1A 


1 1 ROI 

1130 


CI A74 
10 n / 4 


4Cvlt/ 


A 


$A • 


LI 


R0 r 0; 


1 1 J 1 


ci a7 s 


91 pr* 


A 
ft 




JMP 


$2 


1 1 K0 

113/ 


Bn ID 












I 1 ^7 

II JJ 


cia7fi 

S3 ft / D 








LOCAL 


DIRECTIVE 


1 1 J 4 


r>rt / 0 












1 1 em 

1133 


10 H / O 












115*5 


0A76 


2CB3 


I 




JSR 


IFBYP 


1157 


0A77 


4C01 


A 




LI 


R0,1 


1158 


0A78 


C06C 


B 




ADD 


R0 , LOCREG 


1159 


0A79 


E03B 


B 




SKG 


R0,HEX3F 


1160 


0A7A 


2103 


A 




JMP 


$5 


1161 


0A7B 


4C24 


A 




LI 


R0,36; 


1162 


0A7C 


2CAA 


I 




JSR 


ERROR 



?IF BYPASS 
;N0 SYMBOL 

j ERROR-LOCAL CAN NOT BE MADE GLOBL 
;SET GLOBL BIT 



? LIST EXHAUSTED 
?L00P 

USAGE ERROR 



; CONTRADICTON - GLOBL 



MISSING ARG. ERROR 



; ERROR - MISS 



;IF BYPASS 



TABLE OVERFLOW ERROR 



; ERROR - 63 L 
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1 1 C ft 

1163 


a jv *7 rv 
0 A / D 


Oil m 
24 V 1 


T 

X 




JMP 


DIREND 




1164 


0 A7E 


74 a a c 
A»6 v. 


D 


?d : 


ST 


R0 r LOCREG 




1 1 c c 

1165 


0A7F 


2 4U / 


T 
X 




JMP 


DIREND 




1166 


v< AH 55 






* 








1167 


0A80 






* 


WORD DIRECTIVE 




1 1 C O 

1168 


/i i nil 

0A80 














1169 


0A80 






wuKu : 








117H 


0 A80 


Ann 7 


T 

X 




JSR 


IFBYP 


•IF BYPASS 


1171 


0A81 


ft ft 

2CB9 


T 

X 




JSR 


EXP 




1172 


n jt o ft 

0A82 


ftjl DD 
24 DD 


T 

X 




JMP 


ERRST 




1173 


9A83 


ftP74 13 

2 LAB 


T 

X 




JSR 


y"V r T mr.7 *rt T\ 

OUTWRD 


• nriTPiiT woRn 


1 1 1 A 

1174 


»A84 


O/AAn 

2C9D 


X 




JSR 


GCOMMA 




1175 


0A85 


ft J O 74 

24 BA 


T 

X 




JMP 


ENDST 




1176 


0A86 


ipn ft 

2CB9 


T 

I 




JSR 


EXP 


• CPT PYOPPQCTnU 
JuEil CiArKEiODlUn 


1177 


0A87 


24 BA 


I 




JMP 


ENDST 




1178 


0A88 


ftl O 74 

21 FA 


A 




JMP 


$6 




1179 


0A89 














1180 


0A89 








ASCII 


DIRECTIVE 




1 1 O 1 

1181 


0A89 














1 1 Q ft 

1182 


0A89 






R CP T T • 

AbLXX : 








1183 


0A89 


ft f~* r> ft 

2CB3 


I 




JSR 


IFBYP 




1184 


0A8A 


2LDD 


T 

X 




JSR 


GNSTRG 


JUCil LNEiW OIKJ.WV3 


1 i Or 

1185 


0A8B 


ft 1 (% o 

2108 


74 

A 




JMP 


$10 


. PDDr\D _ unup 
, tiKKUK iNUINIj 


1 1 O £ 

1186 


0ASL 




TV 

A 


CIO. 

9X2 : 


LI 


Rl,l 




1187 


0A8D 


2CAB 


T 
I 




JSR 


OUTWRD 


yUUXJrUX WUKU 


1188 


0A8E 


2CDE 


I 




JSR 


GCSTRG 


,Anm PnMTTHnaTTAM ftp QTCTfi 
^ubX CUW X XNUftX XVJW Ur OlKlt 


lion 

1189 


0A8F 


a 1 n i 

2101 


TV 

A 




JMP 


$11" 


• CTDTHr pun 


1190 


0A90 


21 FB 


A 




JMP 


$12 




1191 


0A91 








IS THERE ANOTHER STRING 




1192 


0A91 


2C9D 


I 


$11: 


JSR 


GCOMMA 


? GET COMMA 


t i ft 1 
1193 


All A*) 

0 Ay 2 


Al nn 

24 BA 


T 
I 




JMP 


ENDST 




1194 


0 A93 


ftl E» C 

21F5 


A 




JMP 


ASCII 




1195 


/« m ft J 

0A94 






* 


ERROR 






line 
1196 


W A94 


4L1 O 


TV 

A 


9X0 : 


LI 


R0,24j 


SYNTAX ERROR 


1197 


0A95 


2CAA 


I 




JSR 


ERROR 




1198 


0A96 


ft* r\*7 
24 D / 


T 

I 




JMP 


DIREND 




1199 


0A97 








.PAGE 


'PAGE SPACE AND 


LIST DIRECTIVES' 


1200 


0 A97 














1201 


0A97 






* 


PAGE „ SPACE AND LIST DIRECTIVES 


1202 


0A97 














1203 


0 A97 








. LOCAL 




1204 


0A97 


ft ft ft c 
2926 


A 


PAGE : 


JSR 


$BYP1 


; BYPASS IF PASS 1 


1205 


ft A ft O 

0A98 


ft^D 0 

2LB 3 


1 




JSR 


IFBYP 




1 ft fk c 

1206 


n jv ft ft 
0A99 


4FE2 


A 




LI 


R3,-30 


?MAX. 60 CHAR. STRING 


1207 


0A9A 


74r\ft*1 

AD 3 7 


A 




ST 


R3,$T1 




1208 


fl i An 

0A9B 


2CDD 


T 




JSR 


GNSTRG 


;GET NEW STRING 


1 1 (% fl 

1209 


n n ft r* 
0A9C 


2 10C 


TV 
A 




JMP 


$1 


;N0 STRING 


1210 


0A9D 


fti n ft 

2102 


A 




JMP 


$3 




1211 


0A9E 


2CDE 


I 


* ft - 
$2: 


JSR 


GCSTRG 


; GET NXT 2 CARS OF STRING 


1212 


0A9F 


ft i n c 

2105 


A 




JMP 


$4 


;NONE LEFT 


1213 


0AA0 






$3: 








1214 


0AA0 


o ft ft i 
8931 


A 




LD 


R2,$T1 




1 lie 

1 £ 1 J 


iji a a l 


PQ T. 1 
1.3J X 


A 




ADD 


R2,$PGBF 




1216 


0AA2 


A200 


A 




ST 


R0,0 (R2) 




1217 


0AA3 


792E 


A 




ISZ 


$T1 




1218 


0AA4 


21F9 


A 




JMP 


$2 




1219 


0AA5 


892C 


A 


$4: 


LD 


R2,$T1 




1220 


0AA6 


C92C 


A 




ADD 


R2,$PGBF 




1221 


0AA7 


4C00 


A 




LI 


R0 r 0 




1222 


0AA8 


A200 


A 




ST 


R0,0(R2) 


;SET END MSG INDICATOR 


1223 


0AA9 






> 


EJECT 


PAGE AND PRINT 
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1224 


0AA9 


4F07 


A 


$1 : 

y J- • 


LI 


R3,7 


1225 


0AAA 


CC71 


B 




ADD 


R3 ,PGRL 


1226 


0AAB 


2CDF 


I 




JSR 


OPGSTR 


1227 


0AAC 


2CD4 


I 




JSR 


06 B 


1228 


0AAD 


24D7 


I 




JMP 


D I REND 


1229 


0AAE 






f 






1230 


0AAE 


290F 


A 


SPACE : 


JSR 


$BYP1 


1231 


0AAF 


2CB3 


I 




JSR 


IFBYP 


1232 


0AB0 


2CE0 


I 




JSR 


EXPP 


1233 


0AB1 


3081 


A 




NOP 




1234 


0IAB2 


E071 


B 




SKG 


R0 . PGRL 


1235 


0AB3 


2101 


A 




JMP 


. + 2 


1236 


0AB4 


21F4 


A 




JMP 


$1 


1237 


0AB5 


3381 


A 




RCPY 


R0 i R3 


1238 


0AB6 


5001 


A 




CAI 


R0 ,1 


1239 


0AB7 


C071 


B 




ADD 


R0 .PGRL 


1240 


0AB8 


A071 


B 




ST 


Rfl . PGRL 


1241 


0AB9 


4300 


A 




PUSH 


R3 


1242 


0ABA 


2CAC 


I 




JSR 


OIBREP 


1243 


0ABB 


4700 


A 




PULL 


R3 


1244 


0ABC 


2CA2 


I 




JSR 


MANYNL 


1245 


0ABD 


24C4 


I 




JMP 


NEXTST 


1246 


0ABE 






r 






1247 


0ABE 


805D 


B 


$BYP1 : 


LD 


Rfl . PASS 

x\W f mug 


1248 


0ABF 


1301 


A 




BOC 


ODD . .+2 


1249 


0AC0 


24D7 


I 




JMP 


DIREND 


1250 


0AC1 


0200 


A 




RTS 




1251 


0AC2 












1252 


0AC2 






LIST : 






1253 


0AC2 


2CB3 


I 




■7SR 

KJ W I\ 


T PRYP 


1254 


0AC3 


2CB9 


I 




JSR 


EXP 


1255 


0AC4 


4C01 


A 




LI 


R0 r 1 


1256 


0AC5 


E023 


B 




SKG 


R0 . ZFRO 


1257 


0AC6 


4C00 


A 




T.I 


pa a 


1258 


0AC7 


1101 


A 




BOC 


7. - +2 


1259 


0AC8 


4C01 


A 




LI 


R0 , 1 


1260 


0AC9 


4000 


A 




PUSH 


R0 


1261 


0ACA 


2CAC 


I 




JSR 


OTRRPP 


1262 


0ACB 


4400 


A 




PULL 


R0 


1263 


0ACC 


848F 


B 




T.n 


Rl PRRT ST 

I\X f CiC\X\XfO 1 


1264 


0ACD 


F426 


B 




SKNE 


Rl Kl 

IU f IVX 


1265 


0ACE 


A08E 


B 




em 


Rfl T.TSTMn 
t\ti fXiXoxriL/ 


1266 


0ACF 


1501 


A 




BOC 


no f . * £* 


1267 


0AD0 


2CA5 


I 




JSR 


NFWr.TN 


1268 


0AD1 


24C4 


I 




JMP 


NEXTST 


1269 


0AD2 






• 






1270 


0AD2 


0000 


A 


$T1: 


.WORD 


0 


1271 


0AD3 












1272 


0AD3 


070E 


A 


$PGBF: 


.WORD 


PGSTRG+30 


1273 


0AD4 












1274 


0AD4 












1275 


0AD4 


2CB3 


I 




.7SR 


T PRVP 
iroir 


1 ?7fi 

JL £ / U 


0 ADS 




T 

1 




tod 
U on 


PPPTDT 


1 ?77 

±£.11 






T 
X 








1278 


0AD7 


£t ** U 1 


T 
X 




.7 MP 


nTRPKtn 


1279 


0AD8 








.PAGE 


'TITLE DI 


1280 


0AD8 








. LOCAL 




1281 


0AD8 












1282 


0AD8 








TITLE 


DIRECTIVE 


1283 


0AD8 












1284 


0AD8 






TITLE: 







; PAGE REMAINING LINES 
; OUTPUT PAGE STRING 



; BYPASS IF PASS 1 
;GET EXP POSITIVE 



;1=N0RMAL LISTING 0= ERROR LISTING 
;SET LISTING MODE 
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IMPASM8K 



1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 



0AD8 
3AD9 
0ADA 
0ADB 
0ADC 
0ADD 
0ADE 
0ADF 
0AE0 
0AE1 
0AE2 
0AE3 
0AE4 
0AE5 
0AE6 
0AE7 
0AE8 
0AE9 
0AEA 
0AEB 
0AEC 
0AED 
0AEE 
0AEF 
0AF0 
0AF1 
0AF2 
0AF3 
0AF4 
0AF5 
0AF6 
0AF7 
0AF8 
0AF8 
0AF9 
0AFA 
0AFB 
0AFB 
0AFB 
0AFB 
0AFC 
0AFD 
0AFE 
0AFF 
0B00 
0B01 
0B02 
0B02 
0B03 
0B04 
0B05 
0B06 
0B07 
0B08 
0B09 
0B09 
0B0A 
0B0B 



2CB3 
2C9E 
24D9 
2CB0 
24D9 
805D B 
1523 A 
4C10 A 
B0E1 I 
807D B 
5C01 A 
5CFF A 
B0E2 I 
807E B 
B0E3 I 
807F B 
50E4 
8120 
A11E 
2C9D 
210E 
2CDD 
24D9 
B119 
7918 
8117 
F118 
2104 
2CDE 
2105 
B112 
21F8 



2CDE I 
24D7 I 
21FD A 



4C00 
8D0C 
A3 00 
4B01 
FD0B 
24D7 
21 FB 

2C9D 
24 D7 
2CDD 
24D9 
2CDE 
24 D7 
21FD 

0B0A 
0720 
072B 



$1: 



$2: 
$4: 



$BLNK : 



$5: 



JSR 

JSR 

JMP 

JSR 

JMP 

LD 

BOG 

LI 

ST 

LD 

SHL 

SHR 

ST 

LD 

ST 

LD 

ST 

LD 

ST 

JSR 

JMP 

JSR 

JMP 

ST 

ISZ 

LD 

SKNE 

JMP 

JSR 

JMP 

ST 

JMP 

BUFFER 
JSR 
JMP 
JMP 



IFBYP 

GNVC 

X ERROR 

BLDNAM 

XERROR 

R0,PASS 

NZ,$5 

R0,16 

R0 , TTLBUF 

R0,NAM0 

R0,1 

R0,1 

R0,TTLBUF+4 

R0 f NAMl 

R0 ,TTLBUF+5 

R0 ,NAM2 

RS fTTLBUF+6 

R0 , $PTR1 

R0,$PTR 

GCOMMA 

$BLNK 

GNSTRG 

XERROR 

R0,§$PTR 

$PTR 

R0,$PTR 

R0,$PTRL 

$2 

GCSTRG 
$BLNK 
R0,G$PTR 
$1 
FULL 
GCSTRG 
DIREND 
$2 



?1ST 2 CHARACTERS OF NAME 

;3RD AND 4TH CHARACTERS OF NAME 
?5TH AND 6TH CHARACTERS OF NAME 

;NO STRING, BLANK OUT BUFFER 



; TITLE BUFFER FULL 

; END OF STRING 

;LOOP FOR REST OF STRING 



BLANK OUT REST OF TITLE BUFFER 



SPTR: 
$PTR1 : 
$PTRL : 



LI 
LD 
ST 

AISZ 
SKNE 
JMP 
JMP 

JSR 
JMP 
JSR 
JMP 
JSR 
JMP 
JMP 

. = . + 1 
.WORD 
.WORD 



R0,0 
R3, $PTR 
R0 .0 (R3) 
R3h 

R3,$PTRL 

DIREND 

$3 

GCOMMA 
DIREND 
GNSTRG 
XERROR 
GCSTRG 
DIREND 
.-2 



TTLBUF+7 
TTLBUF+18 



;LOOP BACK 



1343 0B0C 

1344 0B0C 

1345 0B0C 



.PAGE 
. LOCAL 



'PROCESS LABEL' 
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IMPASM8K 



1346 


0B0C 








PROCESS 


LABEL: 




1347 


0B0C 






• 

t 








1348 


0B0C 






LABEL: 








1349 


0B0C 


885E 


B 




LD 


R2,INPTR 




1350 


0B0D 


82FF 


A 




LD 


R0,-1(R2) 




1351 


0B0E 


F034 


B 




SKNE 


R0 , BLANK 




1352 


0B0F 


24D9 


I 




JMP 


X ERROR 




1353 


0B10 


785E 


B 




ISZ 


INPTR 


; INPUT CHAR PTR 


1354 


0311 


2947 


A 




JSR 


PREPLB 




1355 


0B12 


24E5 


I 




JMP 


NEXTLB 


? BYPASS LBL ASSIGNMENT, GO TO 


1356 


0B13 


8083 


B 




LD 


R0,STPDEF 




1357 


0B14 


1103 


A 




BOC 


Z,$7 




1358 


0B15 






$20: 








1359 


3B15 


4C30 


A 




LI 


R0,48; 


DUPLICATE DEF ERROR 


1360 


0B16 


2CAA 


I 




JSR 


ERROR 


; ERROR - DUPLICATE DEF 


1361 


0B17 


24E5 


I 




JMP 


NEXTLB 




1362 


0B18 


2CE6 


I 


$7: 


JSR 


P2P1 




1363 


0B19 


2107 


A 




JMP 


$CK 




1364 


0B1A 


805C 


B 




LD 


R0 , LOCCTR 




1365 


0B1B 


A3FE 


A 




ST 


R0,-2(R3) 




1366 


0B1C 


806B 


B 




LD 


R0,SECT 




1367 


0B1D 


C029 


3 




ADD 


R0,K8 


;SET PDEF BIT 


1368 


0B1E 


C3FF 


A 




ADD 


R0,-1 (R3) 




1369 


0B1F 


A3FF 


A 




ST 


R0,-1(R3) 


;SET RELOCATION 


1370 


0B20 


24E5 


I 




JMP 


NEXTLB 


;GO TO NEXT LBEL 


1371 


0B21 






* 


CHECK LOCCTR ALIGNMENT 




1372 


0B21 


83FF 


A 


$CK: 


LD 


R0 ,-1 (R3) 




1373 


0B22 


C029 


B 




ADD 


R0,K8 




1374 


0B23 


A3FF 


A 




ST 


R0 f -1(R3) 




1375 


0B24 


83FE 


A 




LD 


R0,-2(R3) 




1376 


0B25 


F05C 


B 




SKNE 


R0, LOCCTR 




1377 


0B26 


24 E5 


I 




JMP 


NEXTLB 




1378 


0B27 


21 ED 


A 




JMP 


$20 


;MISALIN 


1379 


0B28 






• 








1380 


0B28 








ASSIGN 


DIRECTIVE 




1381 


0B28 














1382 


0B28 






ASSIGN: 








1383 


0B28 


785E 


B 




ISZ 


INPTR 


; INPUT CHAR PTR 


1384 


0B29 


292F 


A 




JSR 


PREPLB 


;PREP LABEL 


1385 


0B2A 


24D7 


I 




JMP 


DIREND 




1386 


0B2B 


AC8A 


B 




ST 


R3 , LBLPT 


; SAVE LABEL PTR 


1387 


0B2C 


2930 


A 




JSR 


EXP 




1388 


0B2D 


2125 


A 




JMP 


$2 


; NO EXP - ERROR 


1389 


0B2E 


8C8A 


B 




LD 


R3, LBLPT 




1390 


0B2P 


83FF 


A 




LD 


R0 r -1(R3) 




1391 


0B30 


6029 


B 




AND 


R0,K8 




1392 


0B31 


150F 


A 




BOC 


NZ,$1 




1393 


0B32 


807A 


B 




LD 


R0 , EXPVAL 


; EXPRESSION VALUE 


1394 


0B33 


A3FE 


A 




ST 


R0,-2(R3) 


; SET VALUE 


1395 


0B34 


807C 


B 




LD 


R0,EXPREL 


; EXPRESSION RELOCATION MODE 


1396 


0B35 


6027 


B 




AND 


R0,K3 




1397 


0B36 


111E 


A 




BOC 


Z,$3 




1398 


0B37 


847B 


B 




LD 


R1,EXPPD 




1399 


0B38 


5D03 


A 




SHL 


Rl,3 




1400 


0B39 


3400 


A 




RADD 


R1,R0 




1401 


0B3A 


87FF 


A 




LD 


R1,-1(R3) 




1402 


0B3B 


642E 


B 




AND 


R1,XFFF0 


; 0FFF0 


1403 


0B3C 


3400 


A 




RADD 


R1,R0 




1404 


0B3D 


A3FF 


A 




ST 


R0,-1(R3) 




1405 


0B3E 






$10: 








1406 


0B3E 


807A 


B 




LD 


R0, EXPVAL 


; EXPRESSION VALUE 


1407 


0B3F 








OUTPUT 


VALUE AND RETURN 




1408 


0B3F 


2CBE 


I 


$5: 


JSR 


OVAL 





24 



IMPASM8K 



1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
142R 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 



0B40 
0B41 
0B41 
0B42 
0B43 
0B44 
0B45 
0B46 
0B47 
3B47 
0B47 
0B47 
0B47 
0B48 
0B49 
0B4A 
0B4B 
0B4C 
034D 
0B4E 
0B4F 
0B50 
0B51 
0B52 
0B53 
0B53 
0B54 
0B55 
0B56 
0B57 
0B58 
0B5S 
0B59 
0B59 
0B59 
0B59 
0B59 
0B59 
0B59 
0B59 
0B5A 
0B5B 
0B5C 



24 BA I 

83FF A 
60 2C B 
15FA A 
4C30 A 
2CAA I 
21F7 A 



2CB3 I 
2914 A 
2109 A 
3280 A 
1109 A 
F46B B 
2101 A 
2108 A 
A85C B 
2CBC I 
805C B 
21 EC A 



4C00 
24E7 
4C12 
24E7 
4C12 
24 E7 



2CB3 I 
2CB7 I 

0200 A 

0201 A 



$1: 



JMP 

LD 

AND 

BOC 

LI 

JSR 

JMP 



ENDST 

R0 r -1 (R3) 

R0,K4 

NZ,$10 

R0,48; 

ERROR 

$10 



DUPLICATE DEF ERROR 



DOT ASSIGN DIRECTIVE 



DOTASN : 



JSR 
JSR 
JMP 

RXCH 

BOC 

SKNE 

JMP 

JMP 

ST 

JSR 

LD 

JMP 



IFBYP 

EXP 

$2 

R0,R2 

7 -$3 

Rl , SECT 

.+2 

$6 

R2,LOCCTR 

OOREC 

R0 , LOCCTR 

$5 



;NO EXP ERROR 
?NQT PREV DEF 



$2: 
$3: 
$6: 



LI R0,0; 

JMP XERR1 

LI R0,18; 

JMP XERR1 

LI R0,18; 

JMP XERR1 



MISSING ARG. ERROR 
NOT PREV DEFINED ERROR 
USAGE ERROR 



MISSING EXP E 
;NOT PREV 



PREPARE LABEL FOR ASSIGNMENT OF VALUE 



PREPLB: 



JSR 



JSR IFBYP 

JSR STSER 
RTS 

RTS 1 



PREPLB 
NOT OK 

OK -LBL READY 



; SYMBOL TABLE SEARCH 
; OVERFLOW 



1452 


0B5D 






.PAGE 


'EXPRESSION 


CALC. ' 


1453 


0B5D 






. LOCAL 






1454 


0B5D 












1455 


0B5D 








JSR EXP 




1456 


0B5D 








NO EXP 


RETURN (NOT AN ERROR) - EXPVAL=0 


1457 


0B5D 








NORMAL 


RETURN - R0=EXPVAL 


1458 


0B5D 










R2=EXPPD (PREV. DEF.) 


1459 


0B5D 










1460 


0B5D 


4C00 


A EXP: LI 


R0,0 




1461 


0B5E 


A07A 


B 


ST 


R0,EXPVAL 


; EXPRESSION VALUE 


1462 


0B5F 


4C01 


A 


LI 


R0,1 




1463 


0B60 


A07C 


B 


ST 


R0 , EXPREL 


; EXPRESSION RELOCATION MODE ;SET ABS 


1464 


0B61 


A07B 


B 


ST 


R0 # EXPPD 


; PREV. DEF. 1=YES ?SET PREV. DEF. YES 


1465 


0B62 


2C9F 


I 


JSR 


GITEM 


1466 


0B63 


2106 


A 


JMP 


$1 


;NO ITEM, PROBABLY AN OPERATOR 


1467 


0B64 


F42C 


B 


SKNE 


Rl,K4 




1468 


0B65 


2101 


A 


JMP 


. + 2 




1469 


0B66 


2125 


A 


JMP 


$PLUS 
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1470 


0B67 


A07A 


B 






ST 


R0 , EXPVAL 




1471 


0B68 


A47C 


B 






ST 


Rl , EXPREL 
$FIN 




1472 


0B69 


216D 


A 






JMP 




1473 


0B6A 


2C9E 


I 


$1: 


JSR 


GNVC 




1474 


0B6B 


216F 


A 






JMP 


$EX0 


;NO EXP 


1475 


0B6C 


F050 


B 






SKNE 


R0,CPLUS 




1476 


0B6D 


2101 


A 






JMP 


.+2 




1477 


0B6E 


2105 


A 






JMP 


$1A 




1478 


0B6F 


4C18 


A 






LI 


R0 r 24; 


ERROR SYNTAX 


1479 


0B70 


2CAA 


I 






JSR 


ERROR 




1480 


0B71 


21F8 


A 






JMP 


$1 




1481 


0B72 






$NXT: 








1482 


0B72 


2C9E 


I 






JSR 


GNVC 




1483 


0B73 


215D 


A 






JMP 


$EXPND 


?EXP. END 


1484 


0B74 






J 




CECK 


OPERATOR ELSE 


ERROR 


1485 


0B74 






$1A: 








1486 


0B74 


A116 


A 






ST 


R0 , SOP 




1487 


0B75 


F04F 


B 






SKNE 


R0, COMMA 
$COM 




1488 


0B76 


2159 


A 






JMP 




1489 


0B77 


F043 


B 






SKNE 


R0 , RPAREN 




1490 


0B78 


2157 


A 






JMP 


$COM 




1491 


0B79 


F046 


B 






SKNE 


R0 , LPAREN 




1492 


0B7A 


2155 


A 






JMP 


$COM 




1493 


0B7B 






• 










1494 


0B7B 


2970 


A 






JSR 


GITEM 




1495 


0B7C 


212D 


A 






JMP 


SXERR 




1496 


0B7D 


810D 


A 






LD 


R0 , $OP 




1497 


0B7E 
















1498 


0B7E 


F050 


B 






SKNE 


R0,CPLUS 




1499 


0B7F 


210C 


A 






JMP 


$PLUS 




1500 


0B80 


F051 


B 






SKNE 


R0,CMINUS 




1501 


0B81 


2117 


A 






JMP 


$MINUS 




1502 


0B82 


F03C 


B 






SKNE 


R0,CMPY 




1503 


0B83 


2137 


A 






JMP 


$MPY 




1504 


0B84 


F035 


B 






SKNE 


R0,CDIV 




1505 


0B85 


213B 


A 






JMP 


$DIV 




1506 


0B86 


F053 


B 






SKNE 


R0 , CAND 




1507 


0B87 


213F 


A 






JMP 


$AND 




1508 


0B88 


F054 


B 






SKNE 


R0,COR 




1509 


0B89 


2142 


A 






JMP 


$OR 




1510 


0B8A 


2109 


A 






JMP 


$EERR 


;EXP. ERROR 


1511 


0B8B 


0B8C 


A 


$0P: 


. = . + 1 


;TEMP SAVE OPERATOR 


1512 


0B8C 
















1513 


0B8C 
















1514 


0B8C 










PLUS 


OPERATOR 




1515 


0B8C 
















1516 


0B8C 


8486 


B 


$PLUS: 


LD 


Rl, ITVAL 




1517 


0B8D 


C47A 


B 






ADD 


Rl , EXPVAL 


; EXPRESSION VALUE 


1518 


0B8E 


291E 


A 






JSR 


$PMREL 


; PLUS/MINUS REL.CALC. 


1519 


0B8F 


2104 


A 






JMP 


$EERR 


;1ST RETURN , BOTH T,B OR G RELOCATION 


1520 


0B90 


A47G 


B 






ST 


Rl, EXPREL 


; EXPRESSION RELOCATION MODE ; 2ND RETURN 


1521 


0B91 


F42C 


B 






SKNE 


R1,K4 


f EXTERNAL? 


1522 


0B92 


2101 


A 






JMP 


$EERR 


?YES 


1523 


0B93 


21 DE 


A 






JMP 


$NXT 


;GO TO NXT OPERATOR 


1524 


0B94 


4C12 


A 


$EERR: 


LI 


R0,18; 


EXP. -USAGE ERROR ? GLOBAL SYMBOL 


1525 


0B95 


2CAA 


I 


$15: 


JSR 


ERROR 




1526 


0B96 


4C00 


A 






LI 


R0,0 




1527 


0B97 


A07C 


B 






ST 


R0, EXPREL 


EXPRESSION RELOCATION MODE ;SET UNDEFI 


1528 


0B98 


21D9 


A 






JMP 


$NXT 


;CONTNUE TO NXT OPERATOR 


1529 


0B99 
















1530 


0B99 










MINUS OPERATOR 




1531 


0B99 
















1532 


0B99 


847A 


3 


$MINUS: 


LD 


Rl , EXPVAL 


? EXPRESSION VALUE 



IMPASM8K 



1533 


0B9A 


D486 


B 




SUB 


Rl , ITVAL 




1534 


0B9B 


2911 


A 




JSR 


$PMREL 


; PLUS/MINUS RL.CALC. 


1535 


0B9C 


2106 


A 




JMP 


$13 


; RET 1- BOTH T,B OR G RELOCATION 


153* 


(?B9D 


F087 


B 




SKNE 


R0 , ITREL 


; RET 2- LOWEST IS ABS. 


1537 


0B9E 


2101 


A 




JMP 


$14 


? ARG 2 IS ABS 


1533 


0B9F 






. 


ARG 1 IS ABS r ARG2 GR THAN ABS (1) 


1539 


0B9F 


21F4 


A 




JMP 


$EERR 




154fl 


0BA0 


F42C 


B 


$14: 


SKNE 


Rl,K4 




1541 


0BA1 


21F2 


A 




JMP 


$EERR 


; GLOBAL USAGE ERROR 


1542 


0BA2 


21CF 


A 




JMP 


$NXT 


?NEXT OPERATOR 


1543 


0BA3 








BOTH ARGS HAVE T,B OR 


G RELOCATION 


1544 


0BA3 


F42C 


B 


$13: 


SKNE 


R1,K4 




1545 


0BA4 


21EF 


A 




JMP 


$EERR 


; GLOBAL ERROR 


1546 


0BA5 


3482 


A 




RXOR 


R1,R0 
NZ , $EERR 




1547 


0BA6 


15ED 


A 




BOC 


;NOT SAME - ERROR 


1548 


0BA7 








SAME - 


SAME REL = ABS 




1549 


0BA7 


4C01 


A 




LI 


R0,1 




1550 


0BA8 


A07C 


B 




ST 


R0,EXPREL 


? EXPRESSION RELOCATION MODE 


1551 


0BA9 


21C8 


A 




JMP 


$NXT 


;NEXT OPERATOR 


1552 


0BAA 


4C18 


A 


$XERR: 


LI 


R0 , 24 ; 


SYNTAX ERROR 


1553 


0BAB 


2CAA 


I 




JSR 


ERROR 




1554 


0BAC 


2124 


A 




JMP 


SEXPND 




1555 


0BAD 














1556 


0BAD 








SPECIAL 


SUBR. USED TO 


HELP WITH REL.CALC. FOR PLUS/MINUS 


1557 


0BAD 














1558 


0BAD 


A47A 


B 


$PMREL: 


ST 


R1,EXPVAL 


•EXPRESSION VALUE • STORE VAT.HF RP^HT T 


1559 


0BAE 


8087 


B 




LD 


R0 , ITREL 




1560 


0BAF 


847C 


B 




LD 


R1,EXPREL 


•EXPRESSION RELOCATION MOnP 


1551 


0BB0 


E487 


B 




SKG 


Rl, ITREL 




1562 


0BB1 


3180 


A 




RXCB 


R0 ,R1 




1563 


0BB2 








R0 LESS 


OR EQUAL TO Rl 


NOW 


1564 


0BB2 


1105 


A 




BOC 


Z,$li 


•UNDEF INHERIT 

/ UIlUUl H1UJJ 1\ X -L 


1565 


0BB3 


F426 


B 




SKNE 


R1,K1 
$12 




1566 


0BB4 


2104 


A 




JMP 


•BOTH ABS 


1567 


0BB5 


F026 


B 




SKNE 


R0,K1 




1568 


0BB6 


0201 


A 




RTS 


1 


• T.OW T arc; OTHFR? 


1569 


0BB7 


0200 


A 




RTS 




•LOW IS GR THAN ARS Ml 


1570 


0BB8 








UNDEFINED 


1571 


0BB9 


A07C 


B 


$11 : 


ST 


R0 , EXPREL 


•EXPRESSION RELOCATION MODF 


1572 


0BB9 






• 


FINISHED BUT MUST POP 


RET. FROM STACK - THFN (Id TO MYT nPFRATOT? 


1573 


0BB9 


4400 


A 


$12: 


PULL 


R0 




1574 


0BBA 


21B7 


A 




JMP 


$NXT 




1575 


0BBB 














1576 


0BBB 














1577 


0BBB 














1578 


0BBB 


2923 


A 


$MPY: 


JSR 


$REL 




1579 


0BBC 


807A 


B 




LD 


R0 , EXPVAL 


•EXPRESSION VALUE 


1580 


0BBD 


8486 


B 




LD 


Rl, ITVAL 




1581 


0BBE 


2C0D 


B 




JSR 


@MULT 




1582 


0BBF 


A47A 


B 


$MPY1 : 


ST 


Rl, EXPVAL 


EXPRESSION VALUE 


1583 


0BC0 


21B1 


A 




JMP 


$NXT 




1584 


0BC1 














1585 


0BC1 


291D 


A 


$DIV: 


JSR 


$REL 




1586 


0BC2 


4C00 


A 




LI 


R0,0 




1587 


0BC3 


847A 


B 




LD 


Rl, EXPVAL 


; EXPRESSION VALUE 


1589 


0BC4 


8C86 


B 




LD 


R3, ITVAL 




1589 


0BC5 


2C0E 


B 




JSR 


§DIVD 




1590 


0BC6 


21F8 


A 




JMP 


$MPY1 




1591 


0BC7 














1592 


0BC7 








AND OPERATOR 




1593 


0BC7 














1594 


0BC7 


2917 


A 


$AND: 


JSR 


$REL 




1595 


0BC8 


807A 


B 




LD 


R0, EXPVAL 


; EXPRESSION VALUE 



IMPASM8K 



1596 


0BC9 


6086 


B 




AND 


R0 , ITVAL 












1597 


ABC A 


A07A 


B 


$20: 


ST 


R0,EXPVAL 




; EXPRESSION 


VALUE 






1598 


0BCB 


21A6 


A 




JMP 


$NXT 












1599 


0BCC 






* 
















1600 


0BCC 






; 


OR OPERATOR 












1601 


0BCC 






; 
















1602 


0BCC 


2912 


A 


$0R: 


JSR 


$REL 












1603 


0BCD 


807A 


B 




LD" 


R0 , EXPVAL 




; EXPRESSION 


VALUE 






1604 


0BCE 


6886 


B 




OR 


R0 , ITVAL 












1605 


03CF 


21 FA 


A 




JMP 


$20 












1606 


0BD0 






; 
















1607 


0BD0 






* 


EXPRESSION END 












1608 


0BD0 






• 
















1609 


0BD0 


7C5E 


B 


$COM: 


DSZ 


INPTR 




; INPUT CHAR 


PTR 






1610 


0BD1 






$EXPND: 














1611 


0BD1 






* 


DIAGNOSE IF PASS 2 


AND 


UNDEFINED 








1612 


0BD1 


2CE8 


I 




JSR 


P1P2 












1613 


0BD2 


2104 


A 




JMP 


$FIN 












1614 


0BD3 


807C 


B 




LD 


R0 , EXPREL 




EXPRESSION 


RELOCATION 


MODE 




1615 


0BD4 


1502 


A 




BOC 


NZ,$FIN 












1616 


0BD5 


4C2A 


A 




LI 


R0,42; 




UNDEFINED ERROR 






1617 


0BD6 


2CAA 


I 




JSR 


ERROR 












1618 


0BD7 


807A 


B 


$FIN: 


LD 


R0 , EXPVAL 




; EXPRESSION 


VALUE 






1619 


0BD8 


887B 


B 




LD 


R2,EXPPD 




;PREV.DEF. 


1=YES ;PREV. DEF. 


CODE 


1620 


0BD9 


847C 


B 




LD 


Rl, EXPREL 




; EXPRESSION 


RELOCATION 


MODE 




1621 


0BDA 


0201 


A 




RTS 


1 








1622 


0BDB 






















1623 


0BDB 


807A 


B 


$EX0: 


LD 


R0 , EXPVAL 




; EXPRESSION 


VALUE 






1624 


0BDC 


887B 


B 




LD 


R2,EXPPD 




;PREV.DEF. 


1=YES 






1625 


0BDD 


847C 


B 




LD 


Rl, EXPREL 




; EXPRESSION 


RELOCATION 


MODE 




1626 


0BDE 


0200 


A 




RTS 


0 










1627 


0BDF 






; 
















1628 


0BDP 






? 


CALC. 


REL. FOR AND, 


OR,MPY,DIV 








1629 


0BDF 






; 
















1630 


0BDF 


8087 


B 


$REL: 


LD 


R0 , ITREL 












1631 


0BE0 


847C 


B 




LD 


Rl, EXPREL 




; EXPRESSION 


RELOCATION 


MODE 




1632 


0BE1 


E487 


B 




SKG 


Rl , ITREL 








1633 


0BE2 


3180 


A 




RXCH 


R0,R1 












1634 


0BE3 


E426 


B 




SKG 


R1,K1 












1635 


0BE4 


2105 


A 




JMP 


$30 












1636 


0BE5 


4C00 


A 




LI 


R0,0 












1637 


0BE6 


A07C 


B 




ST 


R0, EXPREL 




; EXPRESSION 


RELOCATION 


MODE 




1638 


0BE7 


A07A 


B 




ST 


R0, EXPVAL 




; EXPRESSION 


VALUE 






1639 


0BE8 


4400 


A 




PULL 


R0 










1640 


0BE9 


21AA 


A 




JMP 


$EERR 




?REL. ERROR 


IN EXP. 






1641 


0BEA 


A07C 


B 


$30: 


ST 


R0, EXPREL 




; EXPRESSION 


RELOCATION 


MODE 




1642 


0BEB 


0200 


A 




RTS 










1643 


0BEC 








.PAGE 


' GET ITEM 












1644 


0BEC 








. LOCAL 














1645 


0BEC 






; 
















1646 


0BEC 






; 




JSR GITEM 












1647 


0BEC 






j 




NONE (NOT 


AN ERROR) ITVAL=0 ITREL=1 (ABS) 


1648 


0BEC 






? 




NORMAL 


RET 










1649 


0BEC 














SET ITVAL, ITREL (IF GR 


4, AND 


WITH 


1650 


0BEC 














. REFERS TO 


LOCCTR 




1651 


0BEC 














ALLOW UNARY 


OPS 






1652 


0BEC 






















1653 


0BEC 






















1654 


0BEC 






















1655 


0BEC 


4C00 


A 


GITEM: 


LI 


R0 ,0 












1656 


0BED 


A086 


B 




ST 


R0 , ITVAL 













28 



IMPASM8K 



1657 


0BEE 


A130 


A 




ST 


R0,$UOP 




1658 


0BEF 


4C01 


A 




LI 


R0,1 




1659 


0BF0 


A087 


B 




ST 


R0 , ITREL 




1660 


0BF1 


2C9E 


I 




JSR 


GNVC 




1651 


0BF2 


0200 


A 




RTS 




;NO ITEM RETURN 


1652 


0BF3 






; 








1663 


0BF3 






; 


TEST LEADING CHAR. 




1664 


0BF3 






; 








1665 


0BF3 


F04A 


B 


STEST: 


SKNE 


R0,DOT 




1666 


0BF4 


216C 


A 




JMP 


$DOT 




1667 


0BF5 


F038 


B 




SKNE 


R0,CZERO 




1658 


0BF6 


2111 


A 




JMP 


$HEX 




1669 


0BF7 


F045 


B 




SKNE 


R0 ,QOOTE 




1670 


0BF8 


2140 


A 




JMP 


$ QUOTE 




1671 


0BF9 


F04F 


B 




SKNE 


R0, COMMA 




1672 


0BFA 


2125 


A 




JMP 


$100 




1673 


0BFB 


F052 


B 




SKNE 


R0.CNOT 




1674 


0BFC 


2133 


A 




JMP 


$NOT 




1675 


0BFD 


F051 


B 




SKNE 


R0 , CMINUS 




1676 


0BFE 


2133 


A 




JMP 


$MINUS 




1677 


0BFF 


F044 


B 




SKNE 


R0 , CHARX 




1678 


0C00 


214B 


A 




JMP 


$X 




1679 


0C01 


F04E 


B 




SKNE 


R0 rDOLLAR 




1680 


0C02 


214E 


A 




JMP 


$NAME 




1681 


0C03 


E035 


B 




SKG 


R0/HEX2F 




1682 


0C04 


2167 


A 




JMP 


$BS0 


; BACKSPACE AND RETURN 


1683 


0C05 


E036 


B 




SKG 


R0,HEX39 




1684 


0C06 


2136 


A 




JMP 


$DEC 




1685 


0C07 


2149 


A 




JMP 


$NAME 


; ALPHA - TRY NAME 


1686 


0C08 






• 








1687 


0C08 














1688 


0C08 






i 


ZERO - 


HEX CONSTANT 




1689 


0C08 






i 








1690 


0C08 


2CE9 


I 


SHEX: 


JSR 


GNCVC 




1691 


0C09 


2109 


A 




JMP 


$RET1 


; FINISHED CONSTANT-GO 


1692 


0C0A 


E035 


B 




SKG 


R0 , HEX2F 




1693 


0C0B 


2106 


A 




JMP 


$BSPR1 


; BACKSPACE AND RETURN 


1694 


0C0C 


E036 


B 




SKG 


R0,HEX39 




1695 


0C0D 


2115 


A 




JMP 


$1 




1696 


0C0E 


E032 


B 




SKG 


R0 r HEX40 


?A -1 


1697 


0C0F 


2102 


A 




JMP 


$BSPR1 




1698 


0C10 


E037 


B 




SKG 


R0,HEX46 


?F 


1699 


0C11 


2113 


A 




JMP 


S2 




1700 


0C12 








BACKSPACE 




1701 


0C12 


7C5E 


B 


SBSPR1: 


DSZ 


INPTR 


; INPUT CHAR PTR 


1702 


0C13 






• 








1703 


0C13 






• 


RETURN 


VALUE AFTER 


PROCESSING UNARY OPS WHICH 


1704 


0C13 






• 








1705 


0C13 


8486 


B 


$RET1 i 


LD 


Rl , ITVAL 




1705 


0C14 


810A 


A 




LD 


R0 , $UOP 




1707 


0C15 


1103 


A 




BOC 


Z,$NOUN 


?NO UNARY 


1703 


0C16 


1305 


A 




BOC 


ODD, SUM 


; UNARY MINUS 


1709 


0C17 


5100 


A 


$UNOT: 


CAI 


R1,0 




1710 


0C18 


A486 


B 


$30: 


ST 


Rl , ITVAL 




1711 


0C19 


8086 


B 


$NOUN: 


LD 


R0, ITVAL 




1712 


0C1A 


8487 


B 




LD 


Rl , ITREL 




1713 


0C1B 


0201 


A 




RTS 


1 




1714 


0C1C 


5101 


A 


$UM: 


CAI 


Rl,l 




1715 


0C1D 


14F9 


A 




BOC 


B1EQ1,$UN0T 




1716 


0C1E 


21F9 


A 




JMP 


$30 




1717 


0C1F 


0000 


A 


$UOP: 


.WORD 


0 


; UNARY OP CODE BIT 0 


1718 


0C20 


4C18 


A 


$100: 


LI 


R0,24; 


SYNTAX ERROR 


1719 


0C21 


2CAA 


I 




JSR 


ERROR 





1 NOT 



29 



IMPASM8K 



1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 



0C22 

0C23 

0C23 

0C23 

0C23 

0C24 

0C25 

0C26 

0C27 

0C28 

0C29 

0C2A 

0C2B 

0C2C 

0C2D 

0C2E 

0C2F 

0C30 

0C30 

0C30 

0C30 

0C31 

0C32 

0C32 

0C32 

0C32 

0C32 

0C33 

0C34 

0C35 

0C36 

0C37 

0C38 

0C39 

0C39 

0C39 

0C3A 

0C3B 

0C3C 

0C3D 

0C3D 

0C3D 

0C3E 

0C3E 

0C3F 

0C40 

0C41 

0C42 

0C43 

0C44 

0C45 

0C46 

0C47 

0C48 

0C49 

0C4A 

0C4B 

0C4C 

0C4C 

0C4C 

0C4D 

0C4E 

0C4F 



21EF A 



D038 B $1: 
2101 A 
D039 B $2: 
8486 B $3: 
7546 A 
2104 A 
5D04 A 
3400 A 
A086 B 
21DB A 
4C06 
2CAA 
21E3 



$4: 



4D02 A $NOT: 
2101 A 



4001 
81EB 
3482 
A1E9 
2C9E 
2131 
21BA 



$MINUS: 
$MIN1: 



JMP 


$BSPR1 


CONTINUE HEX 


ctin 
DUD 


KB r HfcAju 


JMP 


$3 


SUB 


R0,HEX37 


LD 


R1,ITVAL 


SKAZ 


R1,XF000 


,7 MP 

U rl .tr 




SHL 


Rl,4 


RADD 


Rl , R0 


ST 


R0 , ITVAL 


JMP 


$HEX 


LI 


R0,6; 


JSR 


ERROR 


JMP 


$RET1 


% - NOT 




LI 


Rl,2 


JMP 


$MIN1 


MINUS 


LI 


Rl,l 


LD 


R0,$UOP 


RXOR 


R1,R0 


ST 


R0,$UOP 


JSR 


GNVC 


JMP 


$ERR 


JMP 


$TEST 



?LOOP BACK FOR NEXT HEX DIGIT 
VALUE ERROR 



; ERROR - NO ITEM FOLLOWS UNARYOPERATOR 
;TEST NEW CHAR. 



2CEA I $QUOTEi 
212E A 
A086 B 
21D6 A 



D038 B $DEC: 

8486 B 
5D01 A 
A486 B 
5D02 A 
C486 B 
3400 A 
A036 B 
2CE9 I 
21CC A 
E035 B 
21C9 A 
E036 B 
21F2 A 
21C6 A 



2CE9 I $X: 

2103 A 

F045 B 

21B8 A 



QUOTE - STRING CONSTANT 

JSR GSTCON 

JMP $ERR 

ST R0 , ITVAL 

JMP $RET1 

NON-ZERO DIGIT 
SUB R0,HEX30 

MPY ITVAL BY 10 AND ADD DIGIT FROM R0 



LD 
SHL 
ST 
SHL 
ADD 
RADD 
ST 
JSR 
JMP 
SKG 
JMP 
SKG 
JMP 
JMP 



Rl , ITVAL 
Rl r l 

Rl, ITVAL 
Rl,2 

Rl , ITVAL 

R1,R0 

R0 , ITVAL 

GNCVC 

$RET1 

R0,HEX2F 

$BSPR1 

R0,HEX39 

$DEC 

$BSPR1 



?GET NEXT VALID CHAR. 
;N0 MORE 

; BACKSPACE AND RETURN 1 



X - HEX OR NAME 
JSR GNCVC 
JMP $NAME 
SKNE R0, QUOTE 
JMP $HEX 



yNONE - NAME IS X 

; x' 



30 



IMPASM8K 



1783 


0C50 


7C5E 


B 




DSZ 


INF IK 


} INPUT CHAR PTR 


1784 


6C51 






J 








1785 


0C51 






i 


NAME 






1786 


9C51 


7C5E 


B 


$NAME : 


DSZ 


rim m i"» 

INPTR 


; INPUT CHAR PTR 


1787 


0C52 


291C 


A 




JSR 


GSYM 


•GET SYMBOL 


1788 


0C53 


2115 


A 




JMP 


$ERR 


;NOT A VALID NAME 


1789 


0C54 


8082 


B 




LD- 


T"* f% fi triT T A T 

R0 , STVAL 




1790 


0C55 


A086 


B 




ST 


T\ ft t mr t » t 

R0 , ITVAL 




1791 


0C56 


8083 


B 




LD 


R0 r STPDEF 




1792 


0C57 


607B 


B 




AND 


R0 , EXPPD 


;PREV.DEF. 1=YES 


1793 


0C58 


A07B 


B 




ST 


« fx n vnnn 

R0 f EXPPD 


;PREV.DEF. 1=YES 


1794 


0C59 


8300 


A 




LD 


R0 ,0 (R3) 




1795 


0C5A 


682C 


B 




OR 


R0 , K4 




1796 


0C5B 


A300 


A 




ST 


r> fX fx 1 r% *■> \ 

R0 ,0 (R3) 


;SET USED BIT 


1797 


0C5C 


8084 


B 




LD 


R0 , STREL 




1798 


0C5D 


E02C 


B 




SKG 


R0 , K4 




1799 


0C5E 


2105 


A 




JMP 


5SYRET 


; SYMBL RETURN 


1800 


0C5F 


6027 


B 




AND 


R0 ,K3 
$SYRET 




1801 


0C60 


2103 


A 




JMP 




1802 


0C61 






• 








1803 


0C61 






* 


USE 


LOCCTR 




1804 


0C61 


845C 


B 


$DOT: 


LD 


Rl , LOCCTR 




1805 


0C62 


806B 


B 




LD 


R0 ,SECT 




1806 


0C63 


A486 


B 




ST 


Rl , ITVAL 




1807 


0C64 


A087 


B 


$SYRET: 


ST 


R0 , ITREL 




1808 


0C65 


F026 


B 




SKNE 


R0 ,K1 




1809 


0C66 


21AC 


A 




JMP 


$RET1 


;ABS - PROCESS UNARY 


1810 


0C67 


81B7 


A 




LD 


R0 , $UOP 




1811 


0C68 


11B0 


A 




BOC 


Z , $NOUN 




1812 


0C69 






* 








1813 


0C69 














1814 


0C69 


4C18 


A 


SERR: 


LI 


R0 ? 24 j 


SYNTAX ERROR ; 


1815 


0C6A 


2CAA 


I 




JSR 


ERROR 




1816 


0C6B 


0200 


A 




RTS 


0 




1817 


0C6C 














1818 


0C6C 


7C5E 


B 


$BS0: 


DSZ 


INPTR 


; INPUT CHAR PTR 


1819 


0C6D 


0200 


A 




RTS 


0 




1820 


0C6E 


F000 


A 


XF000: 


.WORD 


0F000 





1821 


0C6F 










.PAGE 


'GET SYMBOL 


, BUILD NAME/DIR' 


1822 


0C6F 










T HPRT 






1823 


0C6F 










GET SYMBOL (IF ANY) 




1824 


0C6F 












SCANS NAME, 


SEARCHES SYMBOL TABLE , R0=STVAL , R1=STREL 


1825 


0C6F 












R3=STPT 




1826 


0C6F 
















1827 


0C6F 












JSR GSYM 




1828 


0C6F 












NO SYMBOL RETURN 


1829 


0C6F 












NORMAL 


RETURN 


1830 


0C6F 


4C00 


A 


GSYM: 


LI 


R0 f 0 




1831 


0C70 


2101 


A 






JMP 


$GS2 




1832 


0C71 














1833 


0C71 


4C02 


A 


GFORM: 


LI 


R0 r 2 




1834 


0C72 


A10E 


A 


$GS2: 


ST 


R0 , $SORF 


; SYMBOL30R3FORM 


1835 


0C73 


2C9E 


I 






JSR 


GNVC 




1836 


0C74 


0200 


A 






RTS 




;NO SYMBOL RETURN 


1837 


0C75 


290C 


A 






JSR 


BLDNAM 


; BUILD NAME 


1838 


0C76 


0200 


A 






RTS 




;N0 NAME RETURN 


1839 


0C77 


8109 


A 






LD 


R0 f $SORF 




1840 


0C78 


C080 


B 






ADD 


R0 , CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME 


1841 


0C79 


A080 


B 






ST 


R0 , CNAM9 


?1ST 2 COMPRESSED CHARS. OF NAME 


1842 


0C7A 


2963 


A 






JSR 


STSER 


; SEARCH SYMBOL TABLE 


1843 


0C7B 


24EB 


I 






JMP 


INABS-1 





31 



IMPASM8K 



1844 


0C7C 


8082 


B 






LD 


R0 , STVAL 


; VALUE 


1*45 


0C7D 


8484 


B 






LD 


R1,STREL 


; RELOCATION CODE 


184^ 


0C7E 


0201 


A 






RTS 


1 




1847 


0C7F 


4400 


A 


$GS1: 


PULL 


R0 




1848 


0C80 


24 BA 


I 






JMP 


ENDST 


; STATEMENT END 


1849 


0C81 


0C82 


A 


$SORF: 


.= . + 1 






1850 


0C82 
















1851 


0C82 










BUILD 


NAME OR DIRECTIVE 


1852 


0C82 
















1853 


0C82 












JSR BLDNAM OR 


BLDDIR 


1854 


0C82 












NO NAME RETURN 


1855 


0C82 












NORML RETURN 


1856 


0C82 
















1857 


0C82 












ENTRY: R0 


CONTAINS 1ST CHAR 


1858 


0C82 












EXIT: R0 


CONTAINS NEXT VALID CHAR (BUT NOT SKIPPE 


1859 


0C82 












$ REPLACED WITH REGION NUM. 


1860 


0C82 












SET 


NAM0 , NAM1 , NAM2 , CNAM0 , CNAM1 


1861 


0C82 
















1862 


0C82 


F04E 


B 


BLDNAM : 


SKNE 


R0, DOLLAR 




1863 


0C83 


2105 


A 






JMP 


$1 


.$ OK 


1864 


0C84 


E032 


B 






SKG 


R0,HEX40 


;A -1 


1865 


0C35 


0200 


A 






RTS 




j NOT A VALID NAME 


1866 


0C86 


E033 


B 






SKG 


R0,HEX5A 


;Z 


1867 


0C87 


2108 


A 






JMP 


$2 




1868 


0C88 


0200 


A 






RTS 




;NOT A VALID NAME 


1869 


0C39 








BUILD 


LOCAL NAME 




1870 


0C89 


4D08 


A 


$1: 


LI 


Rl , 8 




1871 


0C8A 


A480 


B 






ST 


R1,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME; SET LO 


1872 


0C8B 


806C 


B 






LD 


R0,LOCREG 




1873 


0C8C 


5C08 


A 






SHL 


R0,8 




1874 


0C8D 


3181 


A 






RCPY 


R0,R1 




1875 


0C8E 


5D02 


A 






SHL 


Rl,2 




1876 


0C8F 


2103 


A 






JMP 


$3 




1877 


0C90 
















1878 


0C90 






I 




BUILD 


NON LOCAL NAME 




1879 


0C90 






BLDDIR: 








1880 


0C90 


4D00 


A 


$2: 


LI 


R1,0 




1881 


0C91 


A480 


B 






ST 


Rl ,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME 


1882 


0C92 


2933 


A 






JSR 


$GLI 




1883 


0C93 


2929 


A 


$3: 


JSR 


$GP1 




1884 


0C94 


A07D 


B 






ST 


R0,NAM0 


;1ST 2 CHARACTERS OF NAME ; STORE 1ST 


1885 


0C95 


C480 


B 






ADD 


R1,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME; PICK U 


1886 


0C96 


A480 


B 






ST 


R1,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME 


1887 


0C97 






i 










1838 


0C97 


2924 


A 






JSR 


$GP 




1889 


0C98 


A07E 


B 






ST 


R0 r NAMl 


;3RD AND 4TH CHARACTERS OF NAME ; STORE 


1890 


0C99 


A431 


B 






ST 


Rl ,CNAM1 


^COMPRESSED 3RD AND 4TH CHARS .COMPRESSE 


1891 


0C9A 


2921 


A 






JSR 


$GP 




1892 


0C9B 


A07F 


B 






ST 


R0 ,NAM2 


;5TH AND 6TH CHARACTERS OF NAME ; STORE 


1893 


0C9C 


F04 8 


B 






SKNE 


R0 r BLANKS 


1894 


0C9D 


210F 


A 






JMP 


$4 




1895 


0C9E 






l 




SET LONG SYMBOL FLAGS 




1896 


0C9E 


8030 


B 






LD 


R0,X8000 




1897 


0C9F 


C07D 


B 






ADD 


R0,NAM0 


;1ST 2 CHARACTERS OF NAME 


1898 


0CA0 


A07D 


B 






ST 


R0,NAM0 


;1ST 2 CHARACTERS OF NAME 


1899 


0CA1 


4C01 


A 






LI 


R0,1 




1900 


0CA2 


C080 


B 






ADD 


R0 , CNAM0 


?1ST 2 COMPRESSED CHARS. OF NAME 


1901 


0CA3 


A080 


B 






ST 


R0,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME 


1902 


0CA4 






1 




TEST IF LOCAL LONG SYMBOL 


1903 


0CA4 


4C08 


A 






LI 


R0, 8 




1904 


0CA5 


7080 


B 






SKAZ 


R0,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME 


1905 


0CA6 


2101 


A 






JMP 


. + 2 




1906 


0CA7 


2105 


A 






JMP 


$4 





32 



IMPASM8K 



1907 


0CA8 








YES-FORCE BLANK I 


1908 


0CA8 


807F 


B 




LD 


R0 f NAM2 


1909 


0CA9 


5CF8 


A 




SHR 


R0, 8 


1910 


0CAA 


5C08 


A 




SHL 


R0, 8 


1911 


0CAB 


C034 


B 




ADD 


R0 r BLANK 


1912 


0CAC 


A07F 


B 




ST 


R0,NAM2 


1913 


0CAD 


807D 


B 


$4: 


LD' 


R0,NAM0 


1914 


0CAE 


F10B 


A 




SKNE 


R0,$DT 


1915 


0CAF 


24D9 


I 




JMP 


X ERROR 


1916 


0CB0 


F10A 


A 




SKNE 


R0 , $DL 


1917 


0CB1 


2409 


I 




JMP 


XERROR 


1918 


0CB2 






* 


SKIP 


EXCESS CHARS 


1919 


0CB2 


291D 


A 


$4B: 


JSR 


$GAN 


1920 


0CB3 


F034 


B 




SKNE 


R0, BLANK 


1921 


0CB4 


2101 


A 




JMP 


$4A 


1922 


0CB5 


21FC 


A 




JMP 


$4B 


1923 


0CB6 


2C9E 


I 


$4A: 


JSR 


GNVC 


1924 


0CB7 


0201 


A 




RTS 


1 


1925 


0CB8 


7C5E 


B 




DSZ 


INPTR 


1926 


0CB9 


0201 


A 




RTS 


1 


1927 


0CBA 


2E20 


A 


$DT: 


.WORD 


* ** 


1928 


0CBB 


2420 


A 


$DL: 


.WORD 


'$' 


1929 


0CBC 






; 






1930 


0CBC 






; 


GET PAIR OF CHAR 


1931 


0CBC 






; 






1932 


0CBC 


2908 


A 


$GP: 


JSR 


$GL 


1933 


0CBD 


A105 


A 


$GP1: 


ST 


R0,$T0 


1934 


0CBE 


A505 


A 




ST 


Rl f $T1 


1935 


0CBP 


290B 


A 




JSR 


$GR 


1936 


0CC0 


C102 


A 




ADD 


R0,$T0 


1937 


0CC1 


C502 


A 




ADD 


R1..ST1 


193S 


0CC2 


0200 


A 




RTS 




1939 


0CC3 






f 






1940 


0CC3 


0000 


A 


$T0: 


.WORD 


0 


1941 


0CC4 


0000 


A 


$T1: 


.WORD 


0 


1942 


0CC5 






; 






1943 


0CC5 






; 


GET LEFT CHAR 


1944 


0CC5 






; 






1945 


0CC5 


£. V Xf t~l 


* 


$GL: 


JSR 


$GAN 


1946 


0CC6 


3181 


A 


$GL1: 


RCPY 


R0,R1 


1947 


0CC7 


D434 


B 




SUB 


R1,HEX20 


i n A o 

J. ^ t o 


a rT> o 


conn 






SHL 


»-* n r\ 
KD,0 


1949 


0CC9 


5D0A 


A 




SHL 


R1,H 


1950 


0CCA 


0200 


A 




RTS 




1951 


0CCB 






• 






1952 


0CCB 






; 


GET RIGH CHAR 


1953 


0CCB 






; 






1954 


0CCB 


2904 


A 


$GR: 


JSR 


$GAN 


1955 


0CCC 


3181 


A 




RCPY 


R0,R1 


1956 


0CCD 


D434 


B 




SUB 


R1,HEX20 


1957 


0CCE 


5D04 


A 




SHL 


Rl,4 


1958 


0CCF 


0200 


A 




RTS 




1959 


0CD0 






; 






1960 


0CD0 








GET NEXT C0NSECUT1 


1961 


0CD0 












1962 


0CD0 


2CEC 


I 


$GAN : 


JSR 


GNC 


1963 


0CD1 


2107 


A 




JMP 


$11 


1964 


0CD2 


E035 


B 




SKG 


R0,HEX2F 


1965 


0CD3 


2104 


A 




JMP 


$10 


1966 


0CD4 


E032 


B 




SKG 


R0,HEX40 


1967 


0CD5 


2105 


A 




JMP 


$12 


1968 


0CD6 


E033 


3 




SKG 


R0 , HEX5A 


1959 


0CD7 


0200 


A 




RTS 





;5TH AND 6TH CHARACTERS OF NAME 



5TH AND 6TH CHARACTERS OF NAME 

1ST 2 CHARACTERS OF NAME yTEST IF MA 



IN NAME IF ANY 



; INPUT CHAR PTR 



TEMP0 
TEMPI 



NEXT CHAR 
NONE 
0 -1 
NOT A/N 

;MAY BE NUMERIC 

;Z 

;CHAR I A/N 



33 



IMPASM8K 



1970 


0CD8 


7C5E 


B 


$10: 


DSZ 


INPTR 


; INPUT CHAR PTR 


1971 


0CD9 


8034 


B 


$11: 


LD 


R0 , BLANK 




1972 


0CDA 


0200 


A 




RTS 






1973 


0CDB 


E036 


B 


$12: 


SKG 


R0,PEX39 


;9 


1974 


0CDC 


0200 


A 




RTS 




; RETURN WITH A/N 


1975 


0CDD 


21FA 


A 




JMP 


$10 



1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 



0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDE 
0CDF 
0CE0 
0CE1 
0CE2 
0CE3 
0CE4 
0CE5 
0CE5 
0CE5 
0CE5 
0CE6 
0CE7 
0CE8 
0CE8 
0CE9 
0CEA 
0CEB 
0CEC 
0CEC 
0CED 
0CEE 
0CEF 
0CF0 
0CF1 
0CF2 
0CF3 
0CF3 
0CF3 
0CF4 
0CF5 
0CF6 
0CF7 
0CFR 
0CF9 
0CF9 
0CFA 
0CFB 
0CFC 



. PAGE 
. LOCAL 



STSER - SYMBOL TABLE SEARCH' 



8065 B 
A062 B 
8064 B 
A061 B 
8063 B 
A060 B 
8152 A 



9C61 B 
A152 A 
2108 A 

8300 A 
6150 A 
F080 B 
211D A 



8300 A 

6027 B 

50FE A 

3300 A 

FC62 B 

2137 A 

21F5 A 



STSER: 



$RSER: 



$1: 



$3 



$4: 



8080 B 

6027 B 

50FE A 

C062 B 

E060 B 

212A A 

A062 B 

B13E A 

4801 A 

A074 B 

5CFo oiaoia o 

2030 0CFE A300 A 



$APEND: 
$APPEND 



SYMBOL TABLE SEARCH 



JSR STSER 

OVERFLOW RETURN 

NORMAL RETURN (R3 PTS. TO ENTRY) 
WILL APPEND NEW ENTRY IF NOT FOUND 



SET REGION A 



LD 
ST 
LD 
ST 
LD 
ST 
LD 



R0,NEXTA 
R0 , NEXT 
R0,TOPA 
R0 , TOP 
R0,BASEA 
R0 , BASE 
R0,$NXTA 



REGION SEARCH 



LD 
ST 
JMP 

TOP OF 

LD 

AND 

SKNE 

JMP 



R3,TOP 
R0 , $QNXT 
$4 
LOOP 
R0, 0 (R3) 
R0,XFFFB 
R0 f CNAM0 
$2 



NO MATCH- LOOP 



LD 

AND 

CAI 

RADD 

SKNE 

JMP 

JMP 



R0,0(R3) 
R0,K3 
R0,-2 
R0,R3 
R3 , NEXT 
$REND 
$1 



APPEND ENRY IF ROOM 



LD 
AND 
CAI 
ADD 
SKG 
JMP 
YES - 
ST 
ST 

AISZ 
ST 
uu 
ST 



R0 f CNAM0 
R0,K3 
R0,-2 
R0 r NEXT 
R0 , BASE 
$ROV 
ROOM AVAIL. 
R0 , NEXT 
R0 ,@$ONXT 
R0,1 

R0 , FORMPT 
R0,0 (R3) 



;1ST 2 COMPRESSED CHARS. OF NAME 
7 WORD 0 MATCH 



; REGION END 
yNEXT ENTRY LOOP 



;1ST 2 COMPRESSED CHARS. OF NAME 



; REGION OVERFLOW 
- APPEND ENTRY 



;xbT l COMPRESSED CHARS. OF NAME 



34 



IHPASM8K 



2031 


0CFF 


8481 


B 






LD 


R1,CNAM1 


; COMPRESSED 3RD AND 4TH CHARS. 


2032 


0D00 


A7FF 


A 






ST 


Rl,-1(R3) 




2033 


0D01 


4D00 


A 






LI 


Rl,0 




2034 


0D02 


A7FE 


A 






ST 


R1,-2(R3) 




2035 


0D03 


1301 


A 






BOC 


ODD, $6 


? LONG SYMBOL 


2035 


0D04 


2102 


A 






JMP 


$7 




2037 


0D05 








NEW ENTRY TO CONTAIN LONG SYMBOL 


2038 


0D05 


847F 


B 


$6: 


LD 


Rl r NAM2 


?5TH AND 6TH CHARACTERS OF NAME 


2039 


0D06 


A7FD 


A 






ST 


Rl r -3(R3) 




2040 


0D07 


AC85 


B 


$7: 


ST 


R3 , STPT 




2041 


0D08 


2106 


A 






JMP 


$9 


•SET UP RESULTS AND RETURN 


2042 


0D09 










WORD0 


MATCH CHECK OTHERS 


2043 


0D09 


87FF 


A 


$2: 


LD 


R1,-1(R3) 




2044 


0D0A 


642E 


B 






AND 


R1,XFFF0 


; FFF0 INCLUDES LOCAL BIT 


2045 


0D0B 


F481 


B 






SKNE 


R1,CNAM1 


? COMPRESSED 3RD AND 4TH CHARS. 


2046 


0D0C 


2101 


A 






JMP 


$2A 




2047 


0D0D 


21DE 


A 






JMP 


$3 


?N0 MATCH 


2048 


0D0E 


1310 


A 


$2A: 


BOC 


ODD, $8 


; CHECK 3RD WORD 


2049 


0D0F 






• 


MATCH 


GOOD - SET RESULTS AND RETURN 


2050 


0D0F 


8300 


A 


$9: 


LD 


R0,0(R3) 




2051 


0D10 


6027 


B 






AND 


R0/K3 




2052 


0D11 


50FF 


A 






CAI 


R0,-1 




2053 


0D12 


3C00 


A 






RADD 


R3,R0 




2054 


0D13 


A074 


B 






ST 


R0 ,FORMPT 




2055 


0D14 


83FF 


A 






LD 


R0,-1(R3) 




2056 


0D15 


5CFD 


A 






SHR 


R0,3 




2057 


0016 


6026 


B 






AND 


R0,K1 




2058 


0D17 


A083 


B 






ST 


R0 t STPDEF 




2059 


0D18 


83FF 


A 






LD 


R0,-1(R3) 




2060 


0D19 


602A 


B 






AND 


R0,K7 




2061 


0D1A 


A084 


B 






ST 


R0 . STREL 




2052 


0D1B 


83FE 


A 






LD 


R0,-2(R3) 




2063 


0D1C 


A082 


B 






ST 


R0 1 STVAL 




2064 


0D1D 


AC85 


B 






ST 


R3,STP-T 




2065 


0D1E 


0201 


A 






RTS 


1 




2066 


0D1F 
















2067 


0D1F 








» 


CHECK 


MATCH OF 3RD 


WORD 


2068 


0D1F 


87FD 


A 


$8: 


LD 


R1,-3(R3) 




2069 


0D20 


F47F 


B 






SKNE 


R1,NAM2 


j 5TH AND 6TH CHARACTERS OF NAME 


2070 


0D21 


21ED 


A 






JMP 


$9 


? MATCH 


2071 


0D2 I 


21C9 


A 






JMP 


$3 


;N0 MATCH - LOOP 


2072 


0D23 
















2073 


0D23 










REGION 


OVERFLOW 




2074 


0D23 
















2075 


0D23 


8060 


B 


$R0V: 


LD 


R0 f BASE 




2076 


0D24 


F066 


B 






SKNE 


R0 , BASEB 
$10 


;IS THIS LAST REGION? 


2077 


0D25 


2101 


A 






JMP 




2078 


0D26 


2108 


A 






JMP 


$SETB 




2079 


0D27 






; YES- 


SYMBOL 


TABLE OVERFLOW 


2080 


0D27 


4C24 


A 


$10: 


LI 


R0, 36; 


TABLE OVERFLOW ERROR 


2381 


0D28 


24AA 


I 






JMP 


ERROR 


; ALSO RETURN TO MY CALLER 


2082 


0D29 
















2083 


0D29 










REGION 


END 




2084 


0D29 
















2085 


0D29 


8060 


B 


$REND: 


LD 


R0,BASE 




2086 


0D2A 


F066 


B 






SKNE 


R0 , BASEB 


;IS THIS LAST REGION? 


2087 


0D2B 


21C7 


A 






JMP 


$APEND 


yYES 


2088 


0D2C 










MAYBE 


IN 2ND REGION 


UNLESS EMPTY 


2089 


0D2C 


8068 


B 






LD 


R0 , NEXTB 




2090 


0D2D 


F067 


B 






SKNE 


R0 ,TOPB 


ylS REGION B EMPTY 


2091 


0D2E 


21C4 


A 






JMP 


$APEND 


;YES 


2092 


0D2F 






• 








2093 


0D2F 






• 

9 


SET UP 


REGION B 
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IMPASM8K 



2094 


0D2F 












2095 


0D2F 


8068 


B 


SSETB: 


LD 


D n MrvT'D 
Wli f NbX I D 


2096 


0D30 


A062 


B 






ST 


D Ck VT IT v tn 

KB f NEiAI 


2097 


0D31 


R066 


B 






LD 


Kb / bflbfiB 


2098 


0D32 


A060 


B 






ST 


r\n nipt 1 

RU , BAoEi 


2099 


0D33 


8067 


B 






LD 


R0 t IOPd 


2100 


0D34 


A061 


B 






ST • 


ry n rnf\T\ 


2101 


a r\ i c 
WDiD 


rtl fll 

8102 


A 






LD 


KkJ f >NX i a 


2102 


/ITS'} £ 

0036 


21AE 


A 






JMP 


$RSER ; REGION SEARCH 


2103 


0D37 


n a c c 

0065 


B 


$NXTA : 


.WORD 


NEXTA 


2104 


0D38 


n n c o 

0068 


B 


$NXTB: 


.WORD 


NEXTB 


2105 


0D39 


0D3A 


A 


$QNXT: 


. = . + 1 




2106 


0D3A 


n» pots 
FFFB 


A 


XFFFB: 


.WORD 


0FFFB 


2107 


0D3B 










. PAGE 




2108 


0D3B 










. LOCAL 




2109 


0D3B 














2110 


0D3B 










DIRECTIVE / INSTRUCTION SEARCH 


2111 


0D3B 














2112 


0D3B 






DISER: 






2113 


0D3B 


8D15 


A 






LD 


R3, DITBLF 


2114 


0D3C 


847E 


B 






LD 


R1,NAM1 ;3RD AND 4TH CHARACTERS OF NAME 


2115 


0D3D 


887F 


B 






LD 


R2,NAM2 ;5TH AND 6TH CHARACTERS OF NAME 


2116 


0D3E 








BEGIN LOOP 


2117 


0D3E 


807D 


B 


< 


52: 


LD 


R0,NAM0 ?1ST 2 CHARACTERS OF NAME 1ST 2 


2118 


0D3F 


F302 


A 






SKNE 


R0,2(R3) 


olio 
2119 


0D40 


2101 


A 






JMP 


.+2 


2120 


a r\ a i 
0D41 


i i 1 
2107 


A 






JMP 


$3 


2121 


0D42 


F703 


A 






SKNE 


R1,3(R3) 


2122 


0D43 


2101 


A 






JMP 


$2B 


2123 


0D44 


2105 


A 






JMP 


$4 


2124 


0D45 


1201 


A 


$2B: 


BOC 


P,.+2 


1 1 i e 

2125 


0D46 


FB04 


A 






SKNE 


R2,4(R3) 


1 1 1 £ 

2126 


0D47 


a i a i 
0201 


A 






RTS 


1 ; FOUND 


21 27 


a r\ A o 
0D48 


11 ai 

2101 


A 






JMP 


$4 


1 1 i o 

2128 


0D49 








• 


NOT FOUND YET 


2129 


0D49 


8302 


A 


$3: 


LD 


R0,2(R3) 


2130 


n rs A n 

0D4A 


i i a l 
1201 


A 


«54: 


BOC 


P, . + 2 


2131 


0D4B 


4B01 


A 






AISZ 


R3,l ; 5 WORD ENTRY 


2132 


0D4C 


A O fk A 

4B04 


A 






AISZ 


R3,4 


1111 

2133 


0O4D 


on/11 

FD02 


A 






SKNE 


R3 f DITBLL 


ii i j 
2134 


n p. 1 n 

0D4E 


0200 


A 






RTS 


?NOT FOUND 


not 

2135 


0D4F 


21EE 


A 






JMP 


$2 ; REPEAT LOOP 


11 1£ 

2136 




i c c r* 
1 56C 


A 


DITBLL: 


.WORD 


DITBL2 


2137 


0D51 


1406 


A 


DITBLF: 


.WORD 


DITBLB 


2138 


0D52 










.PAGE 


'GET STRING - GNSTRG , GCSTRG , GSTCON ' 


1 1 i n 

2139 


0D52 














2140 


0D52 










GET NEW 


STRING FIRST 2 CHARACTERS - DO NOT HAVE 1ST QUOTE 


2141 


0D52 












JSR GNSTRG 


2142 


0D52 












NONE OR ERROR RETURN (ERROR ALREADY GENERATED) 


2143 


0D52 












2 CHARS IN REG 0 RETURN 


2144 


0D52 














2145 


0D52 










. LOCAL 




214 6 


»Dd2 






GNSTRG: 






2147 


0D52 


2C9E 


I 






JSR 


GNVC 


2148 


0D53 


0200 


A 






RTS 


; END OF STATEMNT 


2149 


0D54 


F045 


B 






SKNE 


R0 , QUOTE 


2150 


0D55 


2101 


A 






JMP 


$2A 


2151 


0D56 


2122 


A 






JMP 


SI ; ERROR - NOT A STRING 


2152 


0D57 


4C00 


A 


$2A: 


LI 


R0,0 


2153 


0D58 


A134 


A 






ST 


R0, $END 


2154 


0D59 


4C00 


A 


$2: 


LI 


R0,0 
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2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 



0D5A 
0D5B 
0D5C 
0D5D 
0D5E 
0D5F 
0D60 
0D61 
0D62 
0D62 
0D63 
0D64 
0D64 
0D65 
0D66 
0D67 
0D68 
0D68 
0D69 
0D6A 
0D6B 
0D6C 
0D6C 
0D6D 
0D6E 
0D6F 
0D70 
0D71 
0D72 
0D73 
0D74 
0074 
0D75 
0D76 
0D77 
0D78 
0D79 
0D79 
0D7A 
0D7B 
0D7C 
0D7C 
0D7C 
0D7C 
0D7C 
0D7C 
0D7C 
0D7D 
0D7E 
0D7P 
0D7F 
0D7F 
0D7F 
0D7F 
0D7F 
0D7F 
0D7F 
0D80 
0D81 
0D82 
0D8 3 
0D84 
0D85 



AX Jl 


a 

ft 




Cm 

O 1 




Rfl 'SWORD 






T 
X 


V -> • 






GNC 




9 1 1 C 


a 




TMP 




V X 


• PR ROD — TT I PP1T CTDTHP 


r v *» j 


r 

D 








L\V j U W J. Lt 




9 1 flQ 


a 




.TMP 




S3 


• nnnTP 

r V'J'-'X O 


ft t\ or 


a 
ft 


S7 • 


t n 




Rl ^WORT") 




JiOD 


a. 




RXCH 




R0 , Rl 




X JV c 


a 

rt 








NZ > $4 


•JMP TP THTC. TC 9NT1 ruiD 
r urlr it XnXO XD £Fiu v-tlftK 






• 


THIS 


IS 


1ST CHAR 




ADZ 7 


a 

ft 




O X 




Rl,$WORD 




91 P7 


a 
ft 




.TMP 




$5 


• RFPP2i m fop 9wn PURR 
JKCitrCinl. run ZNU LtlAK 








fPUTO 
In J. j 


IS 


2ND CHAR 




a^9ft 

ft J £. O 


a 


S4 • 


em 

O 1 




Rl , SEND 


• cpt pwr> THnTiTno mom h son 

i 361 EiPtU XNUXttXvJK NvJW £>EiKU 




a 
ft 




SHL 




R0,8 




fl 9C 


» 
A 




ADD 




R0 t $END 




a 9 a l 


A 
ft 




PTS 




1 


; ZND RETURN WITH z CHRS . 








DO WE 


HAVE DOUBLE QUOTE 


UK ILUblNb QUUxb 


Z(J£C 


1 




JSR 




GNC 




91 A 

ZX Bj 


a 

ft 




JMP 




$6 


ft-LiUolNva (JUUxfc. 




R 




SKNE 




R0, QUOTE 




91 P^ 


a 

ft 




JMP 




$7 


• TVMTRT 17 ntl/VPV 

'UUUoLCi yuuiti 






* 


CLOSING 


QUOTE - ZERO OR 


UNt. LHAK bIKxN(j 




o 

C5 




DSZ 




INPTR 


•IN Fill LriAK rxK 


81 1 P 


a 


"? O s 


LD 




R0 , $WORD 






a 

ft 




SHL 




R0,8 




1 1 CIA 


a 




BOC 




Z,$8 




PC1 1 A 


R 




ADD 




R0 f BLANK 






a 
ft 




LI 




R1,0 




ft J Xft 


a 

A 




ST 




R1,$END 


?SET STRING END 


0I9CI1 


a 




RTS 




1 










WAS A 


ZERO CHAR STRING 




8118 


A 


$8; 


LD 




R0,$END 




1101 


A 




BOC 




Z,.+2 




0200 


A 




RTS 




; STRING CONTINUATION EMPTY 


8048 


B 




LD 




R0 , BLANKS 




21F9 


A 




JMP 




$9 








• 


ERROR 








4C18 


A 


$1: 


LI 




R0,24; 


SYNTAX ERROR 


2CAA 


I 




JSR 




ERROR 




0200 


A 


$10! 


RTS 






'RETURN WITH NO STRING 








GET CONTINUATION OF STRING (2 CHARS AT A TIME) 



END 



IN R0 



8110 A GCSTRG: 
11FD A 
21DA A 



NONE 

2 CHARS IN REG 0 

LD R0 , $END 

BOC Z f $10 ; END 

JMP $2 ;N0T END 

GET STRING CONSTANT (2 CHAR STRING) - WE HAVE 1ST QUOTE 



29D7 
0200 
A10A 
810A 
1106 
2CEC 
2102 



GSTCON 



JSR 

RTS 

ST 

LD 

BOC 

JSR 

JMP 



JSR 



$2A 



GSTCON 

ERROR RETURN 

2 CHARS IN R0 RETURN 



R0 , SWORD 
R0 , $END 
Z,$ll 
GNC 
$12 



; ERROR ALREADY NOTED 



;N0TE ERROR AND RETURN TO MY CALLER 
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i. C J. o 


cinft 6 

oUoO 




n 
o 




divide* 






9 9 1 Q 

t Z J. 7 


Ginft7 


910 9 

& X tl Z 


A 




.IMP 


sn 




9998 


0D88 


4fl R 

•* x o 


ft 


SI 2 • 

v 1 • 


LI 


R0 , 24 j 


SYNTAY ERROR 


9991 

Z £ Z X 




94 AA 


T 
X 




JMP 


ERROR 

u x\ xxv/ *x 




9999 










T.FRAT. 


STRING CONSTANT 




999 "3 

Z Z Z O 


0D8A 




A. 


fill. 


LD 

iJ u 


R0 - sword 




9994 


0D8B 


(390 1 


A 




XV X o 


1 

-L 




2225 


0D8C 














2226 


0D8C 














2227 


0D8C 


0000 


A 


SWORD: 


.WORD 


0 


t SAVES 2 CHAR RESULT 


2228 


0D8D 


0000 


A 


$END: 


.WORD 


0 


?0=STRING CONTINUED 


2229 


0D8E 














2230 


0D8E 














2231 


0D8E 














2232 


0D8E 















2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 



0D8E 
0D8E 
0D8E 
0D8E 
0D8E 
0D8E 
0D8E 
0D8E 
0D8E 
0D8F 
0D90 
0D90 
0D90 
0D90 
0D91 
0D92 
0D92 
0D92 
0D92 
0D92 
0D92 
0D93 
0D94 
0D95 
0D96 
0D97 
0D97 
0D97 
0D97 
0D97 
0D97 
0D98 
0D99 
0D9A 
0D9B 
0D9C 
0D9D 
0D9E 
0D9F 
0DA0 
0DA1 
0DA2 
0DA3 
0DA3 
0DA3 
0DA4 



4D01 A OGLOB: 
2104 A 



4D00 A RESETP: 
2102 A 



OMAP: 

2CED I 
21FC A 

802F B $STRT: 
2102 A 

0D97 A SLAST: 



OMAPNR: 



24ED 
A162 
A562 
4C01 
A158 
8C64 B 
8365 B 
2904 A 
8C67 B 
3868 B 
2901 A 
0200 A 



A9F2 A 



SSTRl: 



.PAGE 'SCAN SYMBOL TABLE - MAP , GLOBAL SYMBOLS, RESET P BITS 
. LOCAL 

SCAN SYMBOL TABLE: OUTPUT MAP, GLOBAL RECORDS AND RESET P BITS 



OUTPUT GLOBALS AND RESET P BITS 



LI 
JMP 



Rl,l 
SSTRT 



RESET P BITS 



LI 

JMP 



R1,0 
$STRT 



OUTPUT MAP AND RESET P BITS 



.IF 

JSR 

JMP 

LD 

JMP 

. = .+1 



SIZE8 

MAPSOR 

RESETP 

R0,XFFF7 

SSTRl 



OUTPUT MAP NO RESET OF P BITS 



SCANST: 



$ LOOP : 



.IF 

JMP 

ST 

ST 

LI 

ST 

LD 

LD 

JSR 

LD 

LD 

JSR 

RTS 



ST 



SIZES 
MAPSOR 
R0 , SFLAG 
Rl , $MG 
R0,1 

R0 , $GLBN 

R3,TOPA 

R2 ,NEXTA 

SCANST 

R3 , TOPB 

R2,NEXTB 

SCANST 



R2 , SLAST 



?MAP OR GLOBAL INDICATOR 
; GLOBAL NUMBER 
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SKNE 


R3,$LAST 




RTS 






LD 


R0,$MG 




BOC 


BlEQl,.+2 




JMP 


$300 


iHfl MAD 


JSR 


MAPLIN 




FINISHED MAP, IS THIS A 


(IT ORAT 


bU 


KB , — 1 {K.O) 




onn 


R0I 0 

JtvB t £• 




BOC 


ODD,. +2 




JMP 


$6 


• no fir nnsr 


SHOULD 


WE ASSIGN GLOBAL 


A MTIMBCD 
n WUP1I311K 


LD 


R0,$FLAG 




CAI 


R0,0 




BOC 


Z,$3A 




LD 


R0,-1(R3) 




X un 


KB ,RJ 




BOC 


NZ,$3A 


;N0 


LD 


R0,0(R3) 




AND 


R0,K4 




BOC 


Z,$3A 


? GLOBAL NOT 


ASSIGN 


GLOBAL NUMBER 




LD 


R0,$GLBN 




ST 


R0,-2(R3) 




ISZ 


$GLBN 





SHOULD WE OUTPUT GLOBALS? 



2279 0DA4 FDF1 A 

2280 0DA5 0200 A 

2281 0DA6 8155 A 

2282 0DA7 1401 A 

2283 0DA8 2101 A 

2284 0DA9 295B A 

2285 0DAA $300: 

2286 0DAA ; 

2287 0DAA 83FF A 

2288 0DAB 5CFE A 

2289 0DAC 1301 A 

2290 0DAD 212E A 

2291 0DAE ; 

2292 0DAE 814C A 

2293 0DAF 5000 A 

2294 0DB0 1109 A 

2295 0DB1 83FF A 

ling aunts** earn n 
£17D vuoa ov&f a 

2297 0DB3 1506 A 

2298 0DB4 8300 A 

2299 0DB5 602C B 

2300 0DB6 1103 A 

2301 0DB7 ; 

2302 0DB7 813C A 

2303 0DB8 A3FE A 

2304 0DB9 793A A 

2305 0DBA ; 

2306 0DBA $3A: 

2307 0DBA 8141 A 

2308 0DBB 1301 A 

2309 0DBC 211F A 

2310 0DBD 83FF A 

2311 0DBE 6027 B 

2312 0DBF 1503 A 

2313 0DC0 8300 A 

2314 0DC1 602C B 

2315 0DC2 1119 A 

2316 0DC3 ; 

2317 0DC3 ; 

2318 0DC3 ; 

2319 0DC3 ; 

2320 0DC3 ; 

2321 0DC3 S5: 

2322 0DC3 8300 A 

2323 0DC4 291F A 

2324 0DC5 A13B A 

2325 0DC6 83FF A 

2326 0DC7 291C A 

2327 0DC8 A139 A 

2328 0DC9 8300 A 

2329 0DCA 87FD A 

2330 0DCB 1301 A 

2331 0DCC 8448 B 

2332 0DCD 291D A 

2333 0DCE A134 A 

2334 0DCF 83FE A 

2335 0DD0 A133 A 

2336 0DD1 83FF A 

2337 0DD2 6027 B 

2338 0DD3 1501 A 

2339 0DD4 4C04 A 

2340 0DD5 D026 B 

2341 0DD6 5C0E A 



LD 


R0,$MG 


BOC 


ODD,. +2 


JMP 


$6 


LD 


R0,-1(R3) 


AND 


R0,K3 


BOC 


NZ,$5 


LD 


R0,0(R3) 


AND 


R0,K4 


BOC 


Z,$6 



GLOBAL OUT CODE HERE 
******** 



LD 


R0,0 (R3) 


JSR 


$CONV 


ST 


R0,GLBUF+3 


LD 


R0,-1(R3) 


JSR 


$CONV 


ST 


R0,GLBUF+4 


LD 


R0,0(R3) 


LD 


R1,-3(R3) 


BOC 


ODD, .+2 


LD 


Rl, BLANKS 


JSR 


$CBZ 


ST 


R0,GLBUF+5 


LD 


R0,-2(R3) 


ST 


R0,GLBUF+6 


LD 


R0,-1(R3) 


AND 


R0,K3 


BOC 


NZ,.+2 


LI 


R0,4 


SUB 


R0,K1 


SHL 


R0,14 



; GLOBAL NOT REQUESTED 



OUTPUT GLOBAL SYMBOL IF ANY 
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2342 


0DD7 


»1 TO 

Al Z.H 


A 




2343 


0DD8 


m -5 n n 

4300 


A 




2344 


0DD9 


oDzJ 


A 




2345 


0DDA 


2CCB 


I 




2346 


0DDB 


4700 


A 




2347 


0DDC 








2348 


0DDC 








2349 


0DDC 








2350 


0DDC 


83FF 


A 


$6 : 


2351 


0DDD 


611D 


A 




2352 


0DDE 


A3FF 


A 




2353 


0DDF 


8300 


A 




2354 


0DE0 


6027 


B 




2355 


0DE1 


50FE 


A 




2356 


0DE2 


3300 


A 




2357 


0DE3 


21C0 


A 




2358 


0DE4 








2359 


0DE4 








2360 


0DE4 








2361 


0DE4 


5CFC 


A 


$CONV: 


2362 


0DE5 


3181 


A 




2363 


0DE6 


603B 


B 




2364 


0DE7 


5DFA 


A 




2365 


0DE8 


5D08 


A 




2366 


0DE9 


3100 


A 




2367 


0DEA 


C508 


A 




2368 


0DEB 








2369 


0DEB 








2370 


0DEB 








2371 


0DEB 


4C00 


A 


$CBZ : 


2372 


0OEC 


F448 


B 




2373 


0DED 


0200 


A 




2374 


0DEE 


3481 


A 




2375 


0DEF 


6424 


B 




2376 


0DF0 


F434 


B 




2377 


0DF1 


6042 


B 




2378 


0DF2 


02^0 


A 




2379 


0DF3 






1 


2380 


0DF3 


2020 


A 


X2020 : 


2381 


0DF4 


0000 


A 


$GLBN: 


2382 


0DF5 


0DF6 


A 


$NEXT: 


2383 


0DF6 


0DF7 


A 


$PT: 


2384 


0DF7 


0DF8 


A 


$CT : 


2385 


0DF8 


464F 


A 


$F0: 


2386 


0DF9 


524D 


A 


$RM : 


2387 


0DFA 


1089 


A 


$RTB: 


2338 


0DFB 


0DFC 


A 


$FLAG: 


2389 


0DFC 


0DFD 


A 


$MG: 


2390 


0DFD 


0DFE 


A 




2391 


0DFE 


4005 


A 


GLBUF: 


2392 


0DFF 


0E05 


A 




2393 


0E05 






* 


2394 


0E05 






; 


2395 


0E05 






* 


2396 


0E05 






MAPLIN 


2397 


0E05 


ADEF 


A 




2398 


0E06 


7C71 


B 




2399 


0E07 


2102 


A 




2400 


0E08 


4F07 


A 




2401 


0E09 


2CDF 


I 




2402 


0E0A 


2CA5 


I 




2403 


0E0B 






* 


2404 


0E0B 


8DE9 


A 





ST 


R0,GLBUF+2 




PUSH 


R3 




LD 


R3, GLBUF- 1 




JSR 


CKPNCH 




PULL 


R3 




BOTTOM OF LOOP 




LD 


R0,-1(R3) 




AND 


R0 r $FLAG 




ST 


R0,-1(R3) 


•RESET P BIT 


LD 


R0 , 0 ( R3) 




AND 


R0,K3 




CAI 


R0 ,-2 




RADD 


R0,R3 


• nT5r>aTi? (p»nr p 
^XiVDnLti lABLiti 


JMP 


$LOOP 




CONVERT 


6 BIT NAME IN R0 


LU H DLL NAME 


SHR 


R0,4 




RCPY 


R0,R1 




AND 


R0,HEX3F 




SHR 


Rl ,6 




SHL 


Rl,8 




RADD 


R0,R1 




ADD 


R1,X2020 




CONVERT 


BLANKS TO ZERO 




LI 


R0,0 




SKNE 


Rl, BLANKS 




RTS 






RCPY 


R1,R0 




AND 


R1,K255 




SKNE 


Rl f BLANK 




AND 


R0 f XFF00 




RTS 






.WORD 


02020 




.WORD 


0 


; GLOBAL NUMBER 


.= . + 1 






. = . + 1 






. = . + 1 






.WORD 


'FO' 




.WORD 


'RM' 




.WORD 


RELTB+1 





.=.+1 ; FFFF IF MAP DIRECTIVE ELSE FFF7 

.=.+1 ? MAP/GLOB INDICATOR 0=NONE l=GLOBAL 2=MAP 

.WORD .+1 

.WORD 04005 
. = .+6 

PRINT 1 MAP LINE 



ST R3,$NEXT 

DSZ PGRL 

JMP .+3 

LI R3 f 7 

JSR OPGSTR ; OUTPUT PAGE STRING 

JSR NEWLIN 

NEW ENTRY 

LD R3 # $NEXT 
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2405 0E0C 8300 A 

2406 0E0D 6029 B 

2407 0E0E 1103 A 

2408 0E0F ; 

2409 0E9F 4C24 A 

2410 0E10 2CEE I 

2411 0E11 2104 A 

2412 0E12 ; 

2413 0E12 SNLCL: 

2414 PE12 8300 A 

2415 0E13 5CF6 A 

2416 0E14 C034 B 

2417 0E15 2CEE I 

2418 0E16 8300 A $1: 

2419 0E17 5CFC A 

2420 0E18 603B B 

2421 0E19 C034 B 

<6tii VCt±t\ ,£V_EEj X 

2423 0E1B 83FF A 

2424 0E1C 5CF6 A 

2425 0E1D C034 B 

2426 0E1E 2CEE I 

2427 0E1F 83FF A 

2428 0E20 5CFC A 

2429 0E21 603B B 

2430 0E22 C034 B 

2431 0E23 2CEE I 

2432 0E24 ; 

2433 0E24 8300 A 

2434 0E25 1302 A 

2435 0E26 ; 

2436 0E26 2CEF I 

2437 0E27 2102 A 

2438 0E28 ; 

2439 0E28 83FD A $ LONG : 

2440 0E29 2CCD I 

2441 0E2A • 

2442 0E2A • 

2443 0E2A 2CEF I $2: 

2444 0E2B 8300 A 

2445 0E2C 1401 A 

2446 0E2D 2105 A 

2447 0E2E • 

2448 0E2E 81C9 A $2A: 

2449 0E2F 2CCD I 

2450 0E30 81C8 A 

2451 0E31 2CCD I 

2452 0E32 2109 A 

2453 0E33 $2B: 

2454 0E33 83FE A 

2455 0E34 2CD2 I 

2456 0E35 2CF0 I 

2457 0E36 83FF A 

2458 0E37 602A B 

2459 0E38 3281 A 

2460 0E39 C9C0 A 

2461 0E3A 8200 A 

2462 0E3B 2CCD I 

2463 0E3C 

2464 0E3C 4C2A A $7: 

2465 0E3D 8700 A 

2466 0E3E 742C B 

2467 0E3F 4C20 A 



LD 


R0,0(R3) 


AND 


R0,K8 


BOC 


Z , $NLCL 


LOCAL 


SYMBOL 


LI 


R0 f '$725 


JSR 


OICH 


JMP 


$1 


NON LOCAL 


LD 


R0,0(R3) 


SHR 


R0,10 


ADD 


R0,HEX20 


JSR 


OICH 


LD 


R0,0(R3) 


SHR 


R0,4 


AND 


R0,HEX3F 


ADD 


R0,HEX20 


JSR 


OICH 


LD 


R0,-1(R3) 


SHR 


R0,10 


ADD 


R0,HEX20 


JSR 


OICH 


LD 


R0,-1(R3) 


SHR 


R0,4 


AND 


R0,HEX3F 


ADD 


R0,HEX20 


JSR 


OICH 


DO WE 


HAVE A LONG 


LD 


R0,0(R3) 


BOC 


ODD , $ LONG 


SHORT 


SYMBOL 


JSR 


02B 


JMP 


$2 


LONG SYMBOL 


LD 


R0,-3(R3) 


JSR 


02CH 


OUTPUT 


VALUE 


JSR 


02B 


LD 


R0,0(R3> 


BOC 


B1E01,$2A 


JMP 


$2B 


PnD M PMrnDV 


LD 


R0, $FO 



JSR 02CH 

LD R0 , SRM 

JSR 02CH 

JMP $7 

LD R0,-2<R3) 

JSR OHEX 

JSR OIB 

LD R0,-1(R3) 

AND R0,K7 

RCPY R0,R2 

ADD R2 f $RTB 

LD R0,0(R2) 

JSR 02CH 

LI R0,'*'/256 

LD R1,0(R3) 

SKAZ R1,K4 

LI R0,' '/256 



;NON LOCAL 

?OUT $ (1ST CHAR) 
; GO TO 2ND CHAR 

?OUT 1ST CHAR 

?OUT 2ND CHAR 
?OUT 3RD CHAR 

•OUT 4TH CHAR 
SYMBOL 

? OUTPUT 2 BLANKS 



; OUTPUT 'FORM' 



; OUTPUT REL KEY 
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IMPASM8K 



2469 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 



0E40 
0E41 
0E41 
0E42 
0E43 
0E43 
0E43 
0E44 
0E45 
0E46 
0E47 
0E48 
0E49 
0E4A 
0E4B 
0E4C 
0E4C 
0E4D 
0E4E 
0E4F 
0E50 
0E51 
0E52 
0E52 
0E52 
0E52 
0E53 



2CEE I 

8099 B 
110F A 



2CEF I 
8300 A 
6027 B 
C027 B 
A1AF A 
ADAD A 
I 
A 
I 

I 
A 
I 
A 
A 



2CEF 
81AB 
2CD2 

2CEF 
91A8 
2CD2 
7DA6 
7DA6 
21FA A 



$4 



JSR 
.IF 
LD 
BOC 



OICH 
DBGVER 
R0 f MAPDEB 
Z,$3 



DEBUGGING 



JSR 

LD. 

AND 

ADD 

ST 

ST 

JSR 

LD 

JSR 



02B 

R0,0(R3) 
R0,K3 
R0 , K3 
R0 f $CT 
R3,$PT 
02B 

R0,$PT 
OHEX 



;NOT DEBUG MODE 



JSR 02B 

LD R0,§$PT 

JSR OHEX 

DSZ $PT 

DSZ $CT 

JMP $4 
. ENDIF 

FINISHED SPECIAL DEBUG CODE 



0200 A $3: 



RTS 
.IF 



SIZE8 



2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 



0E53 

0E53 

0E53 

0E53 

0E53 

0E53 

0E54 

0E55 

0E56 

0E57 

0E58 

0E59 

0E5A 

0E5B 

0E5C 

0E5D 

0E5E 

0E5F 

0E60 

0E61 

0E62 

0E63 

0E64 

0E65 

0E66 

0E67 

0E68 

0E69 

0E6Q 

0E69 

0E69 

0E6A 

0E6B 

0E63 



.PAGE 
. LOCAL 



'SORTED MAP PRINT' 



4C00 A 
A15A A 
8155 A 
A155 A 
8865 B 
8C64 B 
290F A 
8868 B 
8C67 B 
290C 
814E 
F14C 
0200 
8D53 
29A3 
8149 
A14B 
8148 
A14A 
8147 
A149 
21EC 



MAPSOR: 



$100: 



A948 A $MPS: 
213D A 



SORTED MAP PRINT 



LI 


R0,0 


ST 


R0 r $LST0 


LD 


R0,X7FFF 


ST 


R0,$LOW0 


LD 


R2 f NEXTA 


LD 


R3 f TOPA 


JSR 


$MPS 


LD 


R2 , NEXTB 


LD 


R3,TOPB 


JSR 


$MPS 


LD 


R0,$LOW0 


SKNE 


R0,X7FFF 


RTS 




LD 


R3,SXR3 


JSR 


MAPLIN 


LD 


R0 f $LOW0 


ST 


R0,$LST0 


LD 


R0 , $LOWl 


ST 


R0, SLST1 


LD 


R0,SLOW2 


ST 


R0,$LST2 


JMP 


$100 



MAP SEARCH FOR LOWEST SYMBOL NOT YET PRINTED 



ST 
JMP 



R2,$END 
$BOTM 



LOAD WORD 0 INTO R2 
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2529 


0E6B 






# 


2530 


0E6B 


8300 


A 


$ LOOP : 


2531 


0E6C 


5CFD 


A 




2532 


0E6D 


1301 


A 




2533 


0E6E 


2102 


A 




2534 


0E6F 


6143 


A 


$20: 


2535 


0E70 


6944 


A 




2536 


0E71 


3281 


A 


$21: 


2537 


0E72 






; 


2538 


0E72 






; 


2539 


0E72 






j 


2540 


0E72 


E139 


A 




2541 


0E73 


2101 


A 




2542 


0E74 


212F 


A 




2543 


0E75 


F139 


A 




2544 


0E76 


2102 


A 




2545 


0E77 


E137 


A 




2546 


0E78 


212B 


A 




2547 


0E79 






; 


2548 


0E79 






; 


2549 


0E79 






; 


2550 


0E79 


8300 


A 


$19: 


2551 


0E7A 


8448 


B 




2552 


0E7B 


7026 


B 




2553 


0E7C 


87F1) 


A 




2554 


0E7D 


7029 


B 




2555 


0E7E 


2101 


A 




2556 


0E7F 


2103 


A 




2557 


0E80 


6442 


B 


$22: 


2558 


0E81 


5CF6 


A 




2559 


0E82 


3100 


A 




2560 


0E83 






; 


2561 


0E83 






; 


2562 


0E83 






; 


2563 


0E83 


83FF 


A 


$23: 


2564 


0E84 


5CFC 


A 




2565 


0E85 






* 


2566 


0E85 








2567 


0E85 


F929 


A 




icto 

{. JO 1 


0E86 


2103 


A 




2569 


0E87 


E927 


A 




2570 


0E88 


211B 


A 




^ C -T "1 

£.1 1 X 


0 E89 


o -i n nr 

txn f 


A 




2572 


0E8A 


F125 


A 


$GR1: 


2573 


0E8B 


2103 


A 




2574 


0E8C 


E123 


A 




2575 


0E8D 


2116 


A 




2576 


0E8E 


2102 


A 




2577 


0E8F 


E521 


A 


$GR2: 


2578 


0E90 


2113 


A 




2579 


0E91 






j 


2580 


0E91 






? 


2581 


0E91 






; 


2582 


0E91 


E91A 


A 


$GR: 


2593 


?E92 


2101 


A 




2584 


0E93 


2110 


A 




2595 


0E94 


F917 


A 




2586 


0E95 


2101 


A 




2587 


0E96 


2109 


A 




2588 


0E97 


El 15 


A 




2589 


0E98 


2101 


A 




2590 


0E99 


210A 


A 




2591 


0E9A 


F112 


A 





LD R0,0(R3) 

SHR R0,3 

BOC ODD ,$20 

JMP $21 

AND R0 f HEX7E 

OR R0,X4000 

RCPY R0 ,R2 

QUICK RANGE TEST 

SKG R0,$LOW0 

JMP .+2 

JMP $NXT 

SKNE R0,$LST0 

JMP $19 

SKG R0,$LST0 

JMP $NXT 

LOAD WORD 2 INTO Rl 

LD R0,0(R3) 

LD Rl, BLANKS 

SKAZ R0,K1 

LD R1,-3(R3) 

SKAZ R0,K8 

JMP $22 

JMP $23 ; LOCAL 

AND R1,XFF00 

SHR R0,10 

RADD R0,R1 

LOAD WORD 1 INTO R0 

LD R0,-1(R3) 

SHR R0,4 

COMPARE FOR > THAN LAST SYMBOL PRINTED 

SKNE R2,$LST0 

JMP $GR1 

SKG R2,$LST0 

JMP $NXT 

JMP $GR 

SKNE R0 r $LSTl 

JMP $GR2 

SKG R0 r $LSTl 

JMP $NXT 

JMP $GR 

SKG R1,$LST2 

JMP $NXT 

GREATER, NOW TEST < THAN CURRENT LOW SYMBOL 



SKG 


R2,$LOW0 


JMP 


.+2 


JMP 


$NXT 


SKNE 


R2,$LOW0 


JMP 


. + 2 


JMP 


$GOOD 


SKG 


R0,$LOW1 


JMP 


.+2 


JMP 


$NXT 


SKNE 


R0,$LOW1 



IMPASM8K 



1 C Q 1 

zd y z 




Old! 


A 

A 




Tun 

JPIr 


a. 0 

m + Z 


Z i 


w by L 


2 IvJ J 


A 

A 




Tun 
JPIr 




1 K. Q A 


CI c*to ri 


bol W 


A 

A 




cure 


KJ. , s> lAJri £, 


Zi"t 




DCfl e> 

c DBr 


A 




oKNb 






w by r 


Z 1 W 4 


A 

A 




TMT3 

\J Br 




O C Q "7 


0 bAw 


A10L 


A 
A 




bl 


R0,$LOW1 




/In* 1 

w bAi 


A c a r» 


A 




b I 


Kl , >IjUWZ 


2 t>9 1 ' 


0EA2 


a a fk n 


A 




ST ■ 


R2 , SLOW0 


n /; /» a 

2 f> W /J 


%) bAJ 


A r\ 1 fh 
AD1M 


A 




em 


DO £ VTA O 

RJ , 5XKJ 


£ l 

26W1 


0EA4 


a "> n f% 

8300 


A 


SNXT: 


LD 


R0 , 0 (R3) 


oral 

26 W2 


0EA5 


6027 


B 




AND 


R0 ,K3 


ZD W J 


WEAo 


50FE 


* 

A 




OAT 

CAI 


R0 »-2 


o c a a 

ZOVJ4 


01 P A "7 

WbA / 




A 

A 




D ATM^ 

KADD 


K0 , K J 

DO tf* nnn 

RJ f ?END 


OCflC 


la bAo 


c Day 


A 

A 




C If ME 1 

bKNb 


Zo»n 


B bAH 




A 




RTS 




£ ft "7 


0EAA 


21C0 


A 




JMP 


$L00P 


ZOBO 


(% I? A D 

'4 bAo 






* 






OCflQ 

zooy 


SflbAo 


T nnn 

/(tr 


A 


V7DDD _ 


.WORD 


07FFF 


ZT3 XVI 




A p a r> 
abAL 


A 


pbuwy : 


. — . + 1 




Zoil 


lab AD 


"Il/Ati 


A 


9LUW1 : 


. - . + 1 




2b 12 


w bAb 


obAr 


A 


$L0W2 : 


. = . +1 




Zo I o 


o bAr 


anna 

y boo 


A 


SLST0 : 


. = . +1 




2614 


0EB0 


0EB1 


A 


$LST1: 


. = .+1 




2615 


0EB1 


0EB2 


A 


$LST2: 


. = . + 1 




2616 


0EB2 


0EB3 


A 


$END: 


. = . + 1 




2617 


0EB3 


007E 


A 


HEX7E: 


.WORD 


07E 


2618 


0EB4 


0EB5 


A 


$XR3: 


. = . + 1 




2619 


0EB5 


4000 


A 


X4000 : 


.WORD 


04000 


2620 


0EB6 








. ENDIF 





2621 


0EB6 








.PAGE 


'INSTRUC 


2622 


0EB6 








. LOCAL 




2623 


9EB6 












2624 


0EB6 








LD,ST 




2625 


0EB6 












2625 


0EB6 


2CF1 


I 


IC1: 


JSR 


EXPP2 


2627 


0EB7 


2CF2 


I 




JSR 


INERR 


2628 


0EB8 


5C0A 


A 




SHL 


R0,10 


2629 


0EB9 


C072 


B 




ADD 


R0 , IVAL 


2630 


0EBA 


A072 


B 




ST 


R0,IVAL 


2631 


0EBB 


2C9D 


I 




JSR 


GCOMMA 


2632 


0EBC 


214A 


A 




JMP 


$80 


2633 


0EBD 


2C9E 


I 




JSR 


GNVC 


2634 


0EBE 


2103 


A 




JMP 


$11 


2635 


0EBF 


F032 


B 




SKNE 


R0,CAT 


2636 


0EC0 


2104 


A 




JMP 


$12 


2637 


0EC1 


7C5E 


B 




DSZ 


INPTR 


2638 


0EC2 


803E 


B 


$11: 


LD 


R0,X1000 


2639 


0EC3 


2CF3 


I 




JSR 


GADRIX 


2640 


0EC4 


210D 


A 




JMP 


$41 


2641 


0EC5 


8072 


B 


$12: 


LD 


R0 , IVAL 


2642 


0EC6 


C03E 


B 




ADD 


R0,X1000 


2643 


0EC7 


A072 


B 




ST 


R0,IVAL 


2644 


0EC8 


2CF4 


I 




JSR 


GADRX 


2645 


0EC9 


2108 


A 




JMP 


$41 


2646 


0ECA 












2647 


0ECA 








ADD t SUB 


,SKG,SKNE 


2648 


0ECA 












2649 


0ECA 


2CF1 


I 


IC2: 


JSR 


EXPP2 


2650 


0ECB 


2CF2 


I 




JSR 


INERR 


2651 


0ECC 


5C0A 


A 




SHL 


R0 f 10 


2652 


0ECD 


C072 


B 


$21: 


ADD 


R0,IVAL 



' INSTRUCTION CLASS PROCESSING' 



REG,@ADR(X) 



; INPUT CHAR PTR 
GET ADR , ALLOW INDIRECT, ALLOW INDEX 

;SET INDIRECT 
REG, ADR (X) 
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IMPASM8K 



Z 0 3 J 




AW / z 


R 
D 






KB f J. VnLi 


ZO T> 4 


V Ei\.V 


iron 


T 

X 




TCP 








/I JO 


a 

H 




TMD 


•5 OH 


iODD 


/I C* P» 1 

0 CiUl 












Zoo 1 


0ED1 








TC7 nc 7 






0ED1 












*> C C Q 


0ED1 


OfW A 

2V-E4 


T 

1 


T CA • 

1L4 : 


J i»K 


bflDKA 


0 C C fjl 

Z6oW 


WEDZ 


D 01 "7 o 

o0 / Z 


D 


C A 1 . 




KW r I VAL 


2661 


0ED3 


Q C C C 

855F 


A 




LD 


Rl / IREL 


Zoo 2 


n r-i r*i A 

0ED4 


24 r b 


T 

1 




Tun 
JMP 


INOUT 


Zo^ j 


0 EiDD 






* 






26 b 4 


ffl c t*\ c 
0ED3 








AND, OR, 


SKAZ 
















ZOo o 




Zv.r o 


1 


ilj : 


JSR 


EXPP1 


O C C "7 

Z66 / 


acne 
0ED6 


ZLr Z 


T 

I 




JSR 


INERR 


2668 


0ED7 


5C0A 


A 




SHL 


R0,10 


Z669 


0ED8 


21 r 4 


A 




JMP 


$21 


26/0 


0ED9 






I 






967 1 










NOP , PULLF , PUSHF , HALT 


Zo 1 1 


0 ED9 












ten i 

267 J 


/ti r*v rv 
0ED9 


8072 


B 


IC5 : 


LD 


R0 , IVAL 


"id 1 A 
Zo 1 4 


0EUA 


24E7 


I 




JMP 


INABS 


26 /3 


0EDB 






? 






ZO / O 


V? DUO 








ISCAN 




«Q / / 


o tubs 
















l c pn 


A 


JLC3A : 


BOC 


NZ,IC5 


/0 / 9 




ZLr o 


T 

1 




JSR 


OERROR 


ZOO0 


0EDD 


1 1 PD 

21 r B 


A 




JMP 


IC5 


Zoo X 


to but. 












neo 0 
40 o Z 


a one 








PUSH , PULL , XCHRS 


i03 J 


BbUfc 












Zoo 4 




ZQ,rl 


T 


T fC • 

IC6 : 


JSR 


EXPP2 


o c o e 
Z bb 3 


0EDr 


2CF2 


I 




JSR 


INERR 


2686 


0EE0 


5C08 


A 




SHL 


R0,8 


2697 


0EE1 


C072 


B 




ADD 


R0 , IVAL 


*>c o o 

Zb-io 


0EEZ 


24 F7 


I 




JMP 


INABS 


icon 
Z689 


anno 

'1EE J 






* 






Z690 


0EE 3 








AISZ r LI 


,CAI,ROL,SHL 


Z69 I 


(1 nn n 

0EE3 












2692 


0EE3 


2CF1 


T 


IC7 : 


JSR 


EXPP2 


z 6 9 j 


0EE4 


2CF2 


I 




JSR 


INERR 


ICQ 1 

269 4 


01 1? n» c 

0EE5 


5C08 


A 




SHL 


R0,3 






f^CI 7 


- 




ADD 


Dfl TtTRT 


O £ O £ 

/6y 6 


0 EE / 


Ji fll "J o 

A07 2 


B 




ST 


R0,IVAL 


26 9/ 


0EE8 


2C9D 


I 




JSR 


GCOMMA 


O £ ft o 

2698 


0EE9 


211D 


A 




JMP 


$80 


o £ o rt 
2699 


0EEA 


2CF9 


I 




JSR 


EXPR 


nun 

2 / WW 


0EEB 


2CF2 


I 




JSR 


INERR 


i ^ a i 
2701 


0EEC 


C07 2 


B 




ADD 


R0 , IVAL 


o "? a *i 

2702 


WEED 


24F7 


I 




JMP 


INABS 


i t a *5 

2703 


0EEE 












2704 


/TDD r? 

0EEE 








R0R f SHR 




2705 


a nnn 

0EEE 












o "7 a £ 
2/06 


n tti o r? 

0EEE 


2CF1 


I 


TOT X . 

IC7A : 


JSR 


EXPP2 




P1PPP 


r ^ 


T 
X 




JSR 


INERR 


2708 


0EF0 


5C08 


A 




SHL 


R0,8 


2709 


0EF1 


C072 


B 




ADD 


R0 , IVAL 


2710 


0EF2 


A072 


B 




ST 


R0 , IVAL 


2711 


0EF3 


2C9D 


I 




JSR 


GCOMMA 


2712 


0EF4 


2112 


A 




JMP 


$80 


2713 


0EF5 


2CF9 


I 




JSR 


EXP8 


2714 


0EF6 


2CF2 


I 




JSR 


INERR 


2715 


0EF7 


5001 


A 




CAI 


R0 r l 



ADR(X) 

•GET ADR,X OK, NO INDIRECT ALLOWED 
; INSTRUCTION RELOCATION MODE 

REG0/1 , ADR(X) 



NO ARG 

;INSTR. ABS 
NO ARG 
? EXTD OK 

REG 

; INSTR ERROR 
REG , IMMED 8 BIT 



REG , IMMED R BIT 
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IMPASM8K 



2716 


0EF8 


6024 


B 




AND 


R0,K255 




2717 


0EF9 


C072 


B 




ADD 


R0,IVAL 




2718 


0EFA 


24F7 


I 




JMP 


I NABS 




2719 


0EFB 














2720 


0EFB 








RADD 


,RXCH,RCPY,RXOR, 


RAND REG , REG 


2721 


0EFB 














2722 


0EFB 


2CF1 


I 


IC8: 


JSR 


EXPP2 




2723 


0EFC 


2CF2 


I 




JSR 


INERR 




2724 


0EFD 


5C0A 


A 




SHL 


R0,10 




2725 


0EFE 


C072 


B 




ADD 


R0,IVAL 




2726 


3EFF 


A072 


B 




ST 


R0 , IVAL 




2727 


0F00 


2C9D 


I 




JSR 


GCOMMA 




2728 


0F01 


2105 


A 




JMP 


$80 




2729 


0F02 


2CF1 


I 




JSR 


EXPP2 




2730 


0F03 


297B 


A 




JSR 


INERR 




2731 


0F04 


5C08 


A 




SHL 


R0,8 




2732 


0F05 


C072 


B 




ADD 


R0,IVAL 




2733 


0F06 


24 F7 


I 




JMP 


INABS 




2734 


0F07 






• 

t 








2735 


0F07 


2CFA 


I 


$80: 


JSR 


MERROR 




2736 


0F08 


8072 


B 




LD 


R0,IVAL 




2737 


0F09 


24F7 


I 




JMP 


INABS 




2738 


0F0A 














2739 


0F0A 






• 


JMP, 


JSR 


@ADR(X) 


2740 


0F0A 






• 









2741 


0F0A 


2C9E 


I 


IC9: 


JSR 


GNVC 




2742 


0F0B 


2103 


A 




JMP 


$91 


f NONE 


2743 


0F0C 


F032 


B 




SKNE 


R0,CAT 
$92 




2744 


0F0D 


2104 


A 




JMP 




2745 


0F0E 


7C5E 


B 




DSZ 


INPTR 


; INPUT CHAR 


2746 


0F0F 


803D 


B 


$91: 


LD 


R0,HEX400 




2747 


0F10 


2CF3 


I 




JSR 


GADRIX 




2748 


0F11 


21C0 


A 




JMP 


$41 




2749 


0F12 


8072 


B 


$92: 


LD 


R0,IVAL 




2750 


0F13 


C03D 


B 




ADD 


R0,HEX400 




2751 


0F14 


A072 


B 




ST 


R0,IVAL 




2752 


0F15 


297B 


A 




JSR 


GADRX 




2753 


0F16 


21BB 


A 




JMP 


$41 




2754 


0F17 






• 








2755 


0F17 








SFLG 


,PFLG 


POS3,POS7 


2756 


0F17 














2757 


0F17 


2CFB 


I 


IC10: 


JSR 


EXPP3 




2758 


0F18 


2966 


A 




JSR 


INERR 




2759 


0F19 


5C08 


A 




SHL 


R0,8 




2760 


0F1A 


C072 


B 




ADD 


R0 , IVAL 




2761 


0F1B 


A072 


B 




ST 


R0,IVAL 




2762 


0F1C 


2C9D 


I 




JSR 


GCOMMA 




2763 


0F1D 


24F7 


I 




JMP 


INABS 




2764 


0F1E 


2CDA 


I 




JSR 


EXPP7 




2765 


0F1F 


3081 


A 




NOP 






2766 


0F20 


C072 


B 




ADD 


R0,IVAL 




2767 


0F21 


24F7 


I 




JMP 


INABS 




2768 


0F22 






• 








2769 


0F22 








BOC 




POS4 r SPADR 


2770 


0F22 














2771 


0F22 


2CFC 


I 


IC11: 


JSR 


EXPP4 




2772 


0F23 


295B 


A 




JSR 


INERR 




2773 


0F24 


5C08 


A 




SHL 


R0,8 




2774 


0F25 


C072 


B 




ADD 


R0 f IVAL 




2775 


0F26 


A072 


B 




ST 


R0 , IVAL 




2776 


0F27 


2C9D 


I 




JSR 


GCOMMA 




2777 


0F28 


29 5 F 


A 




JSR 


MERROR 




2778 


0F29 


2CB9 


I 




JSR 


EXP 





46 



IMPASM8K 



2779 


0F2 A 


ft ft C Jl 

29 54 


A 




TCT5 

JbR 


1 NtSKK 




2780 


0F2B 


2CFD 


I 




TOO 

J SR 


bPADK 




2781 


0F2C 


2103 


A 




JMP 


5111 


•NOT VALID SOECIAL ADR 


2732 


0F2D 


D03F 


B$ 


SUB 


rj n v ft c c 
R0 ,K25o 




2783 


0F2E 


A072 


B 




ST 


T\t% TITS T 

Rv) t IVAL 




2784 


0F2F 


24F7 


I 




JMP 


I NABS 




2785 


0F30 


2955 


A 


$111 : 


JSR 


ADRERR 




2786 


0F31 


8072 


B 




LD ■ 


R0 , IVAL 




2787 


0F32 


24F7 


I 




JMP 


INABS 




2783 


0F33 


0F34 


A 


IREL : 


. = . + 1 




: INSTRUCTION RELOCATION 


2789 


0F34 














2793 


0F34 








RTS , RTI 


, RIN , ROUT 


POS7 


2791 


0F34 














2792 


0F34 


2CDA 


I 


IC12 : 


JSR 


EXPP7 




2793 


0F35 


3081 


A 




NOP 






2794 


0F35 


C072 


B 




ADD 


R0 ,IVAL 




2795 


fx O 1 1 

0F37 


24F7 


I 




JMP 


INABS 




2796 


0F38 






* 








2797 


0F38 








JSRP 




POS7 


2 1 


Wr 3*5 














ft *? ft ft 

2799 


n c» o o 
0F38 


1501 


A 


IC12A: 


BOC 


NZ, .+2 




2300 


0F 39 


O ft A C 

2945 


A 




JSR 


INERR 




O Q 01 1 

ZO 0 I 


0r 3A 


2LDA 


I 




JSR 


EXPP7 




2802 


0F3B 


ft ft A t~* 

2.3 4L 


A 




JSR 


MERROR 




2803 


0F3C 


C072 


B 




ADD 


R0,IVAL 




2804 


0F3D 


24F7 


I 




JMP 


INABS 




2805 


0F3E 






* 








2806 


0F3E 








JINT,SETST,CLRST,SETBIT 


,CLRBIT,CMPBIT,JMPP 


2807 


0F3E 






* 






POS4 


2808 


0F3E 






* 






— — — 


2809 


0F3E 


1501 


A 


IC13A: 


BOC 


NZ r IC13 


jEXTD OK 


2810 


0F3F 


2944 


A 




JSR 


OERROR 




2811 


0F40 






* 








2312 


0F40 


2CFC 


I 


IC13 : 


JSR 


EXPP4 




2813 


0F41 


293D 


A 




JSR 


INERR 




2814 


3F42 


C072 


B 




ADD 


R0,IVAL 




2815 


0F43 


24F7 


I 




JMP 


INABS 




2816 


0F44 














2817 


0F44 






* 


MPY,DIV 


,DADD, DSUB 


ADR(X) 


2818 


0F44 






* 






— — — 


2819 


0F44 


291A 


A 


IC14 : 


JSR 


DBWIN 




2820 


0F45 


24 F5 


I 




JMP 


INOUT 




2821 


0 p A C 






* 








2822 


0F46 








LDB, STB 


, LLB,SLB 


ADR(X) 


2823 


0F46 















2824 


0F46 


2918 


A 


IC15 : 


JSR 


DBWIN 




2825 


0F47 


5C01 


A 




SHL 


R0,1 




2826 


0F48 


2103 


A 




JMP 


IC16A 




2827 


0F49 














2828 


0F49 






* 


LRB , SPB 




ADR (X) 


2829 


3F49 















loom 
2830 


3F49 


2915 


A 


IC16: 


JSR 


DBWIN 




2831 


0F4A 


5C01 


A 




SHL 


F0,1 




2832 


0F4B 


C026 


B 




ADD 


R0,K1 




2833 


0F4C 


F426 


B 


IC16A: 


SKNE 


R1,K1 




2834 


0F4D 


24F5 


I 




JMP 


INOUT 




2835 


0F4E 


2937 


A 




JSR 


ADRERR 




2836 


0F4F 


24F5 


I 




JMP 


INOUT 




2837 


0F50 














2838 


0F50 








JSRI 




ADR SPECIAL VALUE 


2839 


0F50 














2840 


0F50 


2CB9 


I 


IC17: 


JSR 


EXP 




2841 


0F51 


292D 


A 




JSR 


INERR 





47 



IMPASM3K 



2342 


0F52 


F426 


B 




SKNE 


Rl , Kl 


2943 


<*F53 


2103 


A 




.7 MP 


.+4 


28 4 4 


0F54 


2931 


A 




JSR 


ADRERR 


2845 


0F55 


9072 


B 




LD 


R0 , IVAL 


2946 


0F56 


24F7 


I 




JMP 


INABS 


2847 


0F57 


683A 


B 




OR 


R0 ,HEX7F 


2P4P 


0FS3 


5000 


A 




CAI 


R0 ,0 


284<> 


0F59 


15FA 


A 




BOC 


NZ, .-5 


2 9 0 


0F5A 


307A 


B 




LD 


R0,EXPVAL 


2851 


0F5B 


5C09 


A 




SHL 


R0 ,9 


2352 


0F5C 


5CF7 


A 




SHR 


R0,9 


2853 


0F5D 


C072 


B 




ADD 


R0,IVAL 


2854 


0F5E 


24F7 


I 




JMP 


INABS 


2855 


0F5F 






; 






2855 


0F5F 








DOUBLE 


WORD INSTR 


2857 


0F5F 






; 






2358 


0F5F 






DBWIN: 






2859 


0F5F 


1501 


A 




BOC 


NZ, .+2 


2860 


0F60 


2923 


A 




JSR 


OERROR 


2861 


0F61 


2CB9 


I 




JSR 


EXP 


2862 


0F62 


2925 


A 




JSR 


MERROR 


2863 


0F63 


All 9 


A 




ST 


R0 ,$VAL 


2854 


0F64 


A519 


A 




ST 


Rl , SREL 


2865 


0F65 


2C9E 


I 




JSR 


GNVC 


2866 


0F66 


2110 


A 




JMP 


$NOX 


2857 


0F67 


F046 


B 




SKNE 


R0,LPAREN 


2969 


0F69 


2102 


A 




JMP 


. + 3 


2969 


0F69 


7C5E 


B 




DSZ 


INPTR 


2870 


3F6A 


210C 


A 




JMP 


$NOX 


2871 


0F6B 






7 


INDEXING USED 


2872 


0F6B 


2CF1 


I 




JSR 


EXPP2 


2873 


0F6C 


291B 


A 




JSR 


MERROR 


2874 


0F6D 


E026 


B 




SKG 


R0,K1 


2875 


0F6E 


291B 


A 




JSR 


V ERROR 


2876 


0F6F 


5C08 


A 




SHL 


R0,8 


2877 


0F70 


C072 


R 




ADD 


R0,IVAL 


2878 


C1F71 


A072 


B 




ST 


R0,IVAL 


2879 


0F72 


2C9E 


I 




JSR 


GNVC 


2930 


0F73 


2918 


A 




JSR 


SXERR 


2831 


0F74 


F043 


B 




SKNE 


R0 , RPAREN 


2332 


0F75 


2101 


A 




JMP 


. + 2 


2833 


0F76 


2915 


A 




JSR 


fXERR 


23 84 


0F77 


907 2 


e 




Ln 


R0 , IVAL 


2385 


0F78 


4D01 


A 




LI 


Rl,l 


2335 


0F79 


2CAB 


T 




JSR 


OUTWRD 


2987 


0F7A 


9102 


A 




LD 


R0,$VAL 


2939 


?F7B 


8502 


A 




LD 


Rl^REL 


2899 


3F7C 


0 20 0 


A 




RTS 




2390 


^F7D 






* 






2391 


0F7D 


0F7E 


A 


$VAL: 


. = . + 1 




2892 


0F7E 


1F7F 


A 


$REL : 


. = . + 1 




2893 


0F7F 






? 






2394 


3F7F 






; 


INSTRUCTION ERROR 


2895 


0F7F 






; 






2896 


0F7F 


4C0A 


A 


INERR: 


LI 


R0,0; 


2897 


0F80 






INERR1 : 






2893 


0F90 


2CAA 


I 




JSR 


ERROR 


2899 


0F91 


907A 


B 




LD 


R0 ,EXPVAL 


2930 


0F82 


847C 


B 




LD 


Rl , EXPREL 


2901 


<*F33 


0200 


A 




RTS 




2902 


0F94 












2903 


0F84 


4C36 


A 


OERROR: 


LI 


R0,54; 


2904 


0F85 


24AA 


T 




JMP 


ERROR 



; EXPRESSION VALUE 



?NO INDEXING 



; INPUT CHAR PTR 
;NO INDEXING 



MISSING ARGUMENT ERROR 



; EXPRESSION VALUE 

; EXPRESSION RELOCATION MODE 



EXTENDED INSTP. ERROR 



48 



IMPASM8K 



29 fJ 5 


0F86 






* 








2906 


0F86 


4C0C 


A 


ADRERR : 


LI 


R0 ,12 ; 


ADDRESS ERROR 


Zjt) 1 


n c* o "7 


/I r o 


A 




JMP 


T XT O T5 T3 1 

INERRI 




29 0 Q 


0F88 














2909 


0F88 


4C00 


A 


MERROR: 


LI 


R0,0? 


MISSING ARG. ERROR 


2910 


0F89 


21F6 


A 




JMP 


INERRI 




2911 


0F8A 






• 








2912 


0F8A 


4C06 


A 


VERROR: 


LI 


R0,6? 


VALUE ERROR 


2913 


0F8B 


21F4 


A 




JMP 


INERRI 




2914 


0F8C 






• 








2915 


0F8C 


4C18 


A 


SXERR: 


LI 


R0, 24; 


SYNTAX ERROR 


2916 


0F8D 


21F2 


A 




JMP 


INERRI 





1 Q 1 1 
ZV 1 / 


0F8E 








. PAGE 


'ADDRESS 


Z? It) 










. LOCAL 




2919 


0F8E 


4C00 


A 


GADR: 


LI 


R0,0 


29 20 


0F8F 


4D00 


A 


GADRI : 


LI 


R1,0 


"5 Q *5 1 


W r yw 


Zl »z 


TV 

A 




JMP 


$ADR 


Z^i ZZ 


CI CO 1 

w r y I 






i 






2923 


0F91 






* 






/y z9 


yi 


Ar>aa 


TV 

A 


vjADRa : 


LI 


R0,0 


zvzo 


or y z 


at\(a i 
4DH1 


* 
A 


GADRIX : 


LI 


Rl,l 


/y zo 


tfr y J 






i 






Z1 Z I 


Mr y j 


Al/L 


A 


$ADR: 


ST 


R0,$IFLAG 


*i Q 1 Q 


fil d a 
»r y4 


ik c i r* 


TV 

A 




ST 


Rl , $XFLAG 


29 29 


3F95 


ft/^O ft 

2CB9 


I 




JSR 


EXP 


2930 


0F96 


21 4 B 


A 




JMP 


SMERR 


2931 


0F97 


847C 


B 




LD 


Rl /EXPREL 


Zy 3 Z 


Hr98 


A59A 


A 




ST 


Rl , IREL 


Ian 
z933 


0F99 


2CE8 


I 




JSR 


P1P2 


zy 


n oft. n 
Br yA 


fn ft rn rx 

R 200 


A 




RTS 






W r y B 






» 


PASS 2 




.6 y jo 


» ry B 




B 




LD 


R0,EXPREL 


inn 


0F9C 


1503 


A 




BOC 


NZ,$DEF 


ft ft *i ft 
2938 


0F9D 






• 


UNDEFINED 


2939 


5JF9D 


4C2A 


A 




LI 


R0,42; 


2940 


0F9E 


2CAA 


I 




JSR 


ERROR 


2941 


0F9F 


1200 


A 




RTS 




2942 


0FA0 






• 










oa *5 £ 
r vZ b 




<*■ I~M7 t? - 

>>Dtr : 


SKNE 


R0,K1 


2944 


0FA1 


2107 


A 




JMP 


$ABS 


2945 


0FA2 


F040 


g 




SKNE 


n a v ft 


2946 


0FA3 


2166 


A 




JMP 


$BSECT 


2947 


0FA4 


F027 


B 




SKNE 


R0,K3 
$TSECT 


2948 


0FA5 


2134 


A 




JMP 


2949 


0FA6 


F02C 


B 




SKNE 


R0,K4 
$EXT 


2950 


0FA7 


2162 


A 




JMP 


2951 


0FA8 


0000 


A 




HALT 




2952 


0FA9 






* 






2953 


0FA9 












2954 


0FA9 


2C Q E 


I 


SABS : 


JSR 


GNVC 


2955 


0FAA 


2103 


A 




JMP 


.+4 


2956 


0FAB 


7C5E 


B 




DSZ 


INPTR 


2957 


0FAC 


F045 


B 




SKNE 


R0 , LPAREN 


2958 


0FAD 


2106 


A 




JMP 


$ABS1 


2959 


0FAE 


807A 


3 




LD 


R0,EXPVAL 


2960 


0FAF 


1201 


A 




BOC 


P, .+2 


2961 


0FB0 


2108 


A 




JMP 


$2 


2962 


0FB1 


E024 


B 




SKG 


R0 f K255 


2963 


0FB2 


210A 


A 




JMP 


$3 


2964 


0FB3 


2105 


A 




JMP 


$2 


2965 


0FB4 


30 7 A 


B 


$ABS1: 


LD 


R0 , EXPVAL 



?N0 INDIRECT PERMITTED 
;N0 INDEXING PERMITTED 



?N0 INDIRECT PERMITTED 
; INDEXING PERMITTED 



;SAVE RELOC MODE FOR DISPLACEMENT 



*, EXPRESSION RELOCATION MODE 



UNDEFINED ERROR ; UNDEFINED ARG. E 



:MY ERROR - REL MODE NOT 0 TO 4 



; EXPRESSION VALUE 



49 



IMPASM8K 



2966 


0FB5 


E15E 


A 




SKG 


R0,KM129 




2967 


0FB6 


2102 


A 




JMP 


$2 




2968 


0PB7 


E03A 


B 




SKG 


R0,HEX7F 




296^ 


0FB8 


2104 


A 




JMP 


$3 




2970 


0FB9 


295B 


A 


$2: 


JSP 


SPADR 


ySECIAL ADR- RELATIVE TO PC OK? 


2971 


0FBA 


2122 


A 




JMP 


STRYI 


;NO - TRY INDIRECT 


2972 


0FBB 


0200 


A 




RTS 




;YES 


2973 


0FBC 






• 

9 


ADDRESS 


OK 




2974 


0FBC 


807A 


B 


$ADROK : 


LD 


R0,EXPVAL 


; EXPRESSION VALUE 


2975 


0FBD 


6024 


B 


$3: 


AND 


R0,K255 




2976 


0FBE 


C072 


B 




ADD 


R0 , IVAL 




2977 


0FBF 


A072 


B 




ST 


R0 , IVAL 




2978 


0FC0 


8150 


A 




LD 


R0 , $XFLAG 




2979 


0FC1 


1501 


A 




BOC 


NZ,$XOK 


j INDEXING OK 


2980 


0FC2 


0200 


A 




RTS 






2981 


0FC3 








INDEXING OK 




2982 


0FC3 


2C9E 


I 


$XOK: 


JSR 


GNVC 




2983 


0FC4 


0200 


A 




RTS 






2984 


0FC5 


F046 


B 




SKNE 


R0 , LPAREN 




2985 


0FC6 


2102 


A 




JMP 


$LP 




2986 


0FC7 


7C5E 


B 




DSZ 


INPTR 


; INPUT CHAR PTR 


2987 


0FC8 


0200 


A 




RTS 






2988 


0FC9 






* 








2989 


0FC9 








LEFT PAREN 




2990 


0FC9 


2971 


A 


$LP: 


JSR 


EXPP2 




2991 


0FCA 


2109 


A 




JMP 


$VERR 


? INDEX VALUE ERROR 


2992 


0FCB 


1401 


A 




BOC 


BlEOl, .+2 




2993 


0FCC 


2107 


A 




JMP 


$VERR 




2994 


0FCD 


5C0* 


A 




SHL 


R0, 8 




2995 


0FCE 


C072 


B 




ADD 


R0,IVAL 




2996 


0FCF 


A072 


B 




ST 


R0,IVAL 


;SET INDEX FIELD 


2997 


0FD0 


2C9E 


I 




JSR 


GNVC 




2998 


0FD1 


2102 


A 




JMP 


$VERR 




2999 


0FD2 


F043 


B 




SKNE 


R0 , RPAREN 




3000 


0FD3 


0200 


A 




RTS 






3001 


0FD4 






* 








3002 


0FD4 






* 








3003 


0FD4 


4C06 


A 


$VERR: 


LI 


R0,6; 


VALUE ERROR ;VALUE CRROR 


3004 


0FD5 


2CAA 


I 




JSR 


ERROR 




3005 


0FD6 


4D01 


A 


SERET: 


LI 


Rl,l 




3006 


0FD7 


A47C 


B 




ST 


Rl , EXPREL 


; EXPRESSION! RELOCATION MODE 


3007 


0FD8 


B4FE 


I 




ST 


Rl , IREL 




3008 


0FD9 


0200 


A 




RTS 






30JI9 


0FDA 






7 








3010 


0FDA 








EXP REL 


= TSECT 




3011 


0FDA 


806B 


B 


STSECT: 


LD 


R0 , SECT 




3012 


0FDB 


F027 


B 




SKNE 


R0 , K3 


;SECT = TSECT? 


3013 


0FDC 


21DC 


A 




JMP 


$2 


;YES 


3014 


0FDD 






J 


TRY INDIRECT 


3015 


0FDD 


8132 


A 


$TRYI : 


LD 


F0,SIFLAG 




3016 


0FDE 


1506 


A 




BOC 


NZ,SI0K 


; INDIRECT OK 


3017 


0FDF 






* 


INDIRECT 


NOT OK 




3018 


0FDF 


4C0C 


A 


$AERR: 


LI 


R0,12; 


ADDRESS ERROR 


301Q 


0FE0 


2CAA 


I 




JSR 


ERROR 


; ADDRESSING ERROR 


3020 


0FE1 


21F4 


A 




JMP 


$ERET 


; ERROR RETURN 


3021 


0FE2 














3022 


0FE2 


4C00 


A 


SMERR: 


LI 


R0, 0? 


MISSING ARG. ERROR 


3023 


0FE3 


2CAA 


I 




JSR 


ERROR 




3024 


0FE4 


0200 


A 




RTS 






3025 


0FE5 














3026 


0FE5 








INDIRECT 


OK - GENERATE 


INDIRECT WORD 


3027 


0FE5 








GENERATE 


POINTER 




3028 


0FE5 






$IOK: 









50 



IHPASM8K 



3029 


0FE5 


8072 


B 




LD 


R0 , IVAL 






3030 


0FE6 


C129 


A 




ADD 


R0 , SIFLAG 






3031 


0FE7 


A072 


B 




ST 


R0 , IVAL 






3032 


0FE8 


8145 


A 




LD 


R0,$CI 






3033 


0FE9 


B0AE 


I 




ST 


R0 r RELTB+3 


; REPLACE B WITH I IN REL TABLE 


3034 


0FEA 


2CE8 


I 




JSR 


P1P2 






3335 


0FEB 


2117 


A 




JMP 


$IOKl 


;PASS1 




3036 


0FEC 


8D25 


A 




LD 


R3, PTABF 






3037 


0FED 


847C 


B 




LD 


R1,EXPREL 


; EXPRESSION RELOCATION 


MODE 


3038 


0FEE 






f 


TOP OF 


LOOP 






3039 


0FEE 


8B01 


A 


$I0K5: 


LD 


R2,l (R3) 






3040 


0FEF 


8300 


A 




LD 


R0,0(R3) 
Z,$IOK2 






3041 


0FF0 


1108 


A 




BOC 


;ADD NEW ENTRY 




3042 


0FF1 


3482 


A 




RXOR 


R1,R0 






3043 


0FF2 


1502 


A 




BOC 


NZ,$IOK3 


y NEXT 




3044 


0FF3 


F87A 


B 




SKNE 


R2,EXPVAL 


; EXPRESSION VALUE 




3045 


0FF4 


2109 


A 




JMP 


$IOK4 


i FOUND 




3046 


0FF5 








NEXT3ENTRY 






3047 


0FF5 






$I0K3: 










3048 


0FF5 


4B02 


A 




AISZ 


R3,2 






3049 


0FF6 


FD1C 


A 




SKNE 


R3, PTABL 






3050 


0FF7 


210F 


A 




JMP 


$IOK6 


• TABLE 3 OVE RF LOW 




3051 


0FF8 


21F5 


A 




JMP 


$IOK5 


t GOTO 3TOP30F3T.OOP 




3052 


0FF9 






t 


ADD3NEW3ENTRY 






3053 


0FFQ 


A700 


A 


SI0K2: 


ST 


R1,0(R3) 






3054 


0FFA 


807A 


B 




LD 


R0 , EXPVAL 


? EXPRESSION VALUE 




3055 


0FFB 


A301 


A 




ST 


R0,1 (R3) 






3056 


0FFC 


4C00 


A 




LI 


R0,0 






3057 


0FFD 


A302 


A 




ST 


R0,2(R3) 






3058 


0FFE 






f 


ENTRY 3 FOUND 






3059 


0FFE 


DD13 


A 


$I0K4: 


SUB 


R3, PTABF 






3060 


0FFF 


5FFF 


A 




SHR 


R3,l 






3061 


1000 


CC5A 


B 




ADD 


R3,BMAX 






3062 


1001 


CC72 


3 




ADD 


R3,IVAL 






3063 


1002 


AC72 


B 




ST 


R3,IVAL 






3064 


1003 






f 


RETURN 








3065 


1003 


4D02 


A 


$I0K1: 


LI 


Rl,2 






3066 


1004 


A47C 


B 




ST 


Rl , EXPREL 


; EXPRESSION RELOCATION 


IrH-JLJ D 


3067 


1005 


B4FE 


I 




ST 


Rl , I REL 






3068 


1006 


0200 


A 




RTS 








3069 


1007 








TABLE 30VERFLOW 






3070 


1007 


4C24 


A 


$I0K6: 


LI 


R0,36; 


ERROP TABLE OVERFLOW 




3071 


1008 


2CAA 


I 




JSR 


ERROR 






3072 


1009 


21F9 


A 




JMP 


SIOK1 


; RETURN 




3073 


100A 








END OF 


POINTER GENERATION 




3074 


100A 
















3075 


100A 
















3076 


100A 






. 


EXP REL 


= EXTERNAL 






3077 


100A 






$EXT: 










3078 


100A 
















3079 


100A 








EXP REL 


= BSECT 






3080 


100A 


807A 


B 


$BSECT: 


LD 


R0 r EXPVAL 


^EXPRESSION VALUE 




3081 


100B 


1201 


A 




BOC 


P,$10 






3082 


100C 


21D2 


A 




JMP 


$AERR 






3083 


100D 


E024 


B 


$10: 


SKG 


R0,K255 






3084 


100E 


21AD 


A 




JMP 


$ADROK 


?OK - ADF IN RANGE 0 TO 


' 255 


3085 


100F 


21CF 


A 




JMP 


$AERR 






3086 


1010 
















3087 


1010 


1011 


A 


$ I FLAG: 


. = . + 1 




; INDIRECT FLAG - 0=NOT 


ALLOWED 


308« 


1011 


1012 


A 


$XFLAG: 


.= . + 1 




; INDEX FLAG - 0=NOT 


ALLOWED 


3089 


1012 


156C 


A 


PTABF : 


.WORD 


PTRTAB 






3090 


1013 


1698 


A 


PTABL : 


.WORD 


PTREND-1 






3091 


1014 


FF7F 


A 


KM129: 


.WORD 


-129 







51 



IMPASM8K 



3092 


1015 






10Q 1 


1015 






1094 


1015 






"> a Qj cr 

j w y j 


1015 

XUi J 






o pi q c 


1 0 1 s 

X V' X J 






o a q 7 

oxj ~ i 


1015 

iUi J 


2C9E 


T 
X 


3098 


1016 


2103 


a. 


3099 


1017 


7C5E 


g 


3100 


1018 


P046 

r t# •* 


r 


3101 


1019 


0200 


a. 


3102 


101A 


806B 


n 

9 


110"? 


101B 

X XJ X D 


F07C 


R 


3104 


101C 


2101 


ft 


T 1 CIS 


1 0 1 n 

ifiU 


0900 


A 

ft 




1 0 1 F 


807A 
o V / ft 


D 
D 


J X v 1 


1 0 1 P 

iuii 


n0^r 

UU jv 


R 




1 0 90! 

J. X) Z V\ 




Q 
□ 


Jlv" 


1091 

iV4i 


PI P9 

Lii l 


ft 


-J X X X) 


1 (599 

1 XJ Z Z 


0900 


a 

ft 


nil 

Jill 


10 91 


F0 la 


R 
D 


3112 


1024 


9101 

LiUi 


a 


3113 


1025 


0200 


a. 


3114 


1026 


60 24 

TJ K> Z *t 


R 
D 




1097 




R 


3116 


1028 


C072 


B 


3117 

J X X f 


1099 

1 v 4 7 


a07 9 

ftD / Z 


R 
D 


3118 


102A 


4D01 


A 


J X X ~ 


1 09R 


a47T 


R 


1190 

J J. Z 13 


l ci or 

X YJ Z V 


R4 PP 


T 

X 


jit i 


1 09n 


0 901 

V Z V) x 


a 
ft 




1 0 9 P 

1 X> Z tj 






"3 1 9 "3 


1 CI 9P 

x yj z Cj 


904Q 


a 
ft 


1194 


1 09P 

x v z r 








1 CI 9P 






-J X , J 


1 CI 9P 






3127 


102F 






3128 


10 2 F 






3129 


1 CI 9 P 


4T00 


a 

m 


11 Id 

J 1 J Tl 


X v J X) 






11 11 


1 CI 1 CI 


4n0 1 

1 iUxl X 


a 

ft 


1119 

Jl 


1011 


9119 

iiii 


a 

ft 


1111 

J X J J 


1 CI 1 9 






1114 

J X J *i 


1 CI19 


P010 


O 

D 


11 1R 

J X J .J 


1 Clll 

X W J J 


4 nfl Cl 


a 

ft 


11 If 


1 CI 14 


9 1 0 p 


a 

ft 


11 17 


101^ 

X v J J 






11 IP 


1 0 1 ^ 


Q 0 9 P 


R 
D 


11 1Q 


1 CI If 


91 FQ 
z i r 7 


a 

ft 


11 4 CI 


1 CI17 

i XI J / 






1141 
Jill 


1 CI 1 7 

X V J / 


B 04 9 
0 K) H t. 


o 

D 


114 9 

Ji4£ 


1 Oil R 

1W j " 


9 1 P7 

Z X C 1 


a 

ft 


1141 


1 CI 1Q 

IB J 7 






114 4 

J 1 4 H 


1 0 1 Q 

IS J 7 


A PPP 


a 

ft 


11 4S 

J X H J 


1 0 ia 


91 PR 
Z i c o 


a 
« 


3146 


103B 






3147 


103B 


4CFC 


A 


3148 


103C 


21F6 


A 


3149 


103D 






3150 


103D 


4CF8 


A 


3151 


103E 


21F4 


A 


3152 


103F 







SPECIAL ADR ? 



SPADR: 



$4: 



B EXP4: 



JSR 

JMP 

DSZ 

SKNE 

RTS 

LD 

SKNE 

JMP 

RTS 

LD 

SUB 

SUB 

SKG 

RTS 

SKG 

JMP 

RTS 

AND 

ADD 

ADD 

ST 

LI 

ST 

ST 

RTS 



GNVC 
$50 
INPTR 
R0,LPAREN 

R0,SECT 
R0 f EXPREL 
$51 

R0 , EXPVAL 
R0 , LOCCTR 
R0,K1 
R0,KM129 

R0,HEX7F 
$52 

R0 f K255 
R0,K256 
R0,IVAL 
R0,IVAL 
Rl,l 

Rl , EXPREL 
Rl , IREL 
1 



JSR SPADR 
NO 
YES 



7 INPUT CHAR PTR 



EXPRESSION RELOCATION MODE 



; EXPRESSION VALUE 



; -129 



; EXPRESSION RELOCATION MODE 



.WORD 


' I' 




.PAGE 
. LOCAL 


'SPECIAL 


EXPRESSION REQUESTS' 


LI 


R0,0 




LI 
JMP 


Rl,l 
$EXPN 


,'POS/NEG OK 


LD 
LI 
JMP 


R0,X8000 

R1,0 

$EXPN 


;P0S ONLY 


LD 
JMP 


R0,XFFF0 
$4 


; 0FFF0 


LD 
JMP 


R0,XFF00 
$4 




LI 
JMP 


R0,-2 

$5 




LI 
JMP 


R0,-4 

$5 




LI 
JMP 


R0,-8 

$5 
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IMPASMSK 



•J1 CO 


i a "3 1? 


A (TCI 


A 


ti XFF4 : 


LI 


R0,-16 


31 3 4 


1 CI /I 01 

104 B 


11 PI 

z 1 r i 


a 

A 




JMP 


$5 




104 1 






r 






J 1 30 


1041 


4La0 


A 

A 


tiXrl J / : 


LI 


R0,-128 




in j i 

104 z 


ii pn 
z 1 r 10 


A 




JMP 


$5 




i a a i 
104 J 






* 








l n i 1 

104 J 






t 


EXP WITH MASK IN 


J X 0 v 


i nil i 


a noi l 
4 UB 1 


a 
A 


CVDDDU . 

bXfr KM : 


LI 


Rl r l 


J X 0 1 


1 CI 4 4 






# 








1 01 VI VI 
11044 






r 


MASK 


IN R0, FLAG 


7 1 7 


X044 






1 






JlDI 


1 CI /I A 
X 044 


A 1 1 P 

Al 1 11 


A 


C F vnxi « 


ST 


R0 ,$MASK 




104 7 


» ei u 

A71 b 


A 




ST 


R1,$FLAG 


Jl bo 


104 b 




I 




JSR 


EXP 


3167 


1047 


0200 


A 




RTS 


0 


3168 


1048 


347C 


B 




LD 


Rl , EXPREL 


7 1 fiQ 

j X 0 y 


X 0 " 7 


t4ZD 


t> 

D 




SKG 


Rl ,K1 


3170 


1 w4 A 


2109 


A 




JMP 


$1 


Ji / 1 


lain 

104B 






t 


ERROR 


- SIZE 


"J 1 "7 7 

jX I Z. 


i n a n 

104b 


4L0O 


A 


52 : 


LI 


R0,6; 


11 ii 

Jl / J 


104C 


1 A A 

zCAA 


I 




JSR 


ERROR 


■jnji 


lain 

104D 


4C00 


A 




LI 


R0,0 


J ± 1 J 


1 01 /J P 

X 10 4 c< 


flCiO X 


A 

A 




LI 


R2,l 


j X / O 


1 CI A P 
IBS! 


a a i a 
A0 /A 


a 




ST 


R0 , EXPVAL 


j X 1 1 


1 aca 

IB jW 


join 
Ao / o 


n 
o 




ST 


R2,EXPPD 


7i 7ft 


lflCI 

IBD1 


A!l /L 


a 




ST 


R0 , EXPREL 


71 7Q 


1 CI «\ 9 
X B D Z 


ft A7P 


Q 

D 




LD 


Rl, EXPREL 


7 1 ft CI 

J X O B 


1 aeo 

IB 3 J 


a 7 on 

W Z01 


74 

A 




RTS 


1 


11 Q1 
J X O X 


1074 






i 






11 pi 


1074 


»50E 


A 


$1 : 


LD 


Rl f $MASK 


11 61 

J I o J 


i a c c 


J4 o J 


A 




RAND 


Rl f R0 


7 1 a a 

j X o ft 




1 1 ac 
1100 


A 




BOC 


Z,$3 


7 1 ft t; 

JJ.O J 


1 01 (t 7 

X 15 3 / 


0 10L 


A 




LD 


R0 , $FLAG 


1 1 o £ 

3186 


1058 


11F2 


A 




B0C 


Z,$2 


71 R7 

J X 0 / 








f 


NEGATIVE OK 


7 1 ft ft 

j X o o 


xv 


q a "7 a 

8 0 /A 


o 

D 




LD 


R0, EXPVAL 


71 ftQ 


1 (1 C A 

110 7 A 


J4 a o 


A 




RAND 


Rl ,R0 


11 nil 


1 arn 

105B 


1 H O 1 

3482 


A 




RX0R 


R1,R0 


iini 




15EE 


A 




B0C 


NZ, $2 


j x y z 


1 flcn 

103D 






» 


VALUE 


OK 


71 Q 7 

J17J 


l ci «;n 

X B jU 


Ql (IC 

3 1 B 3 


A 


CO. 

9J : 


LD 


R0,$MASK 


71 QA 


1 flc;p 


=;cioici 


a 




CAI 


r> n n 


3195 


105F 


607A 


B 




AND 


R0, EXPVAL 


3196 


1060 


847C 


B 




LD 


Rl, EXPREL 


3197 


1061 


387B 


B 




LD 


R2,EXPPD 


3198 


1062 


0201 


A 




RTS 


1 


3199 


1063 






• 






3200 


1063 


1064 


A 


$MASK: 


. = . + 1 




3201 


1064 


1065 


A 


$FLAG: 


. = . + 1 





;0=POS 
;N0 EXP 

; EXPRESSION RELOCATION MODE 
;ABS OR UNDEF 
VALUE ERROR 



EXPRESSION VALUE 

?PREV.DEF. 1=YES 

j EXPRESSION RELOCATION MODE 

? EXPRESSION RELOCATION MODE 



;0K 

; ERROR - WE NEED POSITIVE 
EXPRESSION VALUE 

i ERROR 



; EXPRESSION VALUE 

; EXPRESSION RELOCATION MODE 

;PREV.DEF. 1=YES 



? 0=POS NZ=P0S/NEG 



3202 


1065 






. PAGE 


'OUTPUT DATA 


3203 


1065 






. LOCAL 




3204 


1065 










3205 


1065 


A12B 


A OUTWRD: 


ST 


R0, $WRD 


3206 


1066 


A52B 


A 


ST 


Rl ,$REL 


3207 


1067 


805D 


B 


LD 


R0 , PASS 


3208 


1063 


1301 


A 


BOC 


ODD, .+2 


3209 


1069 


2116 


A 


JMP 


$3 


3210 


106A 


806A 


B 


LD 


R0,MOFLAG 


3211 


106B 


1106 


A 


BOC 


Z,$l 


3212 


106C 


7C71 


B 


DSZ 


PGRL 



JSR OUTWRD 



; MULTIPLE OUTPUT FLAG 0=1ST NZ=SU3SE0 
; PAGE REMAINING LINES 
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IMPASM8K 



0 7 13 
3d. 1. 5 


1 V) 0 1J 


7 1 01 7 
/IB/ 






TMP 


• » J 


5 / 1 4 




H C V 1 






T.T 


Rl . 7 


OTIC 
jZI 3 


1 AC p 


7pr»p 
/tut 


T 
1 






OPfiCTP 
■ J r VI J i l\ 


5Z 1 b 


1 a 7 a 

I B / B 


7Q7 7 
Z M / / 


a 




vj O JTv 




5111 


IB/I 


/ y 4 j 


A 




u OR 


WD D 


O 1 1 Q 


i a 7 7 

IB / / 


q a c p 


0 
0 


9 1 i 




PCI T.fiPfPR 


JZ 1 1 


i on 7 
Xv 1 5 


7 O 7 1 

zy ji 


A 




J OK 


PiHPY 
VJ1IE1 A 


•3 1 O ffl 
JZZB 


IB / 4 


7 Q A A 

/y44 


ft 




TCP 


UXO 


O O 7 1 


1 ci 7 c 
1 B / b 


OI I D 

0 1 1 0 


ft 




T.n 




3777 


1 yj 1 0 


7Q 7P 

/y / 1 


A 




TCP 




3 7 7 3 

5115 


i cm 
IB / / 


n Ulft 


a 

ft 






R7 ^RPT. 


7 7 7 A 
oZZ4 


1 CI7Q 
ID / O 


PP7P 


0 
0 






R7 Kd 


7 7 7 e, 
5 HO 


1 CI7Q 
1.x) 1 J 


71 Pll 
/ 1 l v X 


a 




.TMP 

U I li 




7 7 7 


i a 7 & 

IB / ft 


nP7P 


Q 
D 






R7 Kd 


7 Ill 
5 CL 1 


1 0I7R 


pnoip 


a 

ft 




ann 


D3 <RPT TR 


7 7 7 P. 
5 c Co 


l Bi7P 


9701 01 
0 5YIV) 


a 

A 




t n 


PCI 01 / R3 \ 


JZZ y 


i onn 
±0 / U 


zyoo 


a 

A 




TCP 
J on 


n7PH 


o 7 7 oi 

JZ o'fl 


1 017 P 


7Q 7 a 
zy jfl 


a 

A 




TCP 


m r 

UXH 


1 O "5 1 


i a 7 1? 
1 B / r 


7PPP 


T 

1 




TCO 


P<T RTTP 
UL Bur 


7 7 7 7 
5i5i 


l a a 01 
1 B B B 


7 Q CP 

/ 0 7C 


D 


< 7 • 

>5 t 


T C 7 
1 O A 


T PiPPTtD 


7 7 7 7 

J i J J 


1 Hoi 

IB O 1 


7 01 Q 1 

0B0I 


a 
A 




NUr 




"3 1 "3 A 


i 01 0 7 
IBbz 


D 1 01 P 


a 
A 




r r» 

uu 


DDI CUDD 

KB f 9WKU 


"3 7 7 C 


i a Q *3 




a 

A 




t n 


D7 6 DP T 
KZ f 9KC1 Li 


777c 

J£ JO 


1 0J fl 4 
1B04 


7nfl 7 
zuw/ 


a 

ft 




TCP 


ACT PiPiUDn 

IS9XjUUWKXJ 


51.5 1 


lag; 
IB n 7 


3 01 B 1 


a 
A 




MOD 




3030 

JZ JO 


1 age 

1 B HO 


B ZBB 


a 
A 




DTC 

JK1 0 




JZjy 


1 a q 7 


1 7 Q A 

i/y4 


a 
A 


6 t PiPiWDr* 
pLiUUWKD 


: . WUKL) 


UUWUKU 


3 O J (71 


1 ago 

lBoH 














1 ago 






/ 






7 7 A 7 
J Z 4 / 


lagg 
1 B 0 0 






DPT TO • 

Kb Li i b : 






OZ4j 


1 nog 

IB00 


inon 

1 b My 


a 
A 


6 OCT fPQ • 

> Khi n d : 


. WUKU 


. +1 


O 1 il 4 

JZ44 


1 a 00 

1 Boy 


once 
ZUbb 


A 




a 0 p t t 
• AbLl I 


U A D T 




IB HA 


ZB4 1 


A 










moo 


*5 01 >i 7 
Z B 4 Z 


A 










1 nor 
IB !JL 


7 01 C J 

ZBb4 


A 










1 nan 

1 B 0 U 


7 a C 0. 
ZB b 0 


A 










1 ffl Q IT 

loot/ 


A 7 A 1 
4/41 


a 
A 










1 ago 
1 B 0 r 


A 7 /I 7 

4 / 4 Z 


A 

A 










1 ana 
1 B 7 B 


A 7 C A 
4/74 


a 
A 








7 7 a c 


1 flQI 

IB Jl 


1 01 O 7 

1 w y / 


a 

A 


9 WKU : 


. — . +1 




J/4 0 


1 a 0 7 
lwyz 


1 a Q 7 

1 b y j 


a 

A 


C DPT . 

5KC1L ; 


— X 1 

. — . +1 




77A7 
Jit / 


l a q "3 

1 O V J 












J Z 4 O 


1 CI Q 7. 
1 B 5 J 






* 


UU X ru X 


war ru? pdom 
V Abu Ij r KUITl 


j z 4 y 


1 01 Q 7 
1 B y J 












7 O C 01 
JZDB 


1 01 Q 0 

1 B 7 J 


7 Q 01 Q 

zy0y 


a 
A 


UVAL : 


TOO 

JbR 


i^rj C 1 V T D 

UHcXIr 


•JOC1 
J/Dl 


1 a 0 /1 
1 b y 4 


0 01 c n 

Oil DU 


0 
ti 




LiD 


KB , PAbb 


■JOE ■) 


1 01 O £ 

1 b y d 


1 "3 01 1 
1 J B 1 


a 

A 






UDD f . +Z 


■j^t •> 
j J 


lane 
1 B y n 


01 7 01 01 

B / B B 


A 

A 








one « 
J Z j 4 


1 b y / 


Q 01 Q Q 

n B 7y 


ts 




LD 


nn TMAP^7 

KB r I NDti V 




1 nng 

ib y * 


1 inn 

1 or u 


A 

A 




BOO, 


ODD r • — 2 


J/ jb 


iByy 


/yiD 


A 

A 




7 n n 

JSR 


OzB 


1 0 c 1 

5Zd I 


ib yA 


/y 1 ti 


A 

A 




JbR 


U1d 


5 Z 7 n 


1 ann 

lByti 


/Lc r 


T 
1 




7 p rj 

JSR 


UI BUr 


oZby 


ib yc 


n 0 01 a 
B /MB 


A 

A 




Rl b 




0Z0B 


i a 0. r> 
IByD 












■3 0 a i 

J/Ol 


1 b y d 








UUTPUT 


npv TP n A c 

HbX It rfla 


3262 


109D 












3263 


109D 


4000 


A 


0HEXIF: 


PUSH 


R0 


3264 


109E 


B05D 


B 




LD 


R0,PASS 


3265 


109F 


1302 


A 




B0C 


ODD, .+3 


3266 


10A0 


4400 


A 




PULL 


R0 


3267 


10A1 


0200 


A 




RTS 




3269 


10A2 


2913 


A 




JSR 


04B 



•OUTPUT PAGE STRING 



? OUTPUT INPUT BUFFER 



j OUTPUT OBJECT WORD 



;INPUT DEVICE 0=CR , 1=KB , 2=PT 
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3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 . 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 



10A3 

10A4 

10A5 

10A5 

10A5 

10A5 

10A6 

10A7 

10A8 

10A8 

10A9 

10AA 

10AB 

10AC 

10 AD 

10AE 

10AF 

10B0 

10B1 

10B1 

10B2 

10B3 

10B3 

10B4 

10B5 

10B5 

10B5 

10B5 

10B6 

10B7 

10B7 

10B7 

10B7 

10B8 

10B9 

10BA 

10BA 

10BA 

10BA 

10BB 

10BC 

10BD 

10BE 

103F 

10C0 

10C1 

10C2 

10C3 

10C4 

10C5 

10C6 

10C7 

10C8 

10C9 

10CQ 

10CB 

10CC 

10CD 

10CD 

10CD 

10CE 

10CF 

10DR 



2915 A JSR 01B 

44 00 A PULL R0 



OUTPUT 4 HEX DIGITS 



JSR 



OHEX 



2903 A OHEX: JSR 

2901 A JSR 

2900 A JSR 

810A A $01X: LD 

5804 A $01X1: ROL 

A108 A ST 

602D B AND 

E02B B SKG 

2103 A JMP 

C039 B ADD 

290A A $01X3: JSR 

0200 A RTS 

C038 B $01X2: ADD 

21FC A JMP 

10B4 A $TEMP: 
0D0A A HEXD0A : 



$01X1 

$01X 

$01X 

R0 , STEMP 
F0,4 

R0,$TEMP 

R0,K15 

R0,K9 

$01X2 

R0,HEX37 

Q1CH 



R0,HEX30 
$01X3 



. = . + 1 

.WORD 0D0A 
OUTPUT 6 /4 BLANKS 



TTEMP 



2901 A 06B: JSR 02B 
2900 A 04B: JSR 02B 



4C20 A 02B: 
2901 A 
4C20 A 01B: 



4000 A 01CH: 
800C A 
1506 A 
805D B 
1306 A 

8097 B $PUT1 
1502 A 
4400 A 
241A B 

4400 A $PUT3: 
2410 B 

808E B $PUT2: 
15F8 A 
833B B 
F055 B 
2101 A 
21F4 A 
4400 A 
0200 A 



806A B 012B; 
1502 A 
29E5 A 
29E4 A 



OUTPUT 2 BLANKS , 1 BLANK OR 1 CHAR 

jOUTPUT ? BLANKS 
; OUTPUT 1 BLANK 
PUT CHAR OUT IF IN LIST MODE 



LI R0,' 7256 

JSR 01CH 
LI R0,' 7256 



PUSH 

LD 

BOC 

LD 

BOC 

LD 

BOC 

PULL 

JMP 

PULL 

JMP 

LD 

BOC 

LD 

SKNE 

JMP 

JMP 

PULL 

RTS 



LD 
BOC 
JSR 
JSR 



R0 

R0 ,PNCHMD 

NZ,$PUT3 

R0 f PASS 

ODD , $PUT2 

R0,TYPMOD 

NZ, .+3 

R0 

0HSPRT 
R0 

@PUTC 
R0 ,LISTMD 
NZ,$PUT1 
R0 , ERRPT 
R0 , ERRBAS 
. + 2 
$PUT1 
R0 



R0 f MOFLAG 

NZ,SRET 

06B 

06B 
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3332 


10D1 


0200 


A 


$RET: 


RTS 






3333 


10D2 
















3334 


10D2 










OUTPUT 


N CR AND LF WHERE N IS IN R3 


3335 


10D2 
















3336 


10D2 


EC3B 


B 


MANYNL: 


SKG 


R3 t HEX3F 




3337 


1«D3 


FC23 


B 






SKNE 


R3 , ZERO 




3338 


10D4 


0200 


A 






RTS 






3339 


10D5 


3096 


B 






LD 


R0 ,HSPR 




3340 


10D6 


1508 


A 






BOC 


NZ r $MANl 




3341 


10D7 


EC71 


B 






SKG 


R3 , PGRL 




3342 


10D8 


2106 


A 






JMP 


$MAN1 




3343 


10D9 


8091 


B 






LD 


R0 , NOLI ST 




3344 


10DA 


1104 


A 






BOC 


Z , $MAN1 




3345 


10DB 


4C0D 


A 






LI 


R0 , 0D 




3346 


10DC 


2C1A 


B 






JSR 


@HSPRT 




3347 


10DD 


4C0C 


A 






LI 


R0 ,0C 




3348 


10DE 


241A 


B 






JMP 


@HSPRT 




3349 


10DF 






$MAN1: 








3350 


10DF 


2903 


A 






JSR 


NEWLIN 




3351 


10E0 


4BFF 


A 






AISZ 


R3,-l 




3352 


10E1 


21FD 


A 






JMP 


.-2 




3353 


10E2 


0200 


A 






RTS 






3354 


10E3 
















3355 


10E3 










OUTPUT 


CR AND LF 


OUTPUT 2 CHARS 


3356 


10E3 
















3357 


10E3 


81D0 


A 


NEWLIN: 


LD 


R0 , HEXD0A 




3358 


10E4 














3359 


10E4 


A1CE 


A 


02CH: 


ST 


R0 ,$TEMP 




3360 


10E5 


5CF8 


A 






SHR 


R0, 8 




3351 


10E6 


29D3 


A 






JSR 


OICH 




3362 


10E7 


81CB 


A 






LD 


R0,$TEMP 




3363 


10E8 


6024 


B 






AND 


R0,K255 




3364 


10E9 


21D0 


A 






JMP 


OICH 


;OUT CHAR AND RETURN 


3365 


10 EA 
















3366 


10EA 










OUTPUT 


NEW LINE AND 


MESSAGE 


3367 


10EA 










R3 POINTS TO MESSAGE 


0 WORD ENDS MESSAGE 


3368 


10EA 
















3369 


10EA 


29F8 


A 


ONLMSG: 


JSR 


NEWLIN 




3370 


10EB 


R300 


A 


OMSG: 


LD 


R0,0(R3) 




3371 


10EC 


11E4 


A 






BOC 


Z f SRET 




3372 


10ED 


5C01 


A 






SHL 


R0,1 




3373 


10EE 


5CFF 


A 






SHR 


R0,1 




3374 


10EF 


29F4 


A 






JSR 


02CH 




3375 


10F0 


8300 


A 






LD 


R0,0(R3) 




3376 


10F1 


1201 


A 






BOC 


P, .+2 




3377 


10F2 


0200 


A 






RTS 




; LAST WORD NEG . 


3378 


10F3 


4B01 


A 






AISZ 


R3,l 




3379 


10F4 


21F6 


A 






JMP 


OMSG 




3380 


10F5 


0200 


A 






PTS 






3381 


10F6 
















3382 


10F6 
















3383 


10F6 
















3384 


10F6 










OUTPUT 


PAGE STRING 




3385 


10F6 
















3386 


10F6 


29DB 


A 


OPGSTR: 


JSR 


MANYNL 




3387 


10F7 


4C37 


A 






LI 


R0,55 




3388 


10F8 


A071 


B 






ST 


R0 ,PGRL 




3389 


10F9 


8D06 


A 






LD 


R3 , SEQTTL 




3390 


10FA 


29EF 


A 






JSR 


ONLMSG 




3391 


10FB 


8D03 


A 






LD 


R3,$EQPG 


;=PGSTRG 


3392 


10FC 


29ED 


A 






JSR 


ONLMSG 




3393 


10FD 


4F02 


A 






LI 


R3 f 2 




3394 


10FE 


21D3 


A 






JMP 


MANYNL 





IMPASM8K 



3395 10FF ; 

3396 10FF 06F0 A $EQPG : .WORD PGSTRG 

3397 1100 071D A SEQTTL: .WORD TTLBUF+4 



3398 

339^ 

340(5 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

344Q 

3450 

3451 

3452 

3453 

3454 

3455 



1101 

11 HI 

1101 

1101 

1101 

1101 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

110A 

110A 

110A 

110A 

110A 

110B 

110C 

110D 

110E 

110F 

1110 

1111 

1112 

1113 

1114 

1114 

1115 

1116 

1116 

1116 

1116 

1116 

111/ 

1118 

1119 

111A 

111B 

111C 

111C 

HID 

HIE 

111F 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1127 

1127 

1127 



8096 B 
A097 B 
805D B 
1301 A 
0200 A 
8089 B 
1303 A 
2DF7 A 
29BA A 
297A A 

8096 B 
A097 B 



S08B B 
F055 B 
0200 A 
805D E 
1301 A 
0200 A 

7888 B 
4EFC A 
8488 B 
3481 A 
502D B 
1501 A 
C428 B 
5904 A 
4A01 A 
21F9 A 
A488 B 



8855 B 



XARGCK 



2C9E I 
0200 A 
808B B 
D055 B 
1502 A 
4C1E A 
2CAA I 
0200 A 
125A A 



PR2PTR; 



OIBREP: 



REPERR: 



$102: 



8103: 



. PAGE 'REPORT ERRORS' 
. LOCAL 

CHECK EXCESS ARGUMENTS 



JSR 


GNVC 


RTS 




LD 


R0 , ERRPT 


SUB 


R0 , ERRBAS 


BOC 


NZ,.+3 


LI 


R0.30? 


JSR ERROR 


FTS 




.WORD 


PRMPT2 


OUTPUT 


INPUT BUFFI 


LD 


R0,HSPR 


ST 


R0 , TYPMOD 


LD 


R0,PASS 


BOC 


ODD, .+2 


RTS 




LD 


R0,INDEV 


BOC 


ODD,. +4 


JSR 


?PR2PTR 


JSR 


012B 


JSP 


OIBUF 


LD 


R0,HSPR 


ST 


R0 , TYPMOD 



EXCESS ARGUMENTS ERROR 



; INPUT DFVICE H=CR , 1=KB , 2=PT 



; OUTPUT INPUT BUFFER IF NOT YET OUT 



ANY ERRORS TO REPORT 



LD R0 , ERRPT 

SKNE R0 , ERRBAS 
RTS 

LD R0,PASS 

BOC ODD,. +2 
RTS 

INCREMENT ERROR COUNT 



ISZ 

LI 

LD 

RCPY 

AND 

BOC 

ADD 

ROL 

AISZ 

JMP 

ST 



EC 

R2,-4 
Rl ,EC 
Rl ,R0 
R0,K15 
NZ, .+2 
Rl ,K6 
Rl,4 
R2,l 
$103 
R1,EC 



OUTPUT ERROR MESSAGE 



LD 



R2, ERRBAS 
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; PAGE REMAINING LINES 



; OUTPUT PAGE STRING 

? OUTPUT NEW LINE AND MESSAGE 



3491 


114A 


0200 


A 




RTS 




3492 


114B 












3493 


114B 


114C 


A 


$TMP: 


. = . + 1 




3494 


114C 


114D 


A 


ERRMSG: 


.WORD 


. + 1 


3495 


114D 


4552 


A 




. ASCII 


'error ' 




114E 


524F 


A 










114F 


5220 


A 








3496 


1150 


0000 


A 




.WORD 


0 


3497 


1151 


1152 


A 


MSGTAB: 


.WORD 


. + 1 


3498 


1152 


4D49 


A 




.ASCII 


'MISSING 




1153 


5353 


A 










1154 


494E 


A 










1155 


4720 


A 










1156 


4152 


A 








3499 


1157 


C72E 


A 




.WORD 


'G. '+S 


3500 


115R 


5641 


A 




.ASCII 


'VALUE 




1159 


4C55 


A 










11SA 


4520 


A 










115B 


2020 


A 










115C 


2020 


A 








3501 


115D 


A020 


A 




• WORD 


0A020 


3502 


115E 


4144 


A 




.ASCII 


'ADDRESS 




115F 


4452 


A 










1160 


4553 


A 










1161 


5320 


A 










1162 


2020 


A 








3503 


1163 


A020 


A 




.WORD 


0A020 


3504 


1164 


5553 


A 




.ASCII 


'USAGE 



1 A C C 

3456 


1128 


A Ci O O 

A1ZZ 


A 




b 1 


HZ , ;> IMP 


34 57 


1129 


8921 


A 


5 1 0 Y* : 




HZ , > IMP 


3458 


112A 


F88B 


B 




bKNCi 


HZ f fcKKPT 


34 59 


1 12B 


21 1C 


A 




Tun 
J MP 


(i ai 

&104 


~2 A C Ck 

34 60 


112C 




B 




Doi> 


r~* r\ t 


3461 


112D 


1 ft 6 1 

30 81 


A 




NUP 




34 6/ 


112E 


omi 

H071 


B 




T n 

LD 


KM , PfciRL 


"5 A £ O 

3463 


linn 

112F 


1B01 


A 




BOL 


LEZ , 


3464 


1130 


2102 


A 




JMP 


. + 3 


3465 


1131 


4F07 


A 




LI 


R3 ,7 


3466 


1132 


29C3 


A 




JSR 


OPGSTR 


3467 


1133 


8D18 


A 




LD 


R3 f ERRMSG 


"5 A C O 


1134 


1 c\ n e 


A 




JSR 


ONLMSG 


3469 


1135 


8915 


A 




LD 


R2 ,$TMP 


3470 


1136 


8E00 


A 




LD 


R3 ,0 (R2) 


3471 


1137 


CD19 


A 




ADD 


R3 /MSGTAB 


3472 


1138 


29B2 


A 




JSR. 


OMSG 


3473 


"1 1 O ft 

1139 


8911 


A 




LD 


R2 ,$TMP 


3474 


113A 








OUTPUT 


CHAR PTR 


J 4 / D 


1 1 O A 

113A 


8E09 


A 




LD 


R3 ,ELIM+1 (R2) 


3476 


113B 


EC 3 9 


B 




SKG 


R3 ,HEX37 


1 A "7 "7 

34 77 


113C 


2101 


A 




JMP 


. + 2 


3478 


11 3D 


2108 


A 




JMP 


$200 


O A "7 ft 

3479 


113E 


2CF0 


I 




JSR 


01B 


3480 


113F 


4BFF 


A 




AISZ 


R3 ,-1 


3481 


1140 


21FD 


A 




JMP 


.-2 


3482 


1141 


4C40 


A 




LI 


R0 , '§ '/256 


3483 


114 2 


2CEE 


I 




JSR 


01CH 


3484 


1143 


808E 


3 




LD 


R0 , LISTMD 


3485 


1144 


1501 


A 




BOC 


NZ, .+2 


3486 


1145 


299D 


A 




JSR 


NEWLIN 


3487 


1146 


7904 


A 


$200: 


ISZ 


$TMP 


3488 


1147 


21E1 


A 




JMP 


$100 


3489 


1148 


8055 


B 


$104: 


LD 


R0 ,ERRBAS 


3490 


1149 


A08B 


B 




ST 


R0.BRRPT 



5R 



IMPASM8K 





1165 


4147 


A 








1166 


^520 


A 








1167 


2020 


A 








1168 


2020 


A 






3535 


1169 


A020 


A 


.WORD 


0A020 


3506 


116A 


5359 


A 


.ASCII 


' SYNTAX 




116B 


4E54 


A 








116C 


4158 


A 








116D 


2020 


A 








116E 


2020 


A 






3507 


116F 


A020 


A 


.WORD 


0A020 


3508 


1170 


4558 


A 


.ASCII 


'EXCESS ARG' 




1171 


4345 


A 








1172 


5353 


A 








1173 


2041 


A 








1174 


5247 


A 






3509 


1175 


AE20 


A 


.WORD 


' . '+S 


3510 


1176 


5442 


A 


.ASCII 


"TBL OVERFI/ 




1177 


4C20 


A 








1178 


4F56 


A 








1179 


4552 


A 








117A 


464C 


A 






3511 


117B 


CF57 


A 


.WORD 


'OW'+S 


3512 


117C 


554E 


A 


.ASCII 


'UNDEFINED ' 




117D 


4445 


A 








117E 


4649 


A 








117F 


4E45 


A 








1180 


4420 


A 






3513 


1181 


A020 


A 


.WORD 


0A020 


3514 


1182 


44 55 


A 


.ASCII 


'DUP. DBF. ' 




1183 


502E 


A 








1184 


2044 


A 








1185 


4546 


A 








1186 


2E20 


A 






3515 


1187 


A020 


A 


.WORD 


0A020 


3516 


1188 


4558 


A 


.ASCII 


'EXTD. INST' 




1189 


5444 


A 








118A 


2E20 


A 








118B 


494E 


A 








118C 


5354 


A 






3517 


118D 


AE20 


A 


.WORD 


\'+S 



3518 


118E 








.PAGE 


'OUTPUT I 


3519 


118E 








. LOCAL 




3520 


118E 












3521 


118E 


806A 


B 


OIBUF: 


LD 


R0,MOFLAG 


3522 


118F 


1101 


A 




BOC 


Z,$l 


3523 


1190 


0200 


A 




RTS 




3524 


1191 


805D 


B 


$1: 


LD 


R0,PASS 


3525 


1192 


1301 


A 




BOC 


ODD, .+2 


3526 


1193 


2122 


A 




JMP 


$2 


3527 


1194 








.IF 


SIZES 


3528 


1194 


8020 


B 




LD 


R0,DSKTMP 


3529 


1195 


1202 


A 




BOC 


P,$8 


3530 


1196 








. ENDIF 




3531 


1196 


8089 


B 




LD 


R0,INDEV 


3532 


1197 


131E 


A 




BOC 


ODD, $2 


3533 


1198 








NOT KB 


INPUT AND : 


3534 


1198 


8012 


B 


$8: 


LD 


R0 , INBUFB 


3535 


1199 


A11F 


A 




ST 


R0,$IPTR 


3536 


119A 


2CF0 


I 




JSR 


OIB 


3537 


119B 


RD1D 


A 


$5: 


LD 


R3,$IPTR 



JSR OIBUF 



INPUT DEVICE 0=CR,1=KB,2=PT 
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1 C "3 Q 

Jj JO 


1 1 Of 


CiU JL U 


A 

ft 




ft ftlj 


KJfv'l DEi IN u 




i l on 

1 1 y L> 




A 

ft 




vj Mr 


0 J 




110c 

1 1 V fci 


HIT 


A 




TMD 

J Mr 












* 






1 K A 0 


1 1 *7 C 


0 J to 10 


A 

ft 


3 j! 


T n 


KB p VJ 


JD4 J 


1 1 A "5 


PCI "J >l 


O 

D 




OftNIj 


DPI OT AMV 


1 C A A 
JD44 


I 1 A 1 

I I A± 


i 1 W / 


A 

ft 




J MJr 


* A 

? H 


"3 C A C 
J 54 5 


1 1 A2 


r W4 / 


Q 

B 


t> / : 


oKNfc 




^ C )l f 

3546 


11 A3 


2112 


A 




JMP 


5 2 


3547 


1 1 A4 


r W9 2 


D 




bKNb 


K» , NULUM 


354H 


I 1 TV C 

I I Ab 


2110 


A 

A 




Tun 
JMP 


5 2 


O C A ft 

3549 


11 A6 


2CEE 


I 




JSR 


CM /""II 




1 1 A7 


/9 1 1 


A 

ft 




T C 7 


> 1 P IK 


o c e t 

3551 


I T A O 

I I Ab 


21F2 


A 




JMP 


$5 


C C 1 

3552 


11A9 


4BH1 


A 

A 


S4 : 


A T O *J 

AlbZ 


R J 1 1 


J55 J 


11 AA 


bDtr> r 


A 
A 




OPP 

bR(j 


RJ , § IBEND 


Jbb4 


11 Ad 


21W1 


A 




JMP 


e c 

v»D 


J bb b 


HAL 


zi 


A 

A 




Tun 

JMP 


52 


Jb bo 


I 1 in 

I I AD 






? 






Jbb / 


I 1 a n 

I I AD 




A 

A 


c« . 

i?o : 


LD 


R0 f 0 ( R j ) 


Q CT C Q 

Jbbn 


11 Ab 


Olio J| 

r 10.34 


b 




bKNb 


RW , BLANK 


jbby 


I 1 A 1? 

I I At 


21r y 


A 

A 




JMP 


$4 


Teen 


1 low 


r M92 


r> 
D 




SKNE 


R0,NOCOM 


jbo 1 


1 1 fcJl 


21M4 


A 

A 




JMP 


$2 


Jboz 


1 1 a 2 


b W4 / 


D 




SKNE 


R0 f CR 


o c c o 

356 3 


1 1B3 


ft! rtft 

2102 


A 




JMP 


$2 


■3 r c i 

3 bo 4 


1 1 D A 


9104 


A 




LD 


R0,@$IPTR 


3bob 


i IB j 


Z± bL 


A 

A 




JMP 


$7 


3566 


11B6 








FINISHED OUTPUT OF 


3567 


11B6 






$2: 






3568 


11B6 


4C0D 


A 




LI 


R0,0D 


3569 


11B7 


A06A 


B 




ST 


R0,MOFLAG 


3570 


HER 


0200 


A 




RTS 




3571 


11B9 


11BA 


A 


$IPTR: 


. = . + 1 




3572 


11BA 


06D4 


A 


$IBEND: 


.WORD 


INBUF+52 



; FINISHED 



;N0 COMMENT TEST (';' IF NO COMMENTS) 



; FINISHED 



?N0 COMMENT TEST ('?' IF NO COMMENTS) 



?SET MOFLAG 



NZ=S0URCE ALREADY OUTPUT 



3573 


11BB 








. PAGE 


'INPUT ROUTINES' 


3574 


11BB 








. LOCAL 




3575 


11BB 






READ: 






3576 


11BB 


8012 


B 




LD 


R0 , INBUFB 


3577 


11BC 


A05E 


B 




ST 


R0 , INPTR ; INPUT CHAR PTP 


3578 


11BD 


A05F 


B 




ST 


R0 ,LCPTR 


3579 


11BE 


805D 


B 




LD 


R0 ,PASS 


3580 


UBF 


1307 


A 




30C 


0DD,$PRM 


3581 


11C0 








.IF 


SIZE8 


3582 


11C0 


1403 


A 




BOC 


B1EQ1 , $60 


3583 


11C1 








. ENDIF 




3584 


11C1 






; PASS= 


0 




3585 


11C1 


8089 


B 


$61: 


LD 


R0 , INDEV 


3586 


11C2 


1304 


A 




BOC 


ODD,$PRM 


3587 


11C3 


2109 


A 




JMP 


$N0PRT 


3583 


11C4 








.IF 


SIZE9 


3589 


11C4 






; PASS= 


2 




3590 


11C4 


8020 


B 


$60: 


LD 


R0,DSKTMP 


3591 


11C5 


1207 


A 




BOC 


P, SNOPRT 


3592 


11C6 


21FA 


A 




JMP 


$61 


3593 


11C7 








.ENDIF 




3594 


11C7 












3595 


11C7 








EITHER 


KB INPUT OR 2ND PASS OR BOTH 


3596 


11C7 








BUT NOT 


(DSKTMP AND KB AND PASS.NE.0) 


3597 


11C7 












3598 


11C7 


788D 


B 


$PRM: 


ISZ 


LCNT2 



60 



IMPASM8K 



3599 


11C8 


2 1 V\ 3 


A 




JMP 


$50 


36^^ 


1 1 Aft 
1 1C9 


on oi 

oW 31 


D 




LD 


R0,X6666 


3601 


1 1CA 


A08D 


B 




ST 


R0 , LCNT2 


3602 


11CB 


788C 


B 




ISZ 


LCNT1 


3603 


11CC 


2D2A 


A 


& C fit . 

550 : 


JSR 


@$ PROMPT 


3604 


11CD 






* 






3605 


11CD 






* 


FINISHED PRINTING LINE 


3606 


11CD 












3607 


11CD 






SNOPRT : 






360?? 


11CD 








.IF 


SIZE8 


3609 


11CD 


801F 


B 




LD 


R0 , DSKIN 


3610 


11CE 


5000 


A 




CAI 


R0 r 0 


3611 


11CF 


1202 


A 




BOC 


P, .+3 


3612 


11D0 


2C18 


B 




JSR 


@RDSKIN 


3613 


11D1 


210D 


A 




JMP 


$10B 


3614 


11D2 


805D 


B 




LD 


R0,PASS 


3615 


11D3 


1102 


A 




BOC 


Z, .+3 


3616 


11D4 


8020 


B 




LD 


R0,DSKTMP 


3617 


11D5 


5000 


A 




CAI 


R0,0 


3518 


11D6 


1202 


A 




BOC 


P, . + 3 


3619 


11D7 


2C19 


B 




JSR 


@RDSKTM 


3620 


11D8 


2106 


A 




JMP 


$10B 


1 C O 1 


1 ID9 


o'o 89 


3 




LD 


R0 , INDEV 


O C 1 o 

3622 


11DA 


1 5 W2 


A 




BOC 


NZ,$10 


3623 


11DB 


2C11 


B 




JSR 


@RDCRD 


3o24 


11DC 


2102 


A 




JMP 


$10B 


3625 


HDD 








. ENDIF 




3626 


HDD 






* 


TTY INPUT 


jo 2 / 


HDD 


29 1A 


A 


S10 : 


JSR 


RDTTY 


Jo 2 o 




nil 
2114 


A 




JMP 


$10A 


O *5 ft 

3o 29 


11DF 






f 


COMPUTE 


SOURCE CHECKSUM 


36 3R 


11DF 


80 5D 


B 


$10B : 


LD 


R0 ,PASS 


3631 


1 1E0 


1504 


A 




BOC 


NZ r .+5 




1 1E1 


80 20 


B 




LD 


R0,DSKTMP 


3633 


11E2 


5000 


A 




CAI 


R0,0 


34 


1 1E3 


1201 


A 




BOC 


P, . + 2 


o r -» e 

35 35 


1 T pi j 

11E4 


2C16 


B 




JSR 


@WDSKTM 


jtijn 


11E5 


9012 


B 




LD 


R0 f 8INBUFB 


•3 C T "7 

3537 


11E6 


F092 


B 




SKNE 


R0 f NOCOM 


3638 


11E7 


21 E5 


A 




JMP 


SNOPRT 


1 *4 fi 

3639 


11E8 


4C0D 


A 




LI 


R0,0D 


3640 


11E9 


94A7 


I 




LD 


Rl,SOUCK 


3641 


1 1 EA 




n 




LD 


r> *5 TMDnrn 


3642 


11EB 


F300 


A 


$11C: 


SKNE 


R0,0 (R3) 


3643 


11 EC 


0200 


A 




RTS 


3644 


11ED 


C700 


A 




ADD 


R1,0(R3) 


364 5 


11EE 


B4A7 


I 




ST 


Rl,SOUCK 


3646 


11EF 


4B01 


A 




AISZ 


R3,l 


3647 


11F0 


FD5C 


A 




SKNE 


R3 r $IBL 


3648 


11F1 


0200 


A 




RTS 




3649 


11F2 


21F8 


A 




JMP 


$11C 


3650 


11F3 






* 






3651 


11F3 












3652 


11F3 


8089 


B 


$10A: 


LD 


R0 , INDEV 


JO JJ 


1 1 EM 


1 OBI 

1 J W 1 


A 
rt 




BOC 


ODD, .+2 


3654 


11F5 


21E7 


A 




JMP 


$10 


3655 


11F6 








INPUT DEVICE IS K3 . MUST 


3656 


11F6 


21D5 


A 




JMP 


$50 


3657 


11F7 


1263 


A 


$PROMPT: 


.WORD 


PROMPT 


3658 


11F8 












3659 


11F8 








READ TELETYPE 


3660 


11F8 












3661 


11F8 


4EB8 


A 


RDTTY : 


LI 


P2,-72 



; INPUT DEVICE 
,*TTY 



0=CR, 1=KB, 2=PT yINPUT Pi 



;INPUT DEVICE 0=CR , 1=KB , 2=PT 



61 



IMPASM8K 



J J '} £ 


11F9 


RC12 


3 




LD 


R3 , INBUFB 


Rft ft R 

J " n o 


1 1 PA 

X X L rt 


AC5E 


B 




ST 


R3,INPTR 


Rft64 


1 1FB 


RAR9 


g 


$12 • 


LD 


R0 , INDEV 


JUU J 


111 L 


1 1PI2 

X J «• £ 


A. 




BOC 


ODD, $12B 


Rftftft 


l 1 pn 

x x r u 


9TPIP 


B 




JSR 


QGETC 


Rftft7 
JOT f 


1 1 PR 

11" t 


9 1 P14 

£ XV H 






JMP 


$12A 


R ft ft R 


ix r r 




a 

D 


^l 9R» 

\> X £ D • 


LD 


R0 . PASS 




1 0 f^S 01 




D 

Q 




SUB 


R0 . K2 


R ft 7 (71 


1 9PI1 
X £ Yl X 


1 1 PR 

llf D 


a 




BOC 


Z , SGC 


R ft 7 1 


1 9(71 9 

1 £ V £ 


9n 4 


Q 
O 




JSR 


C u V- I J X-/V7 \»> 


"5 ft 7 0 


1 9 PI R 
1 £ Yj J 


ft pi ^ a 


n 

D 


<s i 9 a • 


ANn 


O (71 HRY7P 


"3 ft 7 "5 


1 9 (71 d 
X Z lu 4 


1 1 Pft 
lit D 


a 

rt 




Rnr 


7 S 1 2 

tl f i? X£ 


R ft 7 4 


1 9 PI R 
X £ "J J 


PCI4 7 
r tit t 


a 

D 




SKNE 


R0 , CR 


JO / 7 


1 9Plfi 


91 PIP 


A 
rt 




JMP 


SUB 


Rfi7ft 

JO/') 


1 907 

x £ y> 1 


PI 14 

r x o *i 


a 
rt 




SKNE 


R0 - $LP 


Rft77 


1 9PIR 

X £ *" ~ 


91 P9 

£ X L £ 


a 
rt 




JMP 


S 1 2 

V X £ 


Rft7R 


1 9 0 Q 

X £ t 1 ? 


PPIRA 

l v Jn 


n 

D 




SKNE 


RPI HP.X7P 


Rft7Q 

JO / 7 


1 9 01 A 


91 PCI 

£ X C V 


a. 




JMP 


$12 


RftRPi 


1 9PIR 


P 1 9 F 

r x £ Cj 






SKNE 


RPI . HEX5F 


Rft ft 1 
J D 1 X 


1 9 PIP 


91 9A 


a 
rt 




JMP 


$BKSP 


Rftft 9 

JO 3 £ 


x £?• u 


pi 9n 

L X £XJ 


T\ 




SKNE 


RPI HPY7n 


Rft r R 


1 9 PIP 

1 v> Lj 


PI9PIPI 


a 

rt 








Rft 34 


1 9PIP 


r w a d 






SKNE 


R0 , K9 


Rftft ^ 


1 9 1 PI 
x £ x n 


91 0F 

£ X Lj 


a_ 




JMP 


$TAB 


Rftftft 

j r> o n 


1911 

X tv l X 


rt J fj V 


ft 




ST 


R0 PURR} 


Rfift7 

Joy i 


1912 

X & X t 


4RPI1 


ft 




AISZ 


RR . 1 


R ft R R 


191? 

X £ X 3 


4 APil 


ft 




AISZ 


R2 - 1 


RftftQ 


1214 

X £ X ** 


21E6 


ft 




JMP 


$ 12 

V 1 & 


RftQPI 

H 7 r/ 


1 2 1 5 

it i -i 


f 1 £ \J J 


ft 




RTS 


1 


RftQ 1 


191ft 
x & x n 


A300 


ft 


<? 1 1 R • 

J X X D • 


Om 

O X 


RPI PI f RR ^ 


RftQ 9 


1917 

X £ X / 


8089 


g 




Lj i J 


RPI Tunpv 


RftQ R 

J O 7 J 


1 9 1 ft 




n 

D 




ANn 

rtlN U 


RPI PACC, 
rviy , it rt o o 


Rft Q 4 


1 9 1 Q 

li 17 


1 R PI 1 


a 

rt 




Rnr 


nnn + 9 


■j c q c 

J07J 


1 9 1 A 

liln 


51 9 PI 1 


rt 






1 

X 


RftQft 
j O y o 


i 9 1 n 






* 


T WDMT 
X Pi tr U 1 


to tfR iwn T 

ID !\ D rtiV L> X 


RftQ7 


1 11 D 

x£ Xo 




a 




T T 

LiX 


rpi Pin 


■3CQQ 

j o s rj 


l£it 




T 
X 




O OK 


vjxv„n 




l 9 1 n 

X Z X u 




T 

X 




7<;c 


nftR 

WO D 


•j 7 a a 


1 91 P 

X Z I G 


•7I9PI1 

O £ rj X 


A 




PTC 


1 

X 


■5 7 01 1 

J ( "J 1 


1 9 1 P 






* 






R7P1 9 


1 9 1 F 
x £ x c 


PQ 1 4 
Ci 7 X 4 


a 
rt 


Star . 
v X rtD • 




R9 KM41 

I\£ f r\P14 X 


R7 a r 


1 99PI 


91 Pll 

£ X "1 X 


a 
rt 




IMP 


+ 9 


R7P14 

J/B4 


1991 

X £ £ X 


9 1 nQ 


a 
rt 




,7 MP 


R 1 9 


R?^ 


1999 

\- £ £ £ 


4n9R 

H U £u 


a 




r t 

-U X 


Rl 4 Pi 
r\x f t) 


R70ft 


19 91 
itt j 


PQ 1 1 


ft 




o r\ va 


R9 KM57 
rv ^ , r\ ri j / 


R7PI 7 


19 94 

1 Z Z 4 


4nRR 


a 

rt 




r t 
XjX 


Rl R(s 
KX , j v 


R7C5 R 


19 9^ 

X £ £ J 


PQ 1 PI 

Cj v X KJ 


a 






R9 KMft^ 


R 7 PI Q 


19 9ft 


A r\A Pi 

*t U 4 w 


a 

rt 




T T 
UX 


R 1 ft 4 

rv x , ~ " 


R7 1 PI 


19 97 
iti i 


j j %} ■> 


a 

rt 






R9 Rl 

rv £ f rv x 


R 7 1 1 


1 99R 


R1R4 


D 
D 


^TaRl • 
?1HD1 • 


T n 


RPI RT aivllf 
IV I f DLirtiNrv 


R7 1 9 
J / x £ 


1 99Q 

X £ £" 




ft 




Cm 
O X 


RPI PI ( RR 1 

rVT' , r' \ X\J^ 


R7 1 R 


1 99A 

X ^ £ M 


RPI R Q 

O If O " 








RPI TMDFV 

X> T! f X V* U Ci V 


R7 1 4 

J / is 


1 99R 

L £ £ D 


D0 4 0 


3 




SUB 


R0 r K2 


R7 1 ^ 


1 9 9P 

X £ £ V, 


1 1 PI 9 

XXVi £ 


a 

rt 






7. +R 


R7 1 ft 
J / io 


l 9 9n 


RPI R4 

~ V} 3 H 


R 




LD 


RPI RT.ANK 


R7 1 7 


1 9 2F 


2C10 


3 




JSR 


apuTC 


3718 


122F 


4B01 


A 




AISZ 


R3,l 


3719 


1230 


4A01 


A 




AISZ 


R2, 1 


3720 


]231 


4901 


A 




AISZ 


Rl,l 


3721 


1232 


21F5 


A 




JMP 


$TAB1 


3722 


1233 


21C7 


A 




JMP 


$12 


3723 


1234 


FFD7 


A 


KM41 : 


.WORD 


-41 


3724 


1235 


FFC7 


A 


KM57 : 


.WORD 


-57 



; INPUT CHAR PTR 



;RUB0UT 

; BACKSPACE ARROW 
; ALT KEY 



INPUT DEVICE 0=CR, l=KB r 2=PT 



IGNORE IF > COL. 32 



62 



IMPASM8K 



3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 



FFBF A KM65: 
$BKSP: 



4BFF 
4AFF 
21C1 
005F 
007D 
000A 
123E 



HEX5F: 
HEX7D: 
$LF: • 
LCNT2A: 



1236 
1237 
1237 
1238 
1239 
123A 
123B 
123C 
123D 
123E 
123E 
123E 
123E 
123E 
123E 
123E 
123E 
123F 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1249 
124A 
124B 
124B 
124B 
124B 
124B 
124B 
124B 
124B 
124C 
124D ; 
124D 06E8 A $IBL: 
124E t 



4D01 A GNVC: 
8C5E B $1: 
FD0C A 
0200 A 
8300 A 
F047 B 
0200 A 
F049 B 
2109 A 
F034 B 
210A A 



SRETC: 



785E B 
0201 A 



4D00 A GNC: 
21F2 A 



->-i en njp * r->ffl -i 



3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3733 
3784 
3785 
3786 
3787 



124F 
1250 
1250 
1251 
1252 
1253 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
125A 
125A 
125A 
125A 
125B 
125C 
125D 



*iuvi, ft GNCVC ; 
21EF A 

7427 B $2: 
0200 A 
21F6 A 

785E B $3: 

F423 B 

02^1 A 

F426 B 

21E7 A 

7C5E B 

0200 A 



908E B PRMPT2: 
2101 A 

808F B PRMPT1: 
1101 A 



.WORD 

AISZ 

AISZ 

JMP 

.WORD 

.WORD 

.WORD 

. = . + 1 



-65 

R3,-l 

R2 f -1 

$12 

05F 

07D 

0A 



GET NEXT VALID CHAR 



JSR 



GNVC 
NONE 

CHAR. IN R0 



LI 
LD 

SKNE 

RTS 

LD 

SKNE 

RTS 

SKNE 

JMP 

SKNE 

JMP 

ISZ 
RTS 



Rl, 1 

R3 , INPTR 
R3,$IBL 

R0,0(R3) 
R0,CR 

R0,SEMI 
$2 

R0 ,BLANK 
$3 

INPTR 
1 



; INPUT CHAR PTR 
,-INBUF LAST ADR + 
;STAT. END 
; LOAD NEXT CHAR 
? CHAR . RET. CHAR. 

;SEMICOLAN 



? INPUT CHAR PTR 



GET NEXT CHAR - 



GNC 0 , GNVC 1 , GNCVC 2 



JSR GNC 
NONE 

CHAR IN R0 



LI 


Rl, 0 


JMP 


$1 


.WORD 


INBUF+72 


LI 


Ri , 2 


JMP 


$1 


SEMICOLAN 


SKAZ 


R1,K3 


RTS 




JMP 


$RETC 


BLANK 




ISZ 


INPTR 


SKNE 


Rl ,ZERO 


RTS 


1 


SKNE 


R1,K1 


JMP 


$1 


DSZ 


INPTR 


RTS 


0 



', SEMI IS TERMINATOR GNVC, GNCVC 



j INPUT CHAR PTR 



;SKIP BLANK GNVC 

i INPUT CHAR PTR ; BLANK TERMINATES GNCV 



PROMPT SUBROUTINE 

LD R0 , LISTMD 

JMP .+2 

LD R0,ERRLST 

BOC Z,.+2 



63 



IMPASM3K 



3 1 on 


i ocp 
1/ 


a not a 

v Zvv 


A 




PTC 






J / o " 


1 i5t 




D 
D 




t n 






o / y o 


~\ a cn 
Izb43 


POI 7 £ 
t W Z 0 


Q 
D 












1 zb 1 


7 1 01 1 


A 




TMP 






3 fy Z 


LZb Z 


oi 70ia 
\S Zvv 


A 
A 










j / y J 


i a a 
LZb 3 


a a an 


A 

A 


rnUPlr i : 


nnCH 

XT U Oil 


R7 




o /y4 


\ *) £L A 
IZOH 


a i (a n 
41 S3 v 


A 
A 




DTTCH 

ruan 


Dl 




"3 T f) C 


I/O D 


70 A R 


T 
1 




"TOD 


l> Ij W Li 1 IN 




j / y d 


Izbb 


7P7 1 

IK, 1 L 


n 

D 




r»<27 


rvjrvij 




j / y / 


1 Oil 

lib / 


71 01 7 
ZLVZ 


A 

A 




TMP 

u ncr 






"3 "7 a Q 

j /y o 


lino 


a i?a~i 
4 r v 1 


A 

A 




T T 

ill 


P7 7 
KJ f 1 




j /y y 


1 7 C Q 

izoy 


/Luc 


T 
1 




7 CD 


UruoIK 


•UUlFUi FAbt blRlNvj 




1 7 £ A 

1/ o A 


poi pr* 

*iB oL 


D 




UU 


poi r puti 




Jowl 


i a a d 


>i r» 70i 
4 UZv 


A 

A 




LI 


Rl,' '/256 




•ion') 


1 TCP 

1 zbC 


t?a 7 p 


n 




SKNE 


R0,CZERO 


; v / Zao 


joB j 


1 Zou 


7 1 a 7 

J 


A 

A 




JMP 


$51 




"3 q a A 
3 7 434 




A n70i 


A 

A 




LI 


Rl, '0'/256 




J n M D 


1 leu 
LZK3C 


Ztbfc 


T 
1 




JSR 


01CH 




JWob 


LZ Ik) 


7 1 CI 1 

zlw 1 


A 

A 




JMP 


$52 




3av I 






X 

1 


3D1! 


JSR 


01B 




J7s7o 


LZ 1 Z 






# 


NOW OUTPUT LAST 4 CHAR 


Ur LlNti NUMBCiK 


o p ra q 


1 7 7 7 
LZ 1 Z 


o O 7 U 


D 

D 




LD 


R2 , LCNT2 




7 Q 1 CI 


1 07 "3 
LZ t 3 




A 




ST 


R2,LCNT2A 




7R 1 1 


1 77 A 


ZH~D 


T 
1 




JSR 


OSPDEC 


. nrTTDIlT COCfTBT nUPTM&T 

•UUlrUl brtiLlAu UtLlMAL 


jolt 


1 07 E. 


a p p n 


r> 
o 




ST 


R2,LCNT2 




1 Q 1 7 


1 77 C 

L Z 1 O 




T 
1 




JSR 


01B 




7 Q 1 4 

3d m 


1777 
LZ 1 1 




D 
D 




LD 


R0 , INDEV 


; 1NFU1 UbvlLb "1— LK,1— KB 


1 J 


1 7 7 P 
lz /o 


b W7U 


n 

D 




AND 


R0,PASS 




191 £ 


1 77 Q 

iz /y 


1 7 01 1 


ft 

A 




BOC 


ODD, .+2 




ion 


inn 


7 1 01 7 

zl WZ 


A 




JMP 


$NK2 


;NU1 KB INPUT AND PAbbz 


In 


1 Z /B 


ZLD4 


T 
I 




JSR 


06B 




j!3 iy 


1 *J "7 

LZ IL 


ZLU4 


I 




JSR 


06B 




J r! Z v) 


mn 
lz / U 














ion 
3a Zl 




o h o y 


r> 

B 


6 XT *) * 


LD 


R0, INDEV 


; INPUT DEVICE t5=CR,l=KB 


3322 


127E 


1301 


A 




BOC 


ODD,. +2 




"3 R ") ") 

3a Z3 


LZ I B 


7 1 01 7 

ZLv Z 


A 

A 




JMP 


. + 3 




3824 


1280 






* 


KB INPUT , ISSUE PROMPT 






1 O Q 01 

LZnYi 


4Lz A 


A 




LI 


R0, '* 7256 






TOO! 
lzol 


zLhb 


T 

I 




JSR 


01CH 




5a Z 1 


1 7 O 1 


A C 01 01 

4 7V) W 


A 

A 




PULL 


Rl 




1 o 7 o 


1 7 Q T 

LZo 3 


j fan 

4bBW 


A 

A 




PULL 


R2 




7P 7Q 


l/o4 


v Zvv 


A 
A 




RTS 






1 P "3 01 

JOJW 


1 7 P C 

1 Z a 7 








.PAGE 


'OBJECT MODULE 


ROUTINES' 


"3 P "3 1 
J o J 1 


1 IOC 
1Z77 








.LOCAL 






7 P 7 7 


1 ")OC 














7 S3 7 7 

JO JJ 


1 7R e. 
1 Zil 7 








INITIALIZE OBJECT RECORD 


"3 P "3 A 

Jo Jl 


1 IOC 

1 Z o 7 














7 P "3 t: 


1 TOC 

1 Z O 7 


P 1 7 P 


A 


tmt rrr^ d • 
INI iUK: 


LD 


R0 ,0BJPT1 




loot 
JO Jn 


1 10£ 

IZou 




A 




ST 


R0,OBJPTR 




"3 P "3 7 
JO J / 


1 7 P 7 


P 1 01 D 

o LV) o 


A 

A 




LD 


R0,X8004 




*3 P "3 P 


1 7 P P 

1 Z n 0 


M CO 

Al b n 


A 

A 




ST 


R0 ,0BJREC 




joj4 


1 7 O O 

i z ^y 


QflCD 

MWbo 


Q 

15 




LD 


R0,SECT 






1 1 O A 

12HA 




B 




SUB 


R0,K1 




a o a i 


1 o a 


A167 


A 




ST 


R0,OBJREC+2 




3842 


128C 


805C 


B 




LD 


R0 , LOCCTR 




3843 


128D 


A168 


A 




ST 


R0,OBJREC+3 




3844 


128E 


4C00 


A 




LI 


R0,0 




3845 


128F 


A165 


A 




ST 


R0 ,W0RD5 




3846 


1290 


4C03 


A 




LI 


R0 ,3 




3847 


1291 


A164 


A 




ST 


R0 ,W0RD6 


; ND RELOCATION WORD 


3848 


1292 


0200 


A 




RTS 







4 TIMES 



64 



IMPASM8K 



3849 


1293 


9004 


A 


X8004: 


.WORD 


03004 




3350 


1294 






; 








3851 


1294 






; 


OUTPUT 


OBJECT WORD 


(WORD IN R0, REL IN R2) 


3852 


1294 






i 






3853 


12<>4 






OOWORD : 








3854 


1294 


B16E 


A 




ST 


R0 , @ OBJPTR 




3855 


1295 


E82C 


B 




SKG 


R2,K4 




3856 


1296 


2101 


A 




JMP 


. + 2 




3857 


1297 


4E04 


A 




LI 


R2,4 




3858 


1298 


F823 


B 




SKNE 


R2,ZERO 




3859 


1299 


4E01 


A 




LI 


R2,l 




3860 


129A 


D826 


B 




SUB 


R2,K1 




3861 


129B 


2913 


A 




JSR 


SHIFT 


; STORE REL BITS 


3862 


129C 


7966 


A 




ISZ 


OBJPTR 




3863 


129D 


7953 


A 




ISZ 


OBJREC 




3864 


129E 


8164 


A 




LD 


R0, OBJPTR 




3865 


129F 


F165 


A 




SKNE 


R0.OBJPT2 




3866 


12A0 


2101 


A 




JMP 


OOREC 




3867 


12A1 


0200 


A 




RTS 






3868 


12A2 






; 








3869 


12A2 






; 


OUTPUT 


OBJECT RECORD 


3870 


12A2 






; 


IF ANY 


AND SET UP NEW RECORD 


3^71 


12A2 






; 








3972 


12A2 






OOREC: 








3873 


12A2 


8160 


A 




LD 


R0 , OBJPTR 




3874 


12A3 


F160 


A 




SKNE 


R0,OBJPT1 




3375 


12A4 


21E0 


A 




JMP 


INITOR 


; RECORD EMPTY ,INIT AND RETURN 


3876 


12A5 






i 


NOT EMPTY, SHIFT REL 


BITS 


3877 


12A5 


4E00 


A 




LI 


R2,0 




3378 


12A6 


814E 


A 


$22: 


LD 


R0 , WORD 5 




3379 


12A7 


1204 


A 




BOC 


P,$21 




3*90 


12 A3 


2906 


A 




JSR 


SHIFT 




3381 


12A9 


8D04 


A 




LD 


R3 r $OR 




3882 


12AA 


2910 


A 




JSR 


CKPNCH 


;CHECKSUM AND PUNCH 


3883 


12AB 


21D9 


A 




JMP 


INITOR 


;INIT NEW RECORD AND RETURN 


3384 


12AC 


2902 


A 


$21: 


JSR 


SHIFT 




3885 


12AD 


21F8 


A 




JMP 


$22 




3336 


12AE 


12F1 


A 


$OR: 


.WORD 


OBJREC 




38°7 


12AF 






; 








-\ ry r\ f\ 

Jlf) !5 


12AF 






; 


SHIFT 


SHIFT WORD5,WORD6 LEFT 2 


3389 


12AF 






; 




FILLING 


FROM R2 BITS ^,1 


3890 


12AF 






; 








3891 


i 2AF 






SHIFT: 








3392 


12AF 


8546 


A 




LD 


Rl,WORD6 




3893 


12B0 


81*4 


A 




LD 


R0,WORD5 




3894 


12B1 


5C02 


A 




SHL 


R0,2 




3895 


12B2 


5902 


A 




ROL 


Rl,2 




3896 


12B3 


6427 


B 




AND 


R1,K3 




3897 


12B4 


3400 


A 




RADD 


R1,R0 




3893 


12B5 


A13F 


A 




ST 


R0 , WORD 5 




3899 


12B6 


853F 


A 




LD 


Rl,WORD6 




3900 


12B7 


5D02 


A 




SHL 


Rl , 2 




3901 


12B8 


3900 


A 




RADD 


R2, Rl 




3902 


12B9 


A53C 


A 




ST 


Rl,WORD6 




3903 


12BA 


0200 


A 




RTS 






3904 


12BB 














3905 


12B3 








CHECKSUM AND PUNCH RECORD POINTED TO 3Y R3 


3906 


12BB 














3907 


12BB 






CKPNCH: 








3903 


12BB 


AD34 






ST 


R3,STMP 




3909 


12BC 


805D 


B 




LD 


R0,PASS 




3910 


12BD 


1401 


A 




BOC 


BlEOl,.+2 




3911 


12BE 


0200 


A 




RTS 




;NOT PASS 2 



IMPASM3K 



■37 I Z 


xzor 


R 01 1 V 

a"! let 


o 

D 






LD 


R0 f DSK0BJ 


jy i 3 


1 0P(3I 


1 O CI A 
XZW4 








BOC 


P,$33 ; NO LEADER IF DISK 




1 OPT 

1 ZV.X 








PUNCH 


LEADER AND STX CHAR 


jy id 


1 OP1 

XzwX 


TOOT 

z?z / 


A 






JSR 


LEAD 8 


jy lo 


x zuz 


A PCI "5 
4 Z 


A 

ft 






LI 


R0,2 


ion 

jyi / 


1 zL.3 


7Vfl(7IP 


A 






ST 


R0,PNCHMD ; SET PUNCH MODE 


39 1H 


1 ZL4 


ZLEE 


T 
1 






JSR 


OICH 


1Q1 ft 

39 iy 


1 IPC 

IzLD 






• 


COMPUTE CHECKSUM 




1 IPC 

1 ZCD 






$33: 






jy zi 


l opt; 


0*7 CI 01 


A 
A 






LD 


R1,0(R3) 


jj ZZ 


1 OPC 

1 ZLb 


b4 3d 


Q 

O 






AND 


Rl ,HEX3F 


jy ^ j 


1 OPO 
1ZL / 


y| Pfil (31 


ft 






LI 


R0 r 0 


3y z4 


1 OPQ 

lzLo 


P*3 (31 O 

L3» Z 


A 
A 






ADD 


R0,2(R3) 


jy zo 


1 OPQ 

i zcy 


A an i 
4bW X 


A 






AISZ 


R3,l 


jy /n 


1 OPR 


A O PP 

4y r r 


A 
ft 






AISZ 


Rl,-1 


"J Q OO 

3y z / 


1 IPC 


O 1 PP 


A 
A 






JMP 


.-3 


jy zo 


IZLL 


OIJZ3 


A 

A 






LD 


R3,$TMP 


j7 zy 


1 OPn 
1ZU.U 


flj» 1 


A 

A 






ST 


R0,1(R3) ; STORE CHECKSUM 


"J Q "3 (31 


1 OPP 


Ol 1 C 

y lib 


A 

A 






LD 


R0 , @$ENDBUF 


jy ji 


1 OPP 

1 zLr 


p "3 n n 


A 

A 






SKNE 


R0,0(R3) 


"5 Q "5 O 

J? JZ 


1 Z UK) 


0 1 (31 "3 
Z X «9 J 


A 

A 






JMP 


.+4 


J"JJ 


x zux 




T 
X 






LD 


R0 f OBJCK 




i ono 
x z uz 


IjI X 


A 

A 






ADD 


R0 r l(R3) 


"3Q "3. C. 


i om 

X ZD j 


DO AT 


T 
X 






ST 


R0,OBJCK 


■3.Q "3-fi 


X Z U4 






* 


FINISHED CHECKSUM , NOW PUNCH 




X Z U4 










.IF 


SIZES 


J7 JO 


i on^i 

X ZU4 


(3d 1 P 


n 

D 






LD 


R0 ,DSKOBJ 




1 One 

1 Z UD 


t; a a a 


A 

t* 






CAI 


R0 ,0 


1 Q A (71 
Jrl 4W 


i one 
1 Z Db 


1 O 01 o 

1 Z v Z 


A 

A 






BOC 


V, . + 3 


"3 Q >l 1 

3y4i 


i om 
IzD / 


QC1 O 

oDXo 


A 

A 






LD 


Rl , $TMP 


^ o >i *> 


1 zDH 


"J A T "7 

Z4 17 


D 






JMP 


^WDSKOB 


1 Q A 1 

3y 4 3 


1 inn 

xzDy 










. ENDIF 




1 Q A A 

3944 


1 OnQ 




A 

A 






LD 


R1,0(R3) 


~3 CI A C 

3940 


1 ftflA 

1 Z DA 


a a i o 
b43B 


r> 
D 






AND 


Rl r HEX3F 


3y 4b 


1 ftnn 


k.44 iff 


b 






ADD 


Rl , K2 


jy4 / 


1 onp 








TOP OF 


PUNCH LOOP 


1 O A Q 

3y 4o 


1 ftnp 

1ZUL 


O "3 (31 01 


A 


^30: 


LD 


R0,0(R3) 


1 Q A Q 

3 y 4 y 


1 O nn 
1ZUU 


oppn 


T 
1 






JSR 


02CH 


3y D w 


1 o nc 
X z Ub 






$31: 






3y d i 


l o nc 
1 z ut, 


A 13(71 1 

4 bil 1 


A 

A 






AISZ 


R3,l 


J7 D z 


lone 
X Zur 


/I Q PP 

4 y r r 


A 

A 






AISZ 


Rl r ~l 


O Q C "5 

J7JJ 


X Z n<w 


o i pn 
Z X r d 


A 

A 






JMP 


$30 


O Q C yl 

3y D4 


1 OP1 

lzbl 


OPR c 

ZLAD 


T 

1 






JSR 


NEWLIN 


■j Q e r 

3y d j 


i o co 
lzbz 


a p(3i n 


A 

A 


ENDPCH: 


LI 


R0 f 0 


•jnc/r 
3y Do 


i ftpi 
X z b3 


A (31 131 P 


A 

A 






ST 


R0 f PNCHMD 


J7 J I 


1 z b4 


(31 1 (31 131 


A 






RTS 




3y do 


1 ftrr 

lzbD 


(31 Q "3 1 
tJ9 3 1 


A 

A 


$ENDBUF 


: .WORD 


ENDBUF 




1 ftpr 

1 z bb 














1 Q C (71 

3y blf 


1 O PC 

1 z bb 










PUNCH 


2 CHARACTERS 


■j q a i 
3ybl 


1 O E* £ 

1 zbb 














3yoz 


1 IPC 

1 zbb 














"5 Q C 1 


1 1 bb 










PUNCH 


LEADER 


"3 Q C A 

3y b4 


1 O PC 

X Z bb 














3y b D 


1 O PC 

1 z bb 


O Q CI (71 


A 

A 


LEAD: 


JSR 


. + 1 


3966 


1 O n* T 

12E7 


Z900 


A 

A 






JSR 


. + 1. 




1 O P o 

1 Z En 


O Q (31 (31 

zy w w 


A 

A 






JSR 


. + 1 


395R 


12E9 


2900 


A 


LEAD* : 


JSR 


. + 1 


3969 


12EA 


2900 


A 






JSR 


. + 1 


3970 


12EB 


4C01 


A 






LI 


R0,1 


3971 


12EC 


A30C 


A 






ST 


R0 , PNCHMD 


3972 


12ED 


4C00 


A 






LI 


R0,0 


3973 


12EE 


2CCD 


I 






JSR 


02CH 


3974 


12EF 


21F2 


A 






JMP 


ENDPCH 



65 



IMPASM3K 



3975 


12F0 












3^76 


12F0 


12F1 


A 


$TMP: 


. = . + 1 




3977 


12F1 












397S 


12F1 






* 


OBJECT 


MODULE DATA RECORD 


3979 


12F1 












3980 


12F1 


12F3 


A 


OBJREC : 


.= . + 2 




3981 


12F3 


12F4 


A 


WORD 3: 


. = . + 1 




3992 


12F4 


12F5 


A 


WORD 4 


. = . + 1 




3983 


12F5 


12F6 


A 


WORDS: 


. = . + 1 




3984 


12F6 


1303 


A 


WORD 6 : 


.=.+13 




3985 


1303 












3985 


1303 


12F7 


A 


OBJPTR: 


.WORD 


WORD6+1 


3987 


1304 


12F7 


A 


OBJPT1: 


.WORD 


WORD6+1 


3988 


1305 


1303 


A 


OBJPT2: 


.WORD 


OBJREC+18 



3989 


1306 






3990 


1306 






3991 


1306 






3992 


1306 






3993 


1306 






3994 


1306 


8070 


B 


3995 


1307 


1507 


A 


3996 


1308 


24C4 


I 


3997 


1309 






3998 


1309 






3999 


1309 






4000 


1309 






4001 


1309 


9070 


B 


4002 


130A 


1501 


A 


4003 


130B 


0200 


A 


4004 


130C 


0201 


A 


4005 


130D 






4006 


130D 






4007 


130D 






4009 


130D 






4009 


130D 


805D 


3 


4010 


130E 


11FD 


A 


4011 


130F 


0200 


A 


4012 


1310 






4013 


1310 






4014 


1310 






4015 


1310 


805D 


a 


4016 


1311 


15FA 


A 


4017 


1312 


0200 


A 


4018 


1313 






4019 


1313 






4020 


1313 






4021 


1313 






4022 


1313 


4FFC 


A 


4023 


1314 


5A04 


A 


4024 


1315 


4C0F 


A 


4025 


1316 


3883 


A 


4026 


1317 


F028 


B 


4027 


1318 


2106 


A 


4028 


1319 


1502 


A 


4029 


131A 


C828 


B 


4030 


131B 


3028 


B 


4031 


131C 


C03C 


B 


4032 


131D 


4D30 


A 


4033 


131E 


2101 


A 


4034 


131F 


3481 


A 


4035 


1320 


2CEE 


I 



$1: 



OSPDEC: 



.PAGE 'MISC SUBROUTINES' 
. LOCAL 

IFBYP GO TO DIREND IF IN IFSKIP MODE 

LD R0,IFMODE 
BOC NZ f $2 
JMP NEXTST 

JSR IFSKIP 

SUSPEND ASSEMBLY RET 

ASSEMBLE RETURN 
LD R0 , IFMODE 

BOC NZ,$1 

RTS 0 ; SUSPEND 

RTS 1 ; ASSEMBLE 



SKIP IF PASS 1 



LD 

BOC 

RTS 



R0,PASS 
Z,$l 



;PASS1=0 PASS2=NZ 



SKIP IF PASS 2 



t r\ 
uu 

BOC 
RTS 



P0,PASS 
NZ, $1 



OUTPUT SPECIAL DECIMAL DIGIT 



LI 


R3,-4 


ROL 


R2,4 


LI 


R0, 0F 


RAND 


R2,R0 


SKNE 


R0 , K6 


JMP 


S60 


BOC 


NZ,$61 


ADD 


R2,K6 


LD 


R0,K6 


ADD 


R0 f HEX2A 


LI 


Rl, '0'/256 


JMP 


.+2 


RCPY 


Rl f R0 


JSR 


OICH 



? ZERO REPRESENTED 



67 



IMPASM8K 



40 36 

*t w J 'J 


1321 
■i j 1 1 


4B01 








AISZ 


R3,l 


4037 


1322 


21F1 








JMP 


OSPDEC+1 


4039 


1323 


0200 


A 






RTS 




"* V J ' 


1324 






• 

9 






*» u ** vl 


1 3 ?4 

A J i 1 










. LOCAL 




4041 


1324 














404 2 


1324 










GET COMMA 


4043 


1324 












,7^R fiCOMMA 

\J *J XV VJ V* vl u l rt 


4044 


1324 












NO PDMM1 DD pun DPTriDM 


4045 


1324 














■Jilt' 


13 74 






GCOMMA : 






4047 


1 324 

J. J £ H 


AT 1 7 

nx x / 


A 






ST 


R0,$T0 


4048 


1325 


A517 


A 






ST 


R1,ST0+1 


40 49 


1 396 


A91 7 


A 






ST 


R2,ST0+2 


4050 


1327 


AD17 


A 






ST 


R3,$T0+3 


4051 


1328 


2C9E 


I 






JSR 


GNVC 


4052 


1329 




A 






JMP 


.+4 ?N0 MORE 


40 5? 


1 32A 


F04 F 


g 






SKNE 


R0 t COMMA 


40 54 


132B 


J. f u 


A 






JMP 


$1 


4055 


132C 


7C5E 


B 






DSZ 


INPTR ; INPUT CHAR PTR 


4056 


1 32D 


810E 


A 






LD 


R0,$T0 


4057 


132E 


850E 


A 






LD 


R1,$T0+1 


4058 


132F 


890E 


A 






LD 


R2,$T0+2 


4059 


1330 


9D0E 


A 






LD 


P3 f ST0+3 


4060 


1331 


0200 


A 






RTS 


0 ;N0T A COMMA 


4061 


1332 






• 


YES-COMMA 


4062 


1332 


2C9E 


I 


$1: 


JSR 


GNVC 


4063 


1333 


2102 


A 






JMP 


. + 3 


4064 


1 334 

x j j *? 




ft 






DSZ 


INPTR 




J. J J TJ 


?i en 


r\ 






JMP 


. + 2 


4066 


1336 

X J Ji r > 


^ U tj T7 


A 






JSR 


@ SMERROR 


4067 

H tl VJ / 


1337 


ft 1 04 


A 






LD 


R0,$T0 


4068 


1338 


8504 


A 






LD 


Rl ,$T0+1 


4069 


1 339 

X J J 


3904 


A 






LD 


R2,$T0+2 


4070 


1 33A 
x j .j n 


8D04 


A 






LD 


R3,$T0+3 


4071 


133B 


0701 

y i w i 


A 






RTS 


1 


4072 


133C 


1340 


A 


$T0 : 


. = .+4 




4073 


1340 


0F83 


A 


SMERROR 


: .WORD 


MERROR 


4074 


1341 










.IF 


SIZE9 


4075 


1341 














4076 


1341 










DISK ERROR 


4077 


1341 














4078 


1341 


4C00 


A 






LI 


R0,0 


4079 


13* 2 


A0 5D 








ST 


R0,PASS 


4080 


1343 

J- ** J 


9D03 


A 


DSKERR: 


LD 


R3 f DEM 


4081 


1344 


AC q 7 


B 






ST 


R3 f TYPMOD 


4082 


1345 


2C9B 


I 






JSR 


ONLMSG 


40 9? 


X J "* J 


94D3 


T 

X 






JMP 


NEWASM 


4084 


1347 


1348 


A 


OEM: 


.WORD 


. + 1 


4085 


1348 


4449 


A 






.ASCII 


'DISK ERRORS' 




1349 


534B 


A 












134 A 


204 5 


7^ 












1 34R 

USD 


coco 

J C D Z 


fl 

r\ 












1 34P 


4F^o 


A 












134D 


5320 


A 










4086 


134E 


0000 


A 






.WORD 


0 


4037 


134F 










.PAGE 


'PROCESS CONTROL STATEMENT' 


4088 


134F 










. LOCAL 




4089 


134F 














4090 


134F 










PROCESS 


CONTROL STATEMENT 



4091 134F 



69 



IMPASM8K 



4092 


134F 






PRCTRL : 






4093 


134F 


292B 


A 




JSR 


$GNAM 


40Q4 


1350 


211B 


A 




JMP 


O A 

$4 


4095 


1351 


8D36 


A 




LD 


R3 , SCTAB 


4096 


1352 


8300 


A 


S3 : 


LD 


R0 r 0 (F3) 


4097 


1353 


1104 


A 




BOC 


Z , SI 


409^ 


1354 


F07D 


B 




SKNE 


R0 , NAM0 
$2 


4099 


1355 


2103 


A 




JMP 


4100 


1356 


4B03 


A 




AISZ 


R3 , 3 
$3 


4101 


1357 


21 FA 


A 




JMP 


4102 


1358 


0200 


A 


$1: 


RTS 




4103 


1359 






• 

» 

$2 : 


FOUND 




4104 


1359 


8301 


A 


LD 


R0 , 1 (R3) 


4105 


135A 








.IF 


SIZES 


4106 


135A 


120B 


A 




BOC 


P,$5 


4107 


1358 


AC75 


B 




ST 


R3 , FORMB 


4108 


135C 


2C9F 


I 




JSR 


GITEM 


4109 


135D 


0200 


A 




RTS 




4110 


135E 


8094 


B 




LD 


R0 ,IDSKIN 


4111 


135F 


6895 


B 




OR 


R0 , IDSKTM 


4112 


1 3*>0 


1304 


A 




BOC 


ODD, $ RTS 


4113 


1361 


8086 


B 




LD 


R0 ,ITVAL 


4114 


1352 


8C75 


B 




LD 


R3 , FORMB 


4115 


1353 


E116 


A 




SKG 


R0 ,K639 


4116 


1364 


1201 


A 




BOC 


P, . + 2 


4117 


1365 


0200 


A 


$RTS: 


RTS 




4118 


1356 






$5: 






4119 


1366 








. ENDIF 




4120 


1366 


B302 


A 




ST 


R0,@2(R3) 


4121 


1367 


2C9E 


I 




JSR 


GNVC 


4122 


1368 


2103 


A 




JMP 


$4 


4123 


1369 


F04F 


B 




SKNE 


R0 , COMMA 


4124 


136A 


21E4 


A 




JMP 


PRCTRL 


4125 


136B 


0200 


A 




RTS 




4126 


136C 


808F 


B 


$4: 


LD 


R0 , ERRLST 


4127 


136D 


1501 


A 




BOC 


NZ, .+2 


4128 


136E 


A091 


B 




ST 


R0,NOLIST 


4129 


135F 








.IF 


SIZES 


4130 


136F 


801E 


B 




LD 


R0,DSKOBJ 


4131 


1370 


C040 


B 




ADD 


DPI . V9 


4132 


1371 


1102 


A 




BOC 


Z,.+3 


4133 


1372 


4C01 


A 




LI 


R0,1 


4134 


1373 


an a 0 


n 




ST 




4135 


1374 


8094 


B 




LD 


R0,IDSKIN 


4136 


1375 


C040 


B 




ADD 


R0 r K2 


4137 


1376 


1102 


A 




BOC 


Z, . + 3 


4138 


1377 


4C00 


A 




LI 


R0 f 0 


4139 


1378 


A089 


B 




ST 


R0 , INDEV 


4140 


1379 








. ENDIF 




4141 


1379 


0201 


A 




RTS 


1 


4142 


137A 


027F 


A 


K639 : 


.WORD 


639 


4143 


137B 






* 






4144 


137B 












4145 


137B 






$GNAM : 






A T A C 

4146 


137B 


2C9E 


I 




JSR 


GNVC 


4147 


137C 


0200 


A 




RTS 




4148 


137D 


5C08 


A 




SHL 


R0,8 


4149 


137E 


A07D 


B 




ST 


R0,NAM0 


4150 


137F 


2C9E 


I 




JSR 


GNVC 


4151 


1380 


4C20 


A 


$10: 


LI 


R0,' V256 


4152 


1381 


F04F 


B 




SKNE 


R0 , COMMA 


4153 


1382 


2103 


A 




JMP 


$11 


4154 


1383 


C07D 


B 




ADD 


P0 ,NAM0 



; FINISHED SEARCH AMD NOT FOUND 
?1ST 2 CHARACTERS OF NAME 



;LOOP 

f ILLEGAL NAME 



;1ST 2 CHARACTERS OF NAME 



j 1ST 2 CHARACTERS OF NAME 
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IMPASMRK 



11 EC 

4 1 7 7 


1 j " 4 


A 01 7 n 

AO / U 


Q 

D 




ST 


R0.NAM0 :1ST 2 


A 1 

417b 


1 "5 ft C> 
1 J " D 


P170I1 


A 




RTS 


1 


A "\ H 7 
4 17/ 


1 7 ft 

X J ~ b 






V X X • 


DSZ 


INPTR ; INPUT 


417o 


i "a ft 7 


71 Pft 


A 
A 




JMP 


510 


1 1 7 7 


1 7ftft 












/i i e oi 

4 1 b Irl 


1 7ftft 








CONTROL 


STATEMENT TABLE 


4 lb J 


1 log 












4 lb ^ 


1 1QQ 

1 JnO 


1 7 RQ 

x j a y 


A 


V* >- 1 no m 


.WORD 


.+1 


4 1 b j 


1 IRQ 


4 WA 7 

4 D4 £ 


A 




.WORD 


'KB * , 1 * INDEV 




1 7 Q A 
1 JOA 


191 PI CI 1 


A 










1 7 Q R 


OIPtftQ 


R 
O 






'PT ' . 2 . INDEV 

XT X f 4 f XllUUV 


ill (T/l 

41b4 




jB 74 


a 

H 




wORn 

. rf \JS\LJ 




l 7 o n 

1 JoU 


CI CI (717 
•3 w W Z 


a 

A 










1 "5 ft I? 


CI CI QQ 

Moot 


Q 
O 






'om' 1 OBJMOD 


4 IbD 


1 1 ftlT 

1 J or 


4 r 4 u 


A 
A 




wnRn 

. rt\JL\.U 




1 inn 


01 01 CI 1 

xf vj v X 


a 

A 










1 7Q 1 


PI 01 Q CI 

VtV) ^Yl 


R 






' Y ' . 1 . ytmok 

*» f 1 f Al «\-f |A 


4 1 D b 


1 7Q 7 

X J " £. 




a 




. WORD 




1 7 0 7 


01 PI 01 1 

"J ".' X 


A 

ft 










1 7QA 


Ben? 


R 
D 






'NT. ' .0 -NOLIST 


A 1 7 

4 x b / 


1 70^ 


A PAT 

4 Ej4 c 


a 




.WORD 






01 Pi PI 01 

f Tl V) YJ 


ft 










X J 7 / 


PiGIQI 


R 






'NC ' . ' • * /2"56 .NOCOM 


4 X b 7 




A PA 7 


a 

ft 




• WORD 




x jyy 


Old 7n 

10 10 J D 


a 

A 










1 in » 
1 JMA 


a a q 7 


R 






' PT ' PI PRRT.CIT 


4 1 CO 
4 IDH 


1 OQD 


a a 

4 7 4 v. 


a 

A 








1 J7V. 


pi n oi ci 

•a i? '£i k) 


a 

A 










i "5 on 


01 01 q p 


D 

D 






' MM ' PI MflMlD 


ilia 
4 1 / H 


1 J M b 


A pa n 


a 
A 








i r 


r» a a n 

VYtVY) 


A 

rt 










1 J AW 


CI 01 Q 7 

V) Yi 7 J 


D 

ts 








A 1 "7 1 


i 7 a l 

1 J Al 








T P 

. X C 


L/Dvi V EiK 


4 1 / Z 


1 J Al 


4 A A 

4 7 4 4 


a 

A 






' pn ' 1 ppnpn 




l T a 7 


Old 01 1 


a 

n 










1 7 A 7 


oi a q ft 

t* 1? 7 o 


R 






' Mfl ' 1 M&PDPR 


4 1 / J 


1 OJJl 

1 0 A4 


4 U44 


a 

A 




unun 




1 o»c 
1 J AD 


01 01 n 1 

W 15 S3 X 


A 










1 7 Afi 

1 o no 




R 

o 








/I 1 "7/1 

41/4 


1 7A7 
1 J A / 








PNnT P 




41/7 


1 7 A7 

1 J A / 








T P 
• IF 


C T 7 PR 


4 1 / b 


1 7 A 7 
1 J A / 


A 7 7 

4 J 7 / 


a 






'fP' PI TNfiPU 




1 7 A ft 
1 J AT 


01 01 01 01 

Hub" 


a 

A 










1 7 A Q 

1 J A V 


PI 01 OQ 


R 








4 X / / 


1 7 A A 
1 J A A 


A A A Q 
4 4 4 7 


a 

A 






'pit' —1 TnQif tn 




1 7 An 

1 J AfcJ 


PP P P 

r r r r 


a 

A 










1 7 8P 

1 J AV^ 


PIPIOA 
<0 v 7 4 


R 
D 








/1 1 7Q 

4 1 / o 


1 7 A n 
1 JftU 


A A A 
4 4 7 4 


a 

A 




unpn 


Ul f if ILIOnln 




1 7 A P 
1 J An. 


PPPP 

c r r r 


A 
ri 










1 7 AT? 


PIOiQc: 

DB 7 J 


R 






'DO' r -l,DSK0BJ 


4179 


13B0 


444F 


A 




.WORD 




i 7 n l 
1 JB1 


rrrr 


a 

A 










13B2 


001E 


B 








* 1 Of! 

4 1 MS" 


1 7 O 7 

13B j 


c a c o 
DB 7 / 


A 

A 






'no' 01 H5DK 




13B4 


a oi oi oi 
0HIOW 


A 

A 










i mc 

1 Jfc>7 


01 01 Q C 

VI V) 7 0 


R 

o 








4181 


13B6 








. ENDIF 




4182 


13B6 


0000 


A 




.WORD 


0 


4183 


13B7 








. PAGE 


' ERROR SUBROUTINE ' 


4184 


13B7 








. LOCAL 




4185 


13B7 






ERROR: 
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IMPASM8K 



A 1 O C 

418o 


1 J D / 


A Q A O 

A** 4 Z 


A 




£3 1 


KZ / s> 1 RZ 


4 1P7 


lino 
lo Bo 


A n n fx 

4 V) B VI 


A 




DTTCH 

JrUatl 


OCT 


4188 


1 A ft ft 

13B9 


nnrr 


o 




r n 
UU 


KB f IMr IK 


4189 


13BA 


Pi" or 


D 

o 




CT 

b 1 


K0 f LiCPlK 


4190 


13BB 


/Lbr 


b 


53 : 


Ub zj 


T /ATAjmTA 

LLrlK 


A 1 A 1 

4191 


13BC 


90 br 


D 

D 






D 01 r f nfPT3 

K0 f IK 


4192 


13BD 


e (334 


D 
D 




bt\Nb 


dcs ar RMt/ 
K0 i DbANK 


419 3 


1 Job 


Zl r L 


A 




Tun 
J Br 




A T ft A 

4194 


1 A q n 

13Br 


/ o br 


B 




T C 7 


LLF1K 


A 1 ft C 

4195 


1 1 /a a 

13C0 


X X 01 01 

4413(3 


x 

A 




DriT T 

rUbL 


DA 

K0 


4196 


1 AOI 

13C1 


a ana 

40130 


A 




rjnou 

FUbn 


vta 
K0 


419/ 


1 "3/AA 
13LZ 


ggQD 

OOOD 


D 
D 




T Pi 

LiU 


KZ f bKKPl 


419o 


1 *3 (A 1 
13L J 


r y Z j 


x 

A 




CVKIP 
bl\NC< 


KZ f b EKKMX 


4199 


1 A ^ A 

13C4 


210 A 


x. 
A 




Tun 


SI 


4200 


13C5 


X A (1 A 

A20 0 


X 

A 




ST 


R<9 ,0 (R2) 


Jl a, /I 1 

4201 


13L6 


r50 br 


Q 

D 




LD 


R0 r LCPTR 


yi o m o 
4 202 


1 3L / 


noil o 
DW1 Z 


n 
O 




ens 
bUo 


Dfil T XTDTT DD 

Ki3 r INBUrD 


4203 


1 3C8 


F20 8 


A 




O if -7 7T- 

bKNE 


R0 t ELIM { R2 ) 


X 0 01 A 

4 204 


1 JL"? 


0 1 01 1: 

zi w b 


A 




Tun 

J MP 


$1 


A o oi t: 
420b 


1 3LA 


nun 
AZ0V 


A 




bl 


R0 (.ELIM+l (R2) 


a oac 
4Z0b 


i trvi 
1 3LB 


O0 3D 


bs 




LlJ 


Rn r ERRPT 


X i on 
4 Z0 / 


13LL 


7Qoq 

inoo 


D 




TOO 

IbZ 


c* Ti r> m 

ERRPT 


X OCT Q 

4 Z0 o 




r s b b 


D 
D 




C 17 ATI? 


K0 , ERRBAS 


A "3 01 Q 


13LE 


ZUZL 


* 

A 




T CD 

J bK 


O ^ n n u Ti m l 

e SPRMPTl 


X 11 01 


1 IPC 






•si : 






x *3 1 i 


1 jLc 








. 1 r 


DBGVER 


x *) i a 
4212 


1 A/Ap 

1 3Lr 


A/1A A 

O09 K 


B 




LD 


R0 , ERDEB 


X O 1 1 

421J 


1 3D0 


1 1 1 A 

1113 


A 




B0C 


Z ,$2 


4214 


1 JD1 


2CA5 


I 




JSR 


NEWLIN 


4215 


1 AnA 

13D2 


H 126 


A 




LD 


R0 , SE1 


1 Al £ 

4 zlo 


1 AAA 

13D3 


2Q.CD 


I 




JSR 


02CH 




1 3 L)4 


a a aa 
44 00 


A 




PULL 


R0 


J AT A 

4 21 3 


1 a. r\c 

13D5 


A /A »V A 

2CD2 


I 




JSR 


OHEX 


4 219 


i one 

13D6 


2CEF 


I 




JSR 


02B 


4220 


13D7 


4400 


A 




PULL 


R0 


4 ZZ 1 


1 3 UN 


X 01 01 01 

4000 


IV 

A 




PUSH 


R0 


h zz z 


l mo 

1 3DS» 


2LD2 


T 

1 




JSR 


OHEX 


1AAA 

4223 


13DA 


2CEF 


I 




JSR 


02B 


J A A J 

4224 


1 Ann 

13DB 


80 5F 


B 




LD 


R0 , LCPTR 


iAAF 

422D 


1 1 rv<A 
i 3DL 


D01 2 


B 




SUB 


, I NBU FB 


X O *3 £ 

4 2 Zo 


13DD 


2CD2 


I 




JSR 


OHEX 


* AAA 

422 / 


1 A r-. r-y 
1 3 DE 


Oil* 

H11A 


A 




LD 


R0 , $E1 


JAArt 

fl / / S 


1 3 DP 


2000 


T 




JSR 




4229 


1 An/1 

1 3E0 


2CA5 


I 




JSR 


NEWLIN 


X 1 "3 01 

42 jy 


13L1 


Art 1 n 

*591o 


A 




LD 


R2 ,STR2 


A O 0 I 

4 2 J 1 


1 A p A 

13 E 2 


a n o 1 

3031 


A 




NOP 




J| A A A 

42 J2 


1 "3 TA A 

1 3E3 


oi o d m 
0200 


* 

A 




RTS 




4Z33 


1 Aril 

1 3E4 








.ENDIF 




X *3 "3 X 

4 Z 34 


1 A l-i J 

13E4 


44 00 


* 

A 


s 2 : 


PULL 


R0 


x i "3 e 
4 Z3 b 


13E5 


OA 1 i 

8914 


A 




LD 


R2, , ?TR2 


4Z JO 


1 "5 PC 

1 J Ed 


0Z00 


A 




RTS 




4237 


13E7 












4238 


13E7 


13F0 


A 


$ERRMX: 


.WORD 


ERBUF+ELIM 


4239 


13E8 


13F0 


A 


ERBUF: 


.=.+ELIM 


4240 


13F0 


FFFF 


A 




.WORD 


-1 


4241 


13F1 


13F9 


A 




.=.+ELIM 


4242 


13F9 


2A2A 


A 


$E1: 


.WORD 


'** ' 


4243 


13FA 


13FB 


A 


$TR2: 


. = . + 1 




4244 


13FB 


125C 


A 


$PRMPT1 


: .WORD 


PRMPT1 



;N0T IN MAP DEBUG MODE 



?***JSR DEBUG*** 



4245 13FC .PAGE 'SPECIAL DEBUGGING DIRECTIVES' 

4246 13FC .IF DBGVER 
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IMPASM8K 



A "> A 1 
1 Z H 1 


1 "3 FT 
JL j r v_ 












6.0 AO. 
t Z t O 


i pp 






J 






A 0 A Q 
4 Z47 


1 ^ PC 
1 Jet 






pace i • 
r AO 51 ! 








1 "J PP 


Arena 


A 

ft 




T T 

Lj X 


KB f r> 






Z1W I 


A 

ft 




TMD 


9 1 


4 1 0 Z 


lore. 






* 






i| "1C l 


i -j op 
I Jrb 






r Ado Z 1 






si 


1 1 PP 




ft 




T T 
u± 


R0I 1 




i. J rr 


a oi e r> 
A 10 D U 


D 


?i : 


O J. 


doi Dace 






Z4LJ / 


T 
1 








4 Z 3 / 


1 4 tl 1 














1 A 01 1 
1401 






f AOS4 I 








1 A CI 1 
1491 


AP0I 

4 EilcJ J 


A 
ft 




T T 
Lil 


DO 1 
KZ , J 

$1 


4260 


1402 


21FC 


A 




JMP 


4261 


1403 












4262 


1403 






MAPDIR: 






4263 


1403 


2D01 


A 




JSR 


@. + 2 


4264 


1404 


24D7 


I 




JMP 


DIREND 


4265 


1405 


0D97 


A 




.WORD 


OMAPNR 


4266 


1406 








. ENDIF 





; OUTPUT MAP NO RESET OF P BITS 



4 ZO / 


1 JflC 

14i)b 






.PAGE 


'DIRECTIVE / INSTRUCTION 


A t CO 

4Zoo 


14 W O 




] 






A 0 C Q 
4 Z O M 


i vi r? c 
140O 






DIRECTIVE / INSTRUCTION TABLE 


4 Z / 1 


1 4 01 
1 4 W 0 










/ o T l 
4 Z / 1 


i / n c 

1 4 W D 




Ul IbLb : 






y| 0 "7 0 
4 Z / Z 


i Aac 




A 

A 


.WORD 


0,WORD, .W +S, OR','D' 




^ Am 
14W / 


W ASH 


A 

A 








14M'5 


A P C ^ 


A 

A 








l inn 

i4wy 


4 r dZ 


A 

A 








1411 A 


A A o n 

4 4 Va 


A 






4273 


i inn 

140B 


0000 


A 


.WORD 


0,EXTD, '.E'+S, 'XT' , 'D' 




140C 


0A54 


A 








140D 


AE45 


A 








140E 


5854 


A 








140F 


4420 


A 






4274 


1410 


0000 


A 


.WORD 


0,LIST r '.L'+S, 'IS' , 'T' 




1411 


0AC2 


A 








1412 


AE4C 


A 








1413 


4953 


A 








1414 


5420 


A 






4275 


1415 






.IF 


SIZE8 


4276 


1415 


0000 


A 


.WORD 


0,FORM, '.F'+S, 'OR' , 'M ' 




1416 


09D5 


A 








1417 


AE46 


A 








1418 


4F52 


A 








1419 


4D20 


A 






4277 


141A 






.ENDIF 




4278 


141A 


0000 


A 


.WORD 


0, ELSE, '.E'+S, 'LS' , 'E' 




141B 


09BD 


A 








141C 


AE45 


A 








141D 


4C53 


A 








141E 


4520 


A 






4279 


141F 


0000 


A 


.WORD 


0,PAGE, '.P'+S, 'AG' , ' E ' 




1420 


0A97 


A 








1421 


AE50 


A 








1422 


4147 


A 








1423 


4520 


A 






4280 


1424 


0000 


A 


.WORD 


0,IF, '.I', 'F' 




1425 


09A3 


A 








1426 


2E49 


A 








1427 


4620 


A 
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IMPASM9K 



4281 


1428 


n n n n 


A 




1429 


m o c ~i 

0867 


A 




142A 


2E45 


A 




142B 


4E44 


A 


4282 


142C 


0000 


A 




142D 


0 ADS 


A 




142E 


AE54 


A 




142F 


4954 


A 




1430 


4C45 


A 


4283 


1431 


0000 


A 




1432 


0A41 


A 




1433 


AE41 


A 




1434 


534 5 


A 




1435 


4354 


A 


4284 


1436 


0000 


A 




1437 


0A50 


A 




1438 


AE42 


A 




1439 


5345 


A 




143A 


4354 


A 


4285 


143B 


0000 


A 




143C 


0A52 


A 




143D 


AE54 


A 




143E 


5345 


A 




143F 


4354 


A 




l A a n, 

14 4 0 


ft f% ft ft 

0000 


A 




1441 


0AAE 


A 




1442 


AE53 


A 




1443 


5041 


A 




1444 


4345 


A 


4287 


1445 


0000 


A 




1446 


0A63 


A 




1447 


AE47 


A 




1448 


4C4F 


A 




1449 


424C 


A 


4288 


144A 


0000 


A 




144B 


0A76 


A 




144C 


AE4C 


A 




144D 


4F43 


A 




144E 


414C 


A 


4289 


144F 


0000 


a 




14555 


0A89 


A 




1451 


AE41 


A 




1452 


534 3 


a 




1453 


4949 


A 


4290 


1454 


0000 


A 




1455 


09CA 


A 




1456 


AE45 


A 




1457 


4E44 


A 




14 58 


4946 


A 


4291 


1459 






4292 


1459 


0000 


A 




1 A 1* 9 

145A 


13FC 


A 




145B 


2E50 


A 




145C 


3120 


A 


4293 


145D 


0000 


A 




145E 


13FE 


A 




145F 


2E50 


A 




1460 


3220 


A 


4294 


1461 


0000 


A 




1462 


1401 


A 




1463 


2E50 


A 




1464 


3420 


A 


4295 


1465 


0000 


A 



.WORD 0 , END, ' . E ' , 'ND ' 



.WORD 0, TITLE, '.T'+S, 'IT' , 'LE' 



.WORD 0, ASECT, '.A'+S, 'SE' , 'CT' 



.WORD 0,BSECT, '.B'+S, 'SE' , 'CT' 



.WORD 0,TSECT, '.T'+S, 'SE' , 'CT' 



.WORD 0 , SPACE , ' . S '+S , 'PA ' , 'CE ' 



.WORD 0,GLOBL, '.G'+S, 'LO' , 'BL' 



.WORD 0 , LOCAL, ' .L '+S , 'OC ' , ' AL ' 



.WORD 0, ASCII, '.A'+S, 'SC', 'II' 



.WORD 0,ENDIF, '.E'+S, 'ND' , 'IF' 



.IF DBGVER 

.WORD 0,PASS1, '.P', '1 ' 



.WORD 0,PASS2, '.P', '2 ' 



.WORD 0,PASS4, '.P', '4 ' 



.WORD 0,MAPDIR, '.M', 'AP' 
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IMPASM8K 





1466 


1403 


A 








1467 


2E4D 


A 








1468 


4150 


A 






4296 


1469 






. ENDIF 


0,ASMDIR, '.A', 'SM' 


4297 


1469 


0000 


A 


.WORD 




146A 


0AD4 


A 








146B 


2E41 


A 








146C 


534D 


A 






4298 


146D 










4299 


146D 






INSTRUCTIONS 


4300 


146D 










4301 


146D 


8000 


A 


LD 


0,0 


4302 


146E 


0EB6 


A 


.WORD 


IC1,'LD',' ' 




146F 


4C44 


A 








1470 


2020 


A 






4303 


1471 


A000 


A 


ST 


0 ,0 


4304 


1472 


0EB6 


A 


.WORD 


IC1,'ST',' 




1473 


5354 


A 








1474 


2020 


A 






4305 


1475 


C000 


A 


ADD 


0,0 


4306 


1476 


0ECA 


A 


.WORD 


IC2 , 'AD' , 'D ' 




1477 


4144 


A 








1478 


4420 


A 






4307 


1479 


D000 


A 


SUB 


0 ,0 


4308 


147A 


0ECA 


A 


.WORD 


IC2 . 'SU ' . 'B ' 




147B 


5355 


A 








147C 


4220 


A 






4309 


147D 


E000 


A 


SKG 


0,0 


4310 


147E 


0ECA 


A 


.WORD 


TC2 '<5Ff' ' C ' 




147F 


534B 


A 








1480 


4720 


A 






4311 


1481 


F000 


A 


SKNE 


0 ft 


4312 


1482 


0ECA 


A 


.WORD 


TP? 'Cir * 'WF ' 




1483 


534B 


A 








1484 


4E45 


A 






4313 


1485 


6000 


A 


AND 


0 , 0 


431^ 


I486 


0ED5 


A 


• WORD 


ici 'an' 'n ' 




1487 


414E 


A 








1488 


4420 


A 






4315 


1489 


6800 


A 


OR 


0 , 0 


4316 


148A 


0ED5 


A 


.WORD 


TCI 'OR' ' 




148B 


4F52 


A 








148C 


2020 


A 






4317 


148D 


7000 


A 


SKAZ 


0 , 0 


4318 


148E 


0ED5 


A 


.WORD 


JC1 '<??{' 'a?' 




148F 


534B 


A 








1490 


415A 


A 






4319 


1491 


7800 


A 


ISZ 


0 


4320 


1492 


0ED1 


A 


.WORD 


IC4,'IS','Z ' 




1493 


4 Q 53 


A 








1494 


5A20 


A 






4321 


1495 


7C00 


A 


DSZ 


0 


4322 


1496 


0ED1 


A 


.WORD 


IC4,'DS','Z ' 




14^7 


44 53 


A 








14^8 


5A20 


A 






4323 


1499 


3081 


A 


NOP 




4324 


149A 


0ED9 


A 


.WORD 


IC5,'NO','P ' 




149B 


4E4F 


A 








149C 


5020 


A 






4325 


149D 


0080 


A 


PUSHF 




4326 


149E 


0ED9 


A 


.WORD 


IC5,08000+'PU', 'SH', 




149F 


D055 


A 








14A0 


5348 


A 
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14A1 


4620 


A 








4327 


14A2 


0230 


A 


PULLF 






4328 


14A3 


0ED9 


A 


• WORD 


IC5, 08000+ PU , 


LL , F 




14A4 


D055 


A 










14A5 


4C4C 


A 










14A6 


4620 


A 








4329 


14A7 


0000 


A 


HALT 






4333 


14A8 


0ED9 


A 


.WORD 


IC5, HA , LT' 






14A9 


4341 


A 










14AA 


4C54 


A 








4331 


14AB 


0510 


A 


.WORD 


0510 


7 1 SCAN 


4332 


14AC 


flEDB 


A 


.WORD 


IC5A, 09000+ 'IS' 


,'CA','N ' 




14AD 


C953 


A 










14AE 


4341 


A 










14AF 


4E20 


A 








4333 


14B0 


4000 


A 


PUSH 


0 




4334 


1431 


0EDE 


A 


.WORD 


IC6, 'PU' , 'SH' 






14B2 


5055 


A 










14B3 


5343 


A 








4335 


14B4 


4400 


A 


PULL 


0 




4336 


14B5 


0EDE 


A 


.WORD 


IC6, 'PU', 'LL' 






14B6 


5055 


A 










14B7 


4C4C 


A 








4337 


14B8 


5400 


A 


• WORD 


05400 




4338 


14B9 


0EDE 


A 


.WORD 


IC6,08000+'XC' , 


'HR','S ' 




14BA 


D843 


A 










14BB 


4352 


A 










14BC 


5320 


A 








4339 


14BD 


4900 


A 


AISZ 


a ,0 




4340 


14BE 


0EE3 


A 


. WORD 


IC7, 'hi' , 'SZ' 






14BF 


4149 


A 










14C0 


535A 


A 








4341 


14C1 


4C00 


A 


LI 


0,0 




4342 


14C2 


0EE3 


A 


.WORD 


IC7 r 'Ll' r ' ' 






14C3 


4C49 


A 










14C4 


2020 


A 








4343 


14C5 


5000 


A 


CAI 


0,0 




4344 


14C6 


0EE3 


A 


.WORD 


IC7,'CA','I ' 






14C7 


4341 


A 










14C8 


4920 


a 








4345 


14C9 


5300 


A 


ROL 


0,0 




4346 


14CA 


0EE3 


A 


.WORD 


IC7,'RO','L ' 






14CB 


k n A X? 


fi 










14CC 


4C20 


A 








4347 


14CD 


5C00 


A 


SHL 


0,0 




4343 


14CE 


0EE3 


A 


.WORD 


IC7,'SH','L ' 






14CF 


5348 


A 










14D0 


4C20 


A 








4349 


14D1 


5800 


A 


ROR 


0,0 




4350 


14D2 


0EEE 


A 


.WORD 


IC7A,'RO','P ' 






14D3 


524F 


A 










14D4 


5220 


A 








4351 


14D5 


5C00 


A 


SHR 


0,0 




4352 


14D6 


0EEE 


A 


.WORD 


IC7A,'SH','R ' 






14D7 


5348 


A 










14D8 


5220 


A 








4353 


14D9 


3000 


A 


PADD 


^,0 




4354 


14DA 


0EFB 


A 


.WORD 


ICS, 'ra', 'dd' 






14DB 


5241 


A 










14DC 


4444 


A 








4355 


14DD 


3090 


A 


RXCH 


0,0 




4355 


14DE 


0EFB 


A 


.WORD 


IC8, 'RX', 'CH' 






14DF 


5253 


A 
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1 a pd 
1 4 bw 


A 1 A Q 
4 J 4 (3 


A 

A 










A 1K1 
4 J 5 / 


l x n 
14 LI 


i a o i 

J 0 0 1 


A 


Kv,r I 


01 a 

V f V 






A 1 C O 


1 4 PO 

14 b2 


CI PPD 

y br d 


A 


i»iri on 
• WUKU 


Tpo 'DP * 
IV- o f KK, f 


rl 






^AV1 
1 4 b J 


c o x "5 
3 *£4 J 


A 

A 












1 A P A 

1 4 b4 


0 a 3 9 


A 

A 










/ICQ 

4 J59 


1 ire 

14 E5 


o a o o 

J 0 o 2 


A 

A 


nuriD 

KXUK 










1 X PC 

14 DO 


nnnn 

0br o 


A 

A 


. WUKD 


TOO ' DV ' 


OR 






14 b/ 


32 3o 


A 

A 












1 A ro 

1 4 bo 


X PC o 

4r ol 


A 

A 










4 Jol 


1 X PQ 

l4Ey 


m o i 

J0 O J 


A 

A 


KAND 


a a 
0 , 0 






X 1 C 1 

4 Jo I 


1 J! I? JV 

14 bA 


'Jbrti 


A 

A 


. WUKD 


TOO 'n» ' 

ILH, RA , 


'kin ' 
ND 






1 A PD 

14 EB 


5241 


A 

A 












1 X c*o 

14 EC 


4E44 


A 










A 1 £ "3 

4 jo j 


14 ED 


2000 


A 

A 


JMP 


ft 
V 






4 jri4 


1 i nn 

14EE 


a p(i * 
0r 0A 


A 

A 


r-7 Ann, 

• WORD 


T Oft ' T \i * 

IC9, JM , 


P 






14br 


X A A r\ 

4 A4 D 


A 

A 












1 4 r 0 


50 20 


A 

A 










4 J03 


1 i pi 
I4r l 


ma a 
2800 


A 

A 


Ton 


ft 

0 






4 Job 


1 A CO 

14 r 2 


a pa > 
0 r 0 A 


A 

A 


. WUKD 


T O ft 'to' 

IC9, JS r 


R 






I4r J 


A A C "5 
4 A3 J 


A 

A 












1 A FX 

1 4 r 4 


cilia 
5220 


A 

A 










4 JO / 


1 X PC 

14r 3 


fli o n a 

0 80 0 


A 

A 


O PT O 








A ICQ 

4 JO O 


l >i pc 
14 r 0 


01 P 1 1 

0 f 1 / 


A 

A 


• WORD 


IC10, SF 


' r o ' 

r LG 






1 X PI 

14r / 


5 J4o 


A 

A 












14 Fo 


4C47 


A 










A 1 £ Q 

4 Joy 


14F 9 


08 00 


A 


PFLG 


0 






4 J /0 


14 FA 


Aon 
0F17 


A 


.WORD 


IC10 f PF 


* 1- o * 

, LG 






1 A PO 

14 r b 


c n x c 

504 0 


A 

A 












1 A IP/" 1 

14FL 


X O X 1 

4C47 


A 










4 J / 1 


14FD 


1000 


A 


BOC 


0 r .+1 






Alt') 

4 J / 2 


1 A p o 
14r E 


0F22 


A 


• WORD 


IC11 , 'BO' 


* o ' 






1 X PP 

14r r 


X O X P 

424 r 


A 

A 












1500 


Aim 

4 J20 


A 










A 11 1 

4 J 15 


low 1 


man 
0 200 


A 


RTS 


0 






A 1 1 A 

4 J / 4 


i c n *) 
L 30 2 


a E» o X 

0 F J4 


A 


% WORD 


IC12 r RT 


r S 






l c m i 

low J 


C 1 C A 

5254 


A 












i c n a 
1504 


5320 


A 










A 1 1 C 

4 J / 0 


130 5 


a a an 

"4 00 


A 


RIN 


0 






a in c 
4 J /n 


1 5 o 


n cl a 
0F J 4 


A 


.WORD 


IC12 ,'Rl' 


t N 






i c on 
15*5 / 


Clin 

524M 


A 

A 












1508 


4E20 


A 










4377 


1509 


ft C ft ft 

0600 


A 


ROUT 


0 






A 11 Q 
4 J / O 


lOv) A 


0r,J4 


A 

A 


.WORD 


IC12, RO 


, UT 






1 COD 

150B 


C 1 X c* 

524F 


A 












1 c m o 
150L 


C C C X 

5554 


A 










X "3 O Q 
4 J / 7 


i con 
150D 


0100 


A 


RTI 


0 






A 1 0 01 


1 C fll P 

1 5 47 b 


0r J4 


A 

A 


.WORD 


IC12 , 'RT ' 


r I 






leap 

13 xft 


C 1 C A 

5254 


A 

A 












1510 


X ft o a 

4y 20 


A 

A 










4 jy± 


i cn 

1511 


0 J 00 


A 


.WORD 


03^0 




; JSRP 


4 J o 2 


1512 


0 r Jo 


A 


.WORD 


IC12A, JS 


, PP 






1 51 J 


X A C 1 

4A5 J 


A 

A 












1 e i a 
1514 


C 1 C ft 

5250 


A 










4 Jo J 


l e l c 

1515 


ft C 1 ft 

0520 


A 


.WORD 


0520 




; JINT 


A 1 0 A 

4 Jn4 


1 ci c 

1516 


0F3E 


A 


.WORD 


IC13A, 'JI 


% 'NT' 




1 =,1 7 

A J X 1 




a 

r\ 












1518 


4E54 


A 










4395 


1519 


0700 


A 


.WORD 


0700 




jSETST 


4386 


151A 


0F3E 


A 


.WORD 


IC13A,08000+'SE 


, TS , T 




151B 


D345 


A 












151C 


5453 


A 












151D 


5420 


A 










4387 


151E 


0710 


A 


.WORD 


0710 




;CLRST 
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in n n 

43 td 


15 lr 


V) C J £i 


A 

A 


. \nKJt\U 


TPl 01 P 01 CI 01 4- ' r T ' 


, RS p T 




i c o a 
1520 


L34U 


ft 
A 










1521 


COK1 

525 J 


A 

A 










1 c O o 

1522 


c i on 
54 20 


A 








4389 


i e o *5 

1523 


0720 


A 


. WUKD 


0 / 2o 


? SETBIT 


4390 


1524 


0F3E 


a 

A 


. WUKU 


1L13A, 015000 + bfc 


, 'TB ' , ' IT ' 




1525 


n o i c 

D34 5 


A 










1 C *"i £. 

152n 


C A A 1 

544 2 


A 

A 










1527 


4954 


A 








4391 


i e o o 
152H 


noon 

0730 


A 


.WORD 


0730 


; CLRBIT 


4392 


i coo 
1529 


npop 

v r J fci 


A 

A 


t»t Ann 
. WUKU 


1U13A,0H00W+ LL 


, RB , IT 




1 C O A 

152A 




A 

A 










1 C O Q 

152B 


r t i o 

524 2 


A 

A 










152L 


49 54 


A 

A 








4393 


i c or\ 
1 5 Z'J 


W / 50 


A 

A 


. WUKD 


a "i c a 
0/50 


? SKBIT 


4394 


1 COP 

1 5 2t 


Wr 3b 


A 

A 


.WUKU 


IC13A,S+ SK , BI 


t T 




1 COP 

1 5 Zc 


nO/i d 
UJ't D 


A 

A 










15.50 


A O VI Q 

4 ^49 


A 

A 










1531 


54 20 


A 








4395 


1 c o o 
153/ 


nn a n 

0 740 


A 


.WORD 


0740 


ySKSTF 


A *5 C\ £ 

4396 


1 C O O 

1533 


0F3E 


A 


• WORD 


IC13A,S+ SK f ST 


r P 




1 r o l 

1534 


n 1 A B 
U34 o 


A 

A 










1 C 1 c 

1535 


c O r < 

5354 


A 

A 










T C O C 

1536 


4 620 


A 








4397 


1 C O O 

1537 


0 /60 


A 


.WORD 


0760 


?CMPBIT 


Jt *5 f\ O 

4398 


1 C 0 D 

15 33 


0 b 3 E 


A 


.WORD 


IC13A, 03000+ CM 


' r\T-« ' ' Tin ' 
, PB , IT 




i cia 
1539 


L34D 


A 










1 C O A 

1 53 A 


504 2 


A 










1 5 3d 


4954 


A 








4399 


l c o p 

153C 


0500 


A 


.WORD 


PI 590 


7 JMPP 




1 con 

1 53D 


0F3E 


A 


.WORD 


IC13A, JM , PP 






153E 


4A4D 


A 










1 C O E» 

153F 


50 50 


A 








44 PI 1 

*± t v X 






A 




(714 fid 

'J fi o X 1 


• MDV 


A A (A 1 

44 a 2 


1541 


0t 44 


A 

A 


• WORD 


IC14, MP , Y 






i c J o 

1542 


4D50 


A 










1543 


5920 


A 








A A n "i 

4403 


1 r i i 

1544 


0490 


A 


.WORD 


04 90 


?DIV 


A A n A 

4404 


1545 


0F44 


A 


.WORD 


IC14, DI , V 






1546 


^449 












1 C A *7 

1547 


5620 


A 








A a ntc 

4405 


1 54 8 


04 A0 


A 


.WORD 


04 AP) 


; DADD 


A A fX C 


1549 


S F4 4 


A 


.WORD 


TOT Jl ' f> T» ' ' 






154A 


4441 


A 










l r in 

154B 


4444 


A 








A a fun 
4407 


l c A r* 

154C 


04B0 


A 


.WORD 


04B0 


;DSUB 


A a no 


154D 


0F44 


A 


. WORD 


IC14, DS , UB 






154E 


4453 


A 










154F 


5542 


A 








A A n f\ 

4409 


i r r n 


04C0 


A 


.WORD 


04C0 


;LD3 


A A l rn 

4410 


1551 


0F46 


A 


.WORD 


IC15, LD , B 






1552 


4C44 


A 










i c e o 

1553 


4 220 


A 








A A 1 1 

4411 


1 PC J 

1554 


04D0 


A 


.WORD 


04D0 


;STB 


t j. 


i jj j 


PI F4 £ 


A 


. WUKU 


rri c * cn ' ' n ' 
lv_15f bl , d 






1556 


5354 


A 










1557 


4220 


A 








4413 


1558 


04C0 


A 


.WORD 


04C0 


; LLB 


4414 


1559 


0F46 


A 


.WORD 


IC15,'LL','B' 






155A 


4C4C 


A 










155B 


4220 


A 








4415 


155C 


04D0 


A 


.WORD 


04D0 


; SLB 


4416 


155D 


0F46 


A 


.WORD 


IC15, 'SL', 'B' 





IMPASMSK 





1 5 5F 
















1 55F 


4220 












ft X / 


1 eitn 

i JUW 


w *4 v** u 


A 




.WORD 


04C0 




AATQ 
*tt XO 


1 CC1 

X J 1 1 


• r ** ~ 


A 




• WORD 


IC16 . 


LP g 




155 9 


4P59 


a 














*I Z Z V J 


a 










AA1Q 
ft X" 


1554 


fl 4nd 

u •* U jJ 


A 




.WORD 


pi 4 npi 




A A 9 0 


1 JO J 


PIF4Q 






.WORD 


in 5 

X V* X O f 






1555 

x j o n 


5 "3 5 9 


a 












1557 

X J D / 


4 99C1 
** Z Z *y 


a 










4 4 91 

H *I £. X 


1 55 8 


PI 7 R PI 

v J 0 19 


a 




wopn 








1 55Q 


if r j v 


a 




WORn 


TCI 7 

X V. X / f 


\7<?' 'RT' 




155A 

X J\>fy 


4 A5 - } 


a 












1 5fiR 


5949 

J Z H ~ 


a 










Ad 9"* 


1 55P 

X J T) V. 






Ui X DLlZ . 








** t Z *s 


i 56r 

X U V- 






t 


END IF 


IMP 16 


ASSEMBLER 


4425 


156C 






* 








4426 


156C 








.IF 


SIZEfl 




4427 


156C 


1699 


A 


PTRTAB: 


.=.+301 






4428 


1699 






PTREND: 








4429 


1699 








BAD SECTOR TABLE 


4430 


1699 


16C1 


A 


BADSTB: 


.=.+40 






4431 


16C1 






STBAS : 








4432 


16C1 


072C 


A 




.END 


START 





POINTERS GENERATED 



niiAA 

MB m A 


msec 

DO 


A 


n n q d 


1 Ck I? A 


A 


009C 


11F8 


A 


009D 


1324 


A 


009E 


123E 


A 


00 9 F 


0BEC 


A 


00A0 


156C 


A 


00A1 


1698 


A 


00A2 


10D2 


A 


00A3 


0967 


A 


00A4 


134F 


A 


00A5 


10E3 


A 


00A6 


06F0 


A 


00A7 


0935 


A 


00A^ 


0936 


A 


00A9 


1285 


A 


00AA 


13B7 


A 


00AB 


1065 


A 


00AC 


110A 


A 


00AD 


1114 


A 


00AE 


108B 


A 


00AF 


11BB 


A 


00B0 


0C82 


A 


00B1 


0B0C 


A 


00B2 


0B28 


A 


00B3 


1306 


A 


00B4 


0B47 


A 


00B5 


0C90 


A 


30B6 


0D3B 


A 


00B7 


0CDE 


A 


00B8 


102F 


A 


00B9 


0B5D 


A 


00BA 


07D1 


A 


003B 


07C9 


A 


00BC 


12A2 


A 


00BD 


0A58 


A 
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IMPASM8K 



00BE 1093 A 
00BF 0979 A 
00C0 092F A 
00C1 0937 A 
00C2 0D90 A 
00C3 07A2 A 
00C4 07D3 A 
00C5 0943 A 
00C6 0D92 A 
30C7 0983 A 
00C8 12E6 A 
00C9 071C A 
00CA 071B A 
00CB 12BB A 
00CC 0D8E A 
00CD 10E4 A 
00CE 1313 A 
00CF 099B A 
00D0 10EB A 
00D1 0994 A 
00D2 10A5 A 
00D3 076A A 
00D4 10B5 A 
00D5 1012 A 
00D6 109D A 
00D7 07CE A 
00D8 0C71 A 
00D9 07C6 A 
00DA 1041 A 
00DB 1043 A 
00DC 0C6F A 
00DD 0D52 A 
00DE 0D7C A 
00DF 10F6 A 
00E0 1032 A 
00E1 0719 A 
00E2 071D A 
00E3 071E A 
00E4 071F A 
00E5 07E0 A 
00E6 130D A 
00E7 07C7 A 
00E8 1310 A 
00E9 124E A 
00EA 0D7F A 
00EB 07CA A 
00EC 124B A 
00ED 0E53 A 
90EE 10BA A 
^0EF 10B7 A 
00F0 10B9 A 
00F1 103B A 
00F2 0F7F A 
00F3 0F92 A 
00F4 0F91 A 
00F5 07CC A 
00Ff> 1039 A 
00F7 07CB A 
00F« 0F84 A 
00F9 1037 A 
90 FA 3F88 A 
00FB 103D A 
30FC 103F A 
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00FD 1015 A 
00FE 0F33 A 
00FF 11«E A 



0 ERRORS IN ASSEMBLY 



$1& 

09B1 


A 


$K 
0A42 


A 


$1) 

0A66 


A 


$1* 
0AA9 


A 


$1+ 
0AF0 


A 


$lr 
0B41 


A 


$1- 

0B6A 


A 


SI. 

0C23 


A 


$1/ 
0C89 


A 


$10 
"CE8 


A 


$10$ 
085B 


A 


$10' 
09F2 


A 


$10) 
0A94 


A 


$10, 
0B3E 


A 


$10/ 
0CD8 


A 


$100 

0D27 


A 


$100. 
0C20 


A 


$10M 
0E55 


! 

A 


$1009 
1129 A 


$102 
0D7B 


A 


$1029 
1116 


i 

A 


$1035 
111F 


1 

A 


$1049 
1148 A 


$106 
100D 


A 


$10; 
HDD 


A 


$10? 

1380 


A 


$10Aj 
11F3 


A 


$103; 
11DF 


A 


$11$ 
0829 


A 


$11 ' 

09EF 


A 


$11) 
0A91 


A 


$11- 

0BB8 


A 


$11/ 
0CD9 


A 


$1115 
0F30 A 


$112 
0D8A 


A 


$115 
0EC2 


A 


$11? 
1386 


A 


$11A$ 
3843 


A 


$11B$ 
0831 A 


$11B; 
1216 


A 


$11C; 
11EB 


A 


$12 
0D79 


A 


$12$ 
0819 


A 


$12' 
09FC 


A 


$12) 
0A8C 


A 


$12- 
0BB9 


A 


$12/ 
0CDB 


A 


$122 
0D88 


A 


$125 
0EC5 


A 


$12 ; 
11FB 


A 


$12A; 
1203 


A 


$12B; 
11FF 


A 


$13 
0E16 


A 


$13$ 
0857 


A 


$13' 
0A0E 


A 


$13- 
0BA3 


A 


$14- 

0 BA"I 


A 


$15- 
0B95 


A 


$17 
1054 


A 


$18 
1072 


A 


$194 
0E79 


A 


SI: 
1191 


A 


$1? 
123F 


A 


$1 = 
130C 


A 


$1> 
1332 


A 


$1? 
1358 


A 


$1@ 
13CF 


A 


$1A 
13FF 


A 


*1A) 
0A6C 


A 


S1A- 
0B74 


A 


$2" 
0750 


A 


$2' 
0A18 


A 


$2) 
0A72 


A 


$2* 
0A9E 


A 


$2+ 
0AF8 


A 


$2, 
0B53 


A 


$2. 

0C25 


A 


$2/ 
0C90 


A 


$20 
0D09 


A 


$20 ' 
0A39 


A 


$20, 
0B15 


A 


$20- 
0BCA 


A 


$200 c 
1146 


1 

A 


$204 
0E6F 


A 


$21 
0D3E 


A 


$214 
0E71 


A 


$21^ 
0ECD 


A 


$21< 
12AC 


A 


$22 
0D59 


A 


$224 
PIE80 


A 


$22< 
12A6 


A 


$23 
0E2A 


A 


$234 
0E83 


A 


$26 
0FB9 


A 


$27 
104B 


A 


$2: 
11B6 


A 


$2; 
1250 


A 


$2= 
130F 


A 


$2? 
1359 


A 


$2@ 
13E4 


A 


$2A' 
0A21 


A 


$2A0 
0D0E 


A 


$2A2 
0D57 


A 


$2 A3 
0E2E 


A 


$2B1 
0D45 


A 


$283 
0E33 


A 


$3" 

0760 


A 


$3' 
0A23 


A 


$3) 
PIA71 


A 


$3* 

0AA0 


A 


$3 + 
0AFD 


A 


$3, 
0B55 


A 


$3. 

0C26 


A 


$3/ 
0C93 


A 


$30 
0CEC 


A 


$30- 
0BEA 


A 


$30. 
0C18 


A 


$3003 
0DAA 


A 


$30< 
12DC 


A 


$31 
0D49 


A 


$31< 
12DE 


A 


$32 
0D68 


A 


$33 
0E52 


A 


$33< 
12C5 


A 


$36 
flFBD 


A 


$37 
105D 


A 


$38 

1080 


A 


$3 : 
119F 


A 


$3; 
1253 


A 


$3? 
1352 


A 


$3@ 
13BB 


A 


$3A3 
0DBA 


A 


$4' 
0A00 


A 


$4) 
0A74 


A 


$4* 

0AA5 


A 


$4+ 
0AF9 


A 


$4. 

0C2D 


A 


$4/ 
0CAD 


A 


$40 
0CF0 


A 


$41 
0D4A 


A 


$415 
0ED2 


A 


$42 
0D64 


A 


$43 
0E4C 


A 


$47 
1030 


A 


$4: 
11A9 


A 


$4? 
136C 


A 


$4A/ 
0CB6 


A 


$4B/ 
0CB2 


A 


$5' 
0A0A 


A 


$5) 
0A7E 


A 


$5 + 
0B02 


A 


$5, 
0B3F 


A 


$50% 
08BC 


A 


$506 
101A 


A 


$50; 
UCC 


A 


$51% 
089B 


A 


$516 
101E 


A 


$51; 
1271 


A 


$52 
0D5B 


A 


$526 
1026 


A 


$52; 
1272 


A 


$53 
0DC3 


A 


$57 
1033 


A 


$5: 
119B 


A 


$5? 
1366 


A 


$5A$ 
07FD 


A 


$6) 
0A83 


A 


$6, 
0B57 


A 


$60 
0D05 


A 


$60; 
11C4 


A 


$60 = 
131F 


A 


$61; 
11C1 


A 


$61 = 
131C 


A 


$62 
0D6D 


A 


$63 
PIDDC 


A 


$6: 
HAD 


A 


$7$ 
085E 


A 


$7, 
0B1R 


A 


$70 
1D07 


A 


$7? 
9D5F 


A 


$73 
0E3C 


A 


$7: 

11A2 


A 


$7A$ 
0860 


A 


$8$ 
0855 


A 


$80 
0D1F 


A 


$805 
«F07 


A 


$82 
0H7 4 


A 


$8: 
1198 


A 


$9$ 
0°1F 


A 


$90 
"1D0F 


A 
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$915 $92 
0F0F A 0D72 A 

$APPE0 $BBIT' 
0CF3 A 0A3C A 

$CBZ3 $CI6 
0DEB A 102E A 

$DL/ $DOT$ 
0C3B A 07EC A 

$END2 $END4 
0D8D A 0EB2 A 

$EX0- $EXPN- 
0BDB A 0BD1 A 

$FIN1% $FIN2% 
0929 A 0900 A 

$GAN/ $GC; 
0CD0 A 11FD A 

$GR/ SGR14 
0CCB A 0E8A A 

$I0 T Q6 SIOK26 
1003 A 0FF9 A 

$ LONG 3 SLOOP' 
0E28 A 09EB A 

$LST14 $LST24 
0EB0 A 0EB1 A 

$MIN1. $MINU- 
0C33 A 0B99 A 

$NLCL3 $NO% 
0E12 A 08D8 A 



0D37 A 0D38 A 

$0V& $PGBF* 
09B7 A 0AD3 A 

$PTRL+ SPUT1R 
0B0B A 10BF A 

$REND0 $RET1. 
0D29 A 0C13 A 

$SERC$ $SETB0 
07F4 A 0D2F A 

$TAB1; $TAB; 
1228 A 121F A 

$TR2@ $TRYI6 
13FA A 0FDD A 



$925 $ABS16 
0F12 A 0FB4 A 

$BKSP; SBLNK+ 
1237 A 0AFB A 

9CK, $COM- 
0B21 A 0BD0 A 

SDOT. $DT/ 
0C61 A 0CBA A 

$ENDB< $EP1% 
12E5 A 0896 A 

SEXPN7 $EXT6 
1044 A 100A A 

$FIN3% $FINI% 
0922 A 08F9 A 

$GDEC" $GL/ 
0762 A 0CC5 A 

$GR24 $GR4 
0E8F A 0E91 A 

SIOK36 SIOK46 
0FF5 A 0FFE A 

$ LOOP 3 SLOOP 4 
0DA4 A 0E68 A 

$M1% $M2% 
0908 A 0916 A 

$MINU. $MPS4 
0C32 A 0E6<? A 

SNOEXS SNOFR; 
09BA A 11CD A 

10A9 A 1031 A 

SPLUS- SPMRE- 
0B8C A 0BAD A 

SPUT28 SPUT38 
10C5 A 10C3 A 

$RET8 SRETC; 
10D1 A 1249 A 

$SORF/ $STR13 
0C81 A 0D98 A 

$TEMP8 $TEST. 
10B3 A 0BF3 A 

STSEC6 $TTL# 
0FDA A 07A1 A 



SABS6 SADR6 
0FA9 A 0F93 A 

SB0TM4 $BS0. 
0EAS A 0C6C A 

$CONV3 SCT3 
0DE4 A 0DF7 A 

$E1@ $EB% 
13F9 A 0930 A 

$EP2% SE0PG8 
0895 A 10FF A 

$F16$ $FB1$ 
0847 A 084E A 

$ FLAG 3 $ FLAG 7 
0DFB A 1064 A 

$GL1/ SGLBN3 
0CC6 A 0DF4 A 

$GS1/ SGS2/ 
0C7F A 0C72 A 

SIOK56 SIOK6 
0FEE A 0FE5 A 

SLOOW8 SLOW04 
10*7 A «EAC A 

SMAIN* $ MAN 18 
07C1 A 10DF A 

SMPY- $MPY1- 
0BBB A 0BBP A 

$NOT. SNOUN. 
0C30 A 0C1Q A 

301X38 $01X8 
10AF A 10A8 A 

$PRM; SPRMP@ 
11C7 A 13FB A 

$<?NXT0 90UOT, 
9D39 A 0C39 A 

$PM3 $ROV0 
0DF9 A 0D23 A 

$STRT3 SSYFE. 
■*D94 A 0C64 A 

$TMP" STMP$ 
<3767 A 0862 A 

$TTL% SUM. 
092F A 0C1C A 



SADR06 $AERR6 
0FBC A 0FDF A 

SBSEC6 $BSPR. 
100A A 0C12 A 

SCTAB? $DEC. 
1338 A 0C3D A 

SEERR- $EL% 
0B94 A 08C9 A 

SEQTT8 $ERET6 
1100 A 0FD6 A 

$FB2$ $FBIT$ 
0851 A 084B A 

SF03 $FPTR ' 
0DF8 A 0A3D A 

$GNAM? $ GOOD 4 
137B A 0EA0 A 

$HEX. $IBEN: 
0C08 A 11BA A 

SIOK66 SIPTR: 
1007 A 11B9 A 

SL0W14 SLOW24 
0EAD A 0EAE A 

SMASK7 $MERR6 
1063 A 0FE2 A 

$NAME. SNERRS 
0C51 A PI9C0 A 

SN0X5 $NP% 
0F77 A 094C A 

$0E% $0P- 
08E3 A 0BRB A 

SPROM; $PT3 
11F7 A <*DF6 A 

$REL- SREL5 
<*BDF A 0F7E A 

SRSER0 SRTB3 
0CE5 A 0DFA A 

$T0/ $T0> 
0CC3 A 133C A 

$TMP% STMP( 
08D7 A 0A62 A 

SUNOT. $UOP. 
0C17 A 0C1F A 



SAND- $APEN0 
0BC7 A 0CF3 A 

SBYP1* SCBS 
0ABE A 07C5 A 

SDEF6 $DIV- 
0FA0 A 0BC1 A 

$ELOK& SEND ' 
09C3 A 0A2B A 

$ERR. $ERRM@ 
0C69 A 13E7 A 

$FFFF' SFIN- 
0A3F A 0BD7 A 

SFRELS SFVAL$ 
0865 A 0864 A 

$GP/ SGP1/ 
1CBC A 0CBD A 

SIBL; $ IFLA6 
124D A 1010 A 

SLAST3 SLF ; 
0D96 A 123C A 

SLP6 SLST04 
0FC9 A 0EAF A 

$MERR> $MG3 
1340 A 0DFC A 

SNEXT? SNK2; 
0DF5 A 127D A 

SnXT- sNXT'4 
0B7 2 A 0EA4 A 

SOR- $0R< 
«BCC A 12AE A 

SPTR+ SPTR1+ 
«B09 A "IB0A A 

SREL9 $RELT« 
1092 A 1W A 

SRTS? ?SAME( 
1365 A 0A5F A 

ST1* ST1/ 
0AD2 A 0CC4 A 

S1MP9 STMP< 
114B A 12F0 A 

SVAL5 3VERR6 
0F7D A 0FD4 A 
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$W0RD2 $WRD8 SX. $X2031 $XARG$ $XERF- $XERR5 $XFLA6 $X0K6 SXR34 
0D8C A 1091 A 0C4C A 0866 A 07C4 A 0BAA A 0F8C A 1011 A 0FC3 A 0EB4 A 

ABST ACTR ARERR AMAX ASCII ASECT ASMDIR ASSIGN B1E01 BADSTB 
0021 B 0056 B 0F86 A 0059 B 0A89 A 0A41 A 0AD4 A 0B28 A 0004 A 1699 A 

BASE BASEA BASEB BCTR BEGP34 BLANK BLANKS BLDDIR BLDNAM BMAX 
0060 B 0063 B 0066 B 0057 B 08B2 A 0034 B 0048 B 0C90 A 0C82 A 005A B 

BSECT CAND CAT CDIV CHARX CKPNCH CLOSEO CLOSET CMINUS CMPY 
0A50 A 0053 B 0032 B 0035 B 0044 B 12BB A 001D B 001C B 0051 B 003C B 

CNAM0 CNAM1 CNOT COLAN COMMA COR CPLUS CR CZERO DBGVER 

0080 B 0081 B 0052 B 004B B 004F B 0054 B 0050 B 0047 B 0038 B 0001 A 

DBWIN DEM DIREND DISER DITBL2 DITBLB DITBLF DITBLL DIVD DOLLAR 
0F5F A 1347 A 07CE A 0D3B A 156C A 1406 A 0D51 A 0D50 A 000E B 004E B 

DOT DOTASN DSKERR DSKIN DSKOBJ DSKTMP EC ECHOGC ELIM ELSE 

004A B 0B47 A 1343 A 901F B 001E B 0020 B 0088 B 0014 B 0008 A 09BD A 

END ENDBUF ENDIF ENDPl ENDP2 ENDP3 ENDP4 ENDPCH ENDST EQUAL 
0867 A 0931 A 09CA A 0983 A 08A9 A 08DB A 092A A 12E2 A 07D1 A 004C B 

ERBUF ERDEB ERRBAS ERRLST ERRMSG ERROR ERRPT ERRST EXP EXP4 
13E8 A 0098 B 0055 B 008F B 114C A 13B7 A 008B B 07C9 A 0B5D A 1035 A 

EXP8 EXPABS EXPFRM EXPP EXPPl EXPP2 EXPP3 EXPP4 EXPP7 EXPPD 
1037 A 102F A 1043 A 1032 A 1039 A 103B A 103D A 103F A 1041 A 007B B 

EXPREL EXPVAL EXTD FORM FORMB FORMBN FORMM FORMPT FORMT FORMTN 
007C B 007A B 0A54 A 09D5 A 0075 B 0078 B 0077 B 0074 B 0076 B 0079 B 

FORMV FRMREL GADR GADRI GADRIX GADRX GCOMMA GCSTRG GETC GFORM 
0A3E A 0A40 A 0F8E A 0F8F A 0F92 A 0F91 A 1324 A 0D7C A 000F B 0C71 A 

GITEM GLBUF GLOBL GNC GNCVC GNSTRG GNVC GSIZE GSTCON GSYM 
0BEC A 0DFE A 0A63 A 124B A 124E A &D52 A 123E A 0753 A 0D7F A 9C6F A 

HEX20 HEX2A HEX2F HEX30 HEX37 HEX3° HEX3F HEX40 HEX400 HEX46 
0034 B 003C B 0035 B 0039 B 0039 B 0036 B 003B B 0032 B 003D B 1037 B 

HEX5A HEX5F HEX760 HEX7D HEX7E HEX7F HEXD0A HEXF HSPR HSPRT 
0033 B 123A A 0768 A 123B A 0EB3 A 003A B 10B4 A 0853 A 9096 B 101A B 

IC1 IC10 IC11 IC12 IC12A IC13 IC13A IC14 IC15 IC16 
0EB6 A 0F17 A 0F22 A 0F34 A 0F38 A 0F40 A 0F3E A 0F44 A 0F46 A 0F49 A 

IC16A IC17 IC2 IC3 IC4 IC5 IC5A IC6 IC7 IC7A 
0F4C A 0F50 A 0ECA A 0ED5 A 0ED1 A 0ED9 A 0EDB A 0EDE A 0EE3 A IEEE A 

ICS IC9 ICLASS IDSKIN IDSKTM IF IFBYP IFMODE IFPTR IFPTRA 

0EFB A 0F0A A 0073 B 0094 B 0095 B 09A3 A 1305 A 0070 B 006D B 006E B 

IFSKIP IFSTAT IFTAB IFTBL INABS INBUF INBUFB INBUFE I NDEV INERF 
1309 A 006F B 070F A 09D4 A 07CB A 06A0 A 0012 B 0013 B 0089 B 0F7F A 

INERR1 INITOR INOUT INPTR IREL ITREL ITVAL IVAL Kl Kll 
0F80 A 1285 A 07CC A 005E B 0F33 A 0087 B 0086 B 0072 B 0026 B 0025 B 

K15 K16 K2 K255 K256 K3 K4 K6 K639 K7 

002D B 0041 B 0040 B 0024 B 003F B 0027 B 002C 8 002« B 137A A 0?2A B 



82 



IMPASM8K 



K3 K9 

0029 B 002B 3 

LCNT2 LCNT2A 
008D B 123D A 

LOCCTR LOCREG 
005C B 006C B 

MESS MOFLAG 
001B B 006A B 

MSGTO MULT 
0983 A 000D B 

NEXTB NEXTLB 
0063 B 07E0 A 

02B 02CH 
10B7 A 10E4 A 

ODD OEPM 
0003 A 0937 A 

OMSG ONLMSG 
10EB A 10EA A 

P1P2 P2P1 
1310 A 13<*D A 

PNCHMD PR2PTR 
000C A 1109 A 

PTRTAB PUTC 
156C A 0010 B 

RDSKTM RDTTY 
0019 B 11F8 A 

SEMI SHIFT 
0049 B 12AF A 

STPDEF STPT 
0033 B 0085 B 

TOP TOPA 
0061 B 0064 B 

WORD3 WORD 4 
12F3 A 12F4 A 

X80<*0 X8004 

0030 B 1293 A 

XINOK Z 
0069 B 0001 A 



KM129 KM41 
1014 A 1234 A 

LCPTR LEAD 
005F B 12E6 A 

LPAREN MANYNL 
0046 B 10D2 A 

MSGBEG MSGEP 
0956 A 0974 A 

NAM0 NAM1 
007D B 007E B 

NEXTST NOCOM 
07D3 A 0092 B 

04B 06B 
10B6 A 10B5 A 

OGLOB OHEX 
0D8E A 10A5 A 

OOREC OOWORD 
12A2 A 1294 A 

PAGE PASS 
0A97 A 005D B 

PRCTRL PREPLB 
134F A 0B59 A 

QERROR QUOTE 
0F84 A 0045 B 

READ RELTB 
11BB A 1088 A 

SHLIN SIZE4 
004D B FFFF A 

STREL STSER 
0034 B OCDE A 

TOPB TSECT 
0067 B 0A52 A 

WORD 5 WORD 6 
12F5 A 12F6 A 

XARGCK XERR1 
1101 A 07C7 A 

ZERO 
0023 B 



KM57 KM65 
1235 A 1236 A 

LEAD3 LEZ 
12E9 A 000B A 

MAPDEB MAPDIP 
0099 B 1403 A 

MSGNOE MSGNXT 
099B A 0967 A 

NAM 2 NEW1 
007F B 0733 A 

NOLI ST NOMAP 
0091 B 0093 B 

OBJCK OBJMOD 
0936 A 0090 B 

OHEXIF OIBREP 
109D A 110A A 

OPGSTR OPTRS 
10F6 A 0943 A 

PASS1 PASS 2 
13FC A 13FE A 

PRMPT1 PRMPT2 
125C A 125A A 

R0 Rl 

0000 A 0001 A 

REPERR RESETP 
1114 A 0D90 A 

SIZE 0 SOUCK 

0001 A 0935 A 

STTOP STVAL 
1FFF A 0082 B 

TTLBUF TYPMOD 
0719 A 0097 B 

X1000 X2020 
003E B 0DF3 A 

XERROR XF000 
07C6 A 0C6E A 



LABEL LABST 
0B0C A *769 A 

LINIT LIST 
0015 B 0AC2 A 

MAPLIN MAPSOR 
0E05 A 0E53 A 

MSGOCK MSGP 
0994 A 0979 A 

NEWASM NEWLIN 
076A A 10E3 A 

NZ 012B 
0005 A 10CD A 

OBJPT1 OBJPT2 
1304 A 1305 A 

OIBUF OLAST 
118E A 08DA A 

OSPDEC OUTWRD 
1313 A 1065 A 

PASS4 PGRL 
1401 A 9071 B 

PROMPT PTABF 
1263 A 1012 A 

R2 R3 
0002 A 0003 A 

RPAREN S 
0043 B 8000 A 

SPACE SPADR 
0AAE A 1015 A 

TCTR TITLE 
0053 B 0AD8 A 

VERROR WDSKOB 
0F8A A 0017 B 

X2031 X4000 
092E A 0EB5 A 

XFF00 XFFF0 
0042 B 002E B 



LBLPT LCNT1 
PI03A B 003C B 

LISTMD LOCAL 
003E B 0A76 A 

MAXR1 MERROR 
0A53 A 0F88 A 

MSGSOV MSGTAB 
097B A 1151 A 

NEXT NEXTA 
0062 B 0065 B 

OIB OICH 
10B9 A 10BA A 

OBJPTR OBJREC 
1303 A 12F1 A 

OMAP OMAPNR 
0D92 A 0D97 A 

OVAL P 
10Q3 A 0002 A 

PGSTRG PINIT 
06F0 A 07A2 A 

PTABL PTREND 
1013 A 1699 A 

RDCRD RDSKIN 
0011 B 0018 B 

SCANST SECT 
P1DA3 A 005B B 

START STBAS 
072C A 16C1 A 

TLA ST TMAX 
08D9 A G05B B 

WDSKTM WORD 
0016 B 0A30 A 

X6666 X7FFF 
0031 B 0EAB A 

XFFF7 XFFFB 
002F B 0D3A A 



E9B0 F4BB 



"XT 
20 



PRGMP 



RFVISION-G 05/15/71* 

PROMP 003n8B 08/07/74 



1 0™0 .TITLE PROMP, '00308B 08/07/71*' 

2 oooo ; 

3 0000 ; CONDITIONAL CODFS FOR THE ROC INSTRUCTION 

4 oooo ; 

5 Onon nwi A ZRO = 1 

6 now onr>3 A OOP ■ 3 

7 0000 0001* A BIT1 = 4 

8 0000 0OO5 A NZRO = 5 

9 OOOn 00OB A NEG = 11 

10 oooo oooc A poa = 12 

1 1 OOQO ; 

1? OOOO ; EXPRESSIONS FOR CARD READER I/O 

13 onno ; 

14 u"uu uu n l A oiAiuS = x 

15 OnOO 0002 A STNDRD = 2 

16 OOOn 0010 A CRAODP = 2*8 



17 OOOO 






.PAGE 




18 


oooo 










10 


0°nn 






.TSECT 




2n 


0°0o 


02^0 T 




.=.+0250 


91 


095n 


8938 A START1: 






99 


09^1 


8D38 A 




1 n 


3,CPAD 


97 


09<i9 


our A 




Rl M 


GPCS 




0957 


4*01 A 




AISZ 


0,1 






2E47 A 




JSR 


^LINITA(2) 


25 


0^55 


2E45 A 




JSR 


flSTYPE(2) 


27 


0256 


OUDA T 




.WORD 


TPAK1 


2" 


0257 


86?n A 




LD 


1,N256(2) 


29 


0258 


A658 A 




ST 


l,LOW(2) 


30 


0259 


CA20 A 




AD n 


2,N256(2) 
l,l+LOW(2) 


3 1 


0'>5A 


A659 A 




ST 


V> 


0->5B 








3"* 


025B 


89 2D \ 


START: 


LD 


2, ADBASE 


"?4 


025C 


4CFF A 




L! 


0,-1 


35 


0250 


P620 A 




LD 


1,N256(2) 


36 


095E 


3E3C A 




LD 


3 / ADH|(2) 


77 


025F 


8A3B A 




LD 




38 


0260 


A200 A 




ST 


0,(2) 


^9 


0961 


A300 A 




ST 


0,(3) 


40 


0262 


4A01 A 




AIS 7 


2,1 


41 


0963 


4B01 A 




AISZ 


3,1 


49 


0264 


49 FF A 




AISZ 


1,-1 


43 


n265 


21FA A 




JMP 


.-5 


44 


0266 










4^ 


0966 


$922 A TSTOPT: 


LD 


2, ADBASE 


46 


0967 


2E45 A 




JSR 


0STYPE(2) 


47 


026 P 


05^ T 




.WORD 


TPAK6 


4* 


0269 


4D00 A 




LI 


1,0 

0SGETCO(2) 


40 


026A 


2E40 A 




JSR 


5n 


026R 


21FA A 




JMP 


TSTOPT 


«?1 


026C 


F216 A 




SKNE • 


0,CCR(2) 


5? 


026D 


2103 A 




JMP 


.+4 




026E 


5D08 A 




SHL 


M 


54 


026F 


3100 A 




RADD 


0,1 


55 


0270 


21F9 A 




JMP 


.-6 


55 


0271 


F62B A 




SKNE 


l,OM(2) 
^SPAPOM(2) 


57 


0272 


26 3D A 




JMP 



; CLEAR BUFFER MEMORY WITH - 1 



; GET OUTPUT OPTION 



1 



PROMP 



5fi 


0°73 


F67P 


A 


SKNF 


50 




210^ A 


JMP 


60 


007c 


F62C 


A 


SKNE 


ni 


0^76 




A 


JMP 


R? 


0*>77 


21EE A 


JMP 


63 


(T>7« 


A650 


A 


ST 


Rf* 


0?79 


2E*t5 


A $1: 


J«?R 


65 


n^7/i 


0«*F3 


T 


.WORD 


6F 


n?7P 


2EUP 


A $->: 


JSR 


67 


027C 


21FC 


A 


JMP 


^0 




C 21F. 




SKWE 




0°7F 


2in^ 


A 


JMP 


70 


C7F 


5DO." 


A 


SHL 


71 




3loo 


A 


RADD 


7° 


02°1 


21 F9 A 


JMP 


77 




FF^" 


A 


SKNF 






2107 A 


JMP 


7^ 


fl7PU 


F62° 


A 


SKNE 


7fi 




2ir« 


A 


JMP 


77 


0286 


F62A A 


SKNF 


7° 


0287 


2161 


A 


JMP 


7" 


OORO 


21F0 A 


JMP 




0280 


06^° 


T ADRASE: 


.WORP 


5 1 




076* A n»AD: 


.WORD 


8? 




0018 


A GPC<? 


= 




0?J*B 






.PAGE 




O'JOB 








8* 


oopp 


2EU5 


A SETCR: 


JOP 


8F 




05UE 


T 


.WOR n 


*7 


o?»o 


2EU5 


A 


JSR 


8<> 


02<*E 


0509 


T 


.WORn 


80 


028F 


2E42 


A CRIM: 


J^R 


on 


0200 


08B2 


T 


.WORn 


01 


C>91 


2E«H 


A 


JOR 


92 


0">92 


08 B 2 


T 


.WORD 


a?, 


0^03 


*>Et*«» 


A 


JSR 


Ol» 


0291* 


Ofoo 


T 


.WORn 


95 


nogs 


06*3 T 


.WORD 


OR 


0°QF 


nooc 


T 


.WORD 


07 


0007 


2EM 


A 


JSR 


00 


oooq 


0°P2 


T 


.WORD 


90 


CO* 


0667 


T 


.WORn 


TOO 


n?0A 0317 


T 


.WORD 


101 


noqp, 


21F3 


A 


JMP 




Q79C 








103 


029C 


8E38 


A LDDATA: 


LD 


inu 


020D 


2EM 


A 


JSR 


105 


020E 0225 


A 


SUP 


106 


020F 


A2UF 


A 


ST 


107 


02A0 


UB08 


ft 


AIS7 


10° 


02A1 


2EU1 


A 


JSR 


ion 


12A2 


6?*»1 


A 


AND 


lin 


02A3 


E21F A 


SKG 


IV 


0?AU 


2im 


A 


JMP 


11? 


02A5 


U801 A 


AISZ 


I 1 ? 


o?A6 C23B A 


ADD 




n?A7 A2UE 


A 


ST 


115 


02A8 


UBOR 


A 


AISZ 


116 


02A9 


2El*l 


A 


JSR 


H7 


02AA 


29'>D A 


JSR 


lis 


02AP 


7E4F A 


DSZ 



1,BC(2) 
.+!» 

1,PN(2) 
.+2 

TSTOPT 
1,M00E(2) 

flSTYPE(2) ; GET INPUT OPTION 

TPAK2 

*>SGETC0(2) 

$1 

0,CCR(2) 
.+U 

1,8 

0. 1 

$2 

1 / CR(2) 
SETCR 

1, PT(2) 
SETPT 
1,ME(2) 
MEM 

$1 

PBPAGE 
0760 
01 p 



'READ CARD RLM INTO BUFFERS' 

ASTYPE(2) 

TPAK9 

flSTYPF(2) 

TPAK*» 

GSRDCRD(2) 

BUF1 

0SCFT0A(2) 
BUF1 

?SIFFQ(2) 

BUF1 

A0C8 

LDDATA 

^SIFR}(2) 

BUF1 

ASCC 

STOPT 

CRIN 

3 / ADBUFl(2) 

0SAHEBC2) 

0 / N800l»(2) 

0,LENGTH(2) 

3,8 

^SAHP(2) 

0 / NlFF(2) 

0 / NFF(2) 

.+2 

0,1 

0,ADL0(2) 
0,ADDR(2) 
3,8 

(aSAHER(2) 

STDATA 

LENGTHC2) 



2 



PROMP 



310 


n?AC 21FC a 


JMP 


.-3 


120 


02AD 21F1 A 


JMP 


CRIN 


121 


02AE 


.PAGE 


'READ PAPER 


122 


02AE 






125 


02AE 2E45 A SFTPT: 


JSR 


ASTYPE(2) 


121* 


02 AF 0511 T 


.WORD 


TPAK5 


125 


02B0 2E4B A PTIN: 


jsr 


@GETC(2) 


12R 


02B1 F215 A 


SKNE 


0,N2(2) 


127 


02B2 2101 A 


JMP 


.♦2 


12? 


0?B3 21FC A 


JMP 


.-3 


120 


02B4 2E4B A 


JSR 


@GETC(2) 


150 


02B5 F21E A 


SKNE 


0,NC0(2) 


131 


02B6 21^ A 


JMP 


SETOFF 


152 


02B7 F21D A 


SKNE 


0,N80(2) 


355 


02B8 2101 A 


JMP 


s +2 


154 


02B9 21F6 A 


JMP 


PTIN 


135 


02BA 2E4B A 


JSR 


@GETC(2) 


136 


02BB 48FC A 


AISZ 


0,-4 


137 


02BC A24F A 


ST 


0,LENGTH(2) 


158 


02BD 4D05 A 


LI 


1,5 


139 


02BE 2E4B A 


JSR 


<aGETC(2) 


140 


OW 40 FF A 


AISZ 


1,-1 


141 


0?C0 21F^ A 


JMP 


.-2 


Ik? 


0T1 51 «1 A 


RCPY 


0,1 


m 


02C2 2E4B A 


JSR 


0GETC(2) 


ikk 


n*>C3 500* A 


SHL 


1,* 


ik* 


02C4 3100 A 


RADD 


0,1 




09C5 6621 A 


AND 


1 / N1FF(2) 


lk7 


02C6 F61F A 


SKG 


1,NFF(2) 


14* 


0^C7 2101 A 


JMP 


.*2 


149 


02C8 4001 A 


AISZ 


1,1 


ISO 


02C9 C63B A 


ADO 


1 / ADL0(2) 


151 


02CA A64E A 


ST 


1,A0DR(2) 


15? 


02CB 4D04 A 


LI 




155 


02CC 2E4B A 


JSR 


PGETC(2) 


154 


02CD 49 FF A 


AISZ 




155 


02CE 21FD A 


JMP 


.-2 


156 


n2CF 






157 


02CF 2E4B A LP1: 


JSR 


PGETCC2) 


15* 


02D0 51«1 A 


RCPV 


0,1 


159 


02D1 2E4B A 


JSR 


flGETC(2) 


160 02D2 5D0S A 


SHL 


1,8 


161 


0?D3 3400 A 


RADD 


1,0 


162 


02D4 2903 A 


JSR 


STDATA 


163 


02D5 7E4F A 


DSZ 


LENGTH(2) 


16d 


02D6 21F3 A 


JMP 


LP1 


165 


02D7 21D8 A 


JMP 


PTIN 


166 


02D8 






167 


02D8 B24E A STDATA: 


ST 


0,!3ADDR(2) 


168 


02D9 7A4E A 


ISZ 


ADDR(2) 


160 


02DA 823C A 


LD 


0 / ADHI(2) 


170 


02DB 7A4E A 


ISZ 


ADDR(2) 


171 


02DC F24E A 


SKNE 


0,ADDR(2) 


172 


02HD 02O0 A 


RTS 


17* 


0?DE 7E4E A 


DSZ 


ADDR(2) 


17k 


0?DF 823* A 


LD 


0,ADBMF1(2) 


175 


0?E0 F24E A 


SKNE 


0,ADDR(2) 


176 


02E1 2101 A 


JMP 


.+2 


177 


02E2 02*0 A 


RTS 




17* 


02E3 823B A 


LD 


0,ADLO(2) 


179 


02E4 A24E A 


ST 


0,ADDR(2) 



; TEST FOR START OF TEXT 

; TEST FOR END RECORD 
; TEST FOR DATA RECORD 



3 



PROMP 



l* n O n E5 0200 A RTS 
m i*>E6 ; 

18? 02E6 2E45 A SFTOF r : JSR flSTYPE(2) 

183 02E7 052F T .WORT) TPAK7 

184 07F8 21 °E A JMP <TOPT 



1()P 

185 


tPE9 








• PARE 


1 DC 

IPo 


U/ry 






* 




TOT 


no Cfl 

07 ny 




A MEM: 


JSR 


188 


02EA 


04Fn 


T 




.worp 


i on 

I"" 


A** CD 




A 




JSR 


190 


02 EC 


OFT 1. A 

ZE40 


A 


LP2: 


JSR 


191 


02ED 


21FB 


A 




JMP 


192 


02EE 


F21A 


A 




5KNF 


193 


02EF 


2102 


A 




JMP 


194 


O2F0 


2918 


A 




JSR 


195 


02F1 


21FA 


A 




JMP 


195 


02F2 


or? a 

8E3A 


A 




LO 


197 


02F3 


2E41 


A 




JSR 


198 


02F4 


A252 


A 




ST 


199 


02F5 


29 IB 


A 




JSR 


1 AA 

200 


nope 

0?F6 


2E40 


A LP,: 


JSR 


201 


02F7 


21F1 


A 




JMP 




02F8 


F216 


A 




SKNE 


203 


02F9 


210° 


A 




JMP 


/ r m 


uzrA 


OA AC" 

13UE 


A 




ion 

JSR 


205 


0?FB 


21FA 


A 




JMP 


206 


0?FC 


8E3A 


A 




LD 


207 


02FD 


2E41 


A 




JSR 


208 


02FE 


A253 


A 




ST 


209 


OFF 


82^B 


A 




LD 


210 


0300 


A24. 


A 




ST 


217 


0301 


8E52 


A 




LD 


212 


0302 


8300 


A 




LD 


213 


0303 


29D4 


A 




JSR 


214 


0304 


FE5 1 ? 


A 




SKNF 


215 


0305 


2111 


A 




JMP 


216 


0306 


4B"1 


A 




AISZ 


'17 


0307 


2 IF A 


A 




JMP 


?18 


0308 


21F9 


A 




JMP 



'MOVE MEMORY INPUT INTO BUFFERS' 

flSTYPE(2) 

TPAK3 

ZROLMT 

QSGETCQ(2) 

MEM 

0,COL(2) 
.+3 

STOLMT 
LP2 

3,ADLMT(2) 

(3SAHEB(2) 

0 / SLO(2) 

ZROLMT 

<3SGFTCO<2) 

MEM 

0,CCR(2) 
.+3 

STOLMT 
LPI* 

3,.DLMT(2) 

3SAHEB(2) 

0,SHI(2) 

0,ADLO(2) 

0 / ADDR(2) 

3,SLO(2) 

0,(3) 

STDATA 

3 / SHI(2) 

<?T0PT 

3,1 

.-5 

.-6 





0300 






.PAGE 




220 


0309 










221 


0309 


8F55 


A STOLMT: 


LD 


3,1+LMT(2) 


222 


O30A 


AE54 


A 


ST 


3,LMT(2) 


223 


030B 


8E56 


A 


LD 


3 / 2+LMT(2) 


??4 


n 30C 


AE5S 


A 


ST 


3,1+LMT(2) 


225 


O?0D 


8E57 


A 


LD 


3,3+LMT(2) 


226 


030E 


AE56 


A 


ST 


3,2+LMT(2) 


o 27 


030F 


A257 


A 


ST 


0,3+LMT(2) 


22? 


0310 


o->oo 


A 


RTS 


?2° 


0311 










2^0 


0311 


4D00 


A ZROLMT: 


LI 


1,0 

1,LMT(2) 


231 


031? 


A654 


A 


ST 


232 


0313 


A655 


A 


ST 


1,1+LMT(2) 


233 


0314 


A656 


A 


ST 


1,2+LMT(2) 


234 


031=: 


A657 


A 


ST 


1,3+LMT(2) 


235 


0316 


n^oo 


A 


RTS 





2^6 0317 .PAGE 'GET OUTPUT OPTIONS' 



4 



PROMP 



237 


0317 








238 


0317 


2E**5 A STOPT: 


JSR 


0STYPE(2) 


239 


031° 


055B T 


.WORn 


TPAK10 


*>£*0 0319 


2E**5 A 


JSR 


ASTYPEC2) 


2!*1 H31A 056U T 


.WORO 


TPAK11 


2h7 


031B 


2EU5 A 


JSR 


QSTYPEC2) 


2**3 


n-^lC 


0579 T 


.WORH 


TPAK15 


7hk 


o^lD 


2E«*5 A 


JSR 


@STYPE(2) 


21*5 


031E 


056C T 


.WORD 


TPAK12 


2kS 


031F 


2EI*5 A 


JSR 


(aSTYPE(2) 


2h7 


0320 


0573 T 


.WORD 


TPAK13 


?W 


0321 


2EU5 A 


JSR 


flSTYPE(2) 


2W 


0322 


0%l* T 


.WORD 


TPAK11 


250 


0323 


2EI*5 A 


JSR 


@STYPE(2) 


251 


032** 


05 7C T 


.WORD 


TPAK16 


252 


0325 


2Fl*5 A 


JSR 


(3STYPF(2) 


253 


n^6 


056C T 


.WORD 


TPAK12 


25k 


0327 2EU5 A 


JSR 


(3STYPEC2) 


255 


0^8 


0576 T 


.WORD 


TPAK14 


2^6 


0320 


2EI*5 A 


J<?R 


@STYPF(2) 


257 


03?A 


052A T 


.WORD 


TPAK6A 


25° 


032B 


t*DOO A 


LI 




250 


032C 


A651 A 


ST 


1,0PTI0N(2) 
l / SM0nE(2) 


260 032D A635 A 


ST 


2F1 


032E 


4636 A 


ST 


1,LTSH(2) 
flSGETCOU) 


262 


032F 


2El*0 A LP5: 


JSR 


26^ 


0330 


21E6 A 


JMP 


STOPT 


2Ri* 


0331 


F216 A 


SKNE 


0,CCR(2) 


2*5 


0332 


2108 A 


JMP 


BYTOPT 




0333 


F205 A 


SKNE 


0,TWO(2) 


267 033** 21FA A 


JMP 


LP5 




0335 


F207 A 


SKNE 


0,FOUR(2) 


269 


0335 


2101 A 


JMP 


.+2 


270 


0337 


21DF A 


JMP 


STOPT 


271 


033R 


I»CFF A 


LI 


Q.-1 


272 


0339 


A235 A 


ST 


0 / SMODE(2) 


273 


033A 


21FI* A 


JMP 


LP5 


27U 


033B 


2E**5 A BYTOFT: 


JSR 


^STYPE(2) 


275 


033C 


057F T 


.WORD 


TPAK17 


275 


033D 


2E**0 A LP6: 


JSR 


3SGETC0(2) 


277 


033E 


21D8 A 


JMP 


STOPT 


278 


033F 


F216 A 


SKNE 


0,CCR(2) 


279 


03**O 


213B A 


JMP 


PUTSEL 


28n 


^hl 


8635 A TMODE: 


LD 


1,SM00F(2) 


281 


03** 2 


l*90H A 


AISZ 


1,0 


282 


03U3 


210E A 


JMP 


M512 


28"* 


031*!* 


3181 A M256: 


RCPv 


0,1 


281* 


031*5 


5D08 A 


SHL 


1,8 


2*5 


03**6 


2i£*0 A 


JSR 


0SGETCOC2) 


286 


031*7 


21CF A 


JMP 


STOPT 


287 


031*8 


3100 A 


RADD 


0. 1 

1, LL(2) 


">88 


0^**9 


F631 A 


SKNE 


289 


031*. 


210C A 


JMP 


SETLL 


200 


03t*B 


F632 A 


SKNE 


1, LR(2) 


291 


03«*C 


210C A 


JMP 


SETLR 


292 


03I*D F633 A 


SKNE 


1,HL(2) 


2Q3 


03l*F 


210C A 


JMP 


SETHL 


29** 


03«*F F63I* A 


SKNE 


1,HR(2) 


?95 


03*0 


2inc A 


JMP 


SETHR 


?06 


*351 


21E9 A 


JMP 


BYTOPT 


207 


0352 


F22F A M512: 


SKNE 


0,ASCL(2) 


20 9 


0^53 


210D A 


JMP 


SETL 


290 


035U 


F23<i A 


SKNE 


0,ASCR(2) 



5 



PROMP 



300 


n 355 


210D 


A 




IMF) 

JMP 


301 


0356 


^lFU 


A 




JMP 


302 


1357 










30^ 


0357 


4C07 


A SETLL: 


LI 


304 


0358 


21^5 


A 




JMP 


305 


0359 


f»C70 


A SETI.R: 


LI 


30R 


035A 


210^ 


A 




JMP 


307 


0^5B 


P793 


A SETHL: 


LD 


■^np 


0^5C 


2101 


A 




JMP 


^09 


03 5D 


82?5 


A SFTHR: 


LD 


^in 


035E 


6A51 


A 




OR 


311 


035F 


A251 


A 




ST 


31? 


0^60 


2 IDC 


A 




JMP 


3H 


O^Rl 






• 




314 


0361 


»103 


A 


SETL: 


LD 


^15 


0362 


2101 


A 




JMP 


316 


0363 


810? 


A SETH: 


LD 


317 0364 


21F9 


A 




JMP 


31? 


0365 


0707 


A H07O7: 


.WORD 


V* 




7^7° 


A H7070: 


.WORD 


3^0 


0367 








.PAGE 


321 


0367 










3<>'> 


0^67 


0007 


A HMFS: 


.WORD 


3*3 


0368 


OOAO 


A 




.WORD 




0^9 


OOAO 


A 








O^RA 


OOFO 


A 








03RB 


OOAO 


A 








036C 


OOAO 


A 








036D 


0000 


A 






324 


036E 


00O7 


A 


LMES: 


.WORD 


325 


o^RF 


00*0 


A 




.WORD 




0370 


00?n 


A 








0371 


OOPO 


A 








037? 


Oo<?n 


A 








0^73 


OOEO 


A 








"37** 


0"0n 


A 






32R 


0375 


00O7 


A RMES: 


.WORD 


327 


0376 


OOEO 


A 




.WORD 




0377 


OOAO 


A 








037* 


OOEO 


A 








0379 


OOCO 


A 








037A 


OOAO 


A 








03 7B 


000" 


A 






32*? 


037C 








.PAGE 


"529 


037C 










330 


03 7C 


2E45 


A 


RlTSFL: 


JSR 


331 


03 7D 


0539 


T 




.WORD 


^32 


037E 


8251 


A 




LD 


333 


037F 


1517 


A 




BOC 


3^4 


0380 


8E3B 


A 




LD 


33S 


03*1 


2101 


A 




JMP 


33R 


0382 


8E3C 


A 


L00P1: 


LD 


337 


0383 


8620 


A 




LD 


TS» 


0384 


4C01 


A 


L0OP2: 


LI 


3^9 


0385 


C300 


A 




ADD 


340 


0386 


4B01 


A 




AIS7 


^41 


0387 


1505 


A 




BOC 


^9 


03*R 


49FF 


A 




AISZ 


34^ 


9^«9 


21FA 


A 




JMP 



SETH 

BYTOPT 

0,X'07 
.+6 

0,X'70 
.+4 

0,NEOO(2) 
.+2 

0,N8004(2) 
0,OPTION(2) 
0,OPTION(2) 
LP6 

0,H0707 
.+2 

0,H7070 
SETHR+1 
0707 
07070 



•TAPE MESSAGES 1 
7 

X'AO^X'AO^X'EO^X'AO^X'AO^X'OO 



7 

x'so^'so^'so^so^'fo^'oo 



7 

X'EO^X'AO.X'EO^^O^X'AO^X'OO 



•OlTPirT BC PROM TAPE ROUTINE' 

fiSTYPE(2) 
TPAK8 

0. 0PTION(2) 
NZRO,WAIT 
3,ADLO(2) 
.+2 

3,ADHI(2) 

1, N256(2) 

0,1 

0, (3) 
3,1 

NZR0,.+6 

1, -1 

L00P2 



6 



3kh <v^a FE38 A 
3U5 038B 21"B A 
31*6 03*C 21F5 A 
3«t7 03SD EE3C A 
3U8 033E 2105 A 
3^9 f>W 86 IF A 
*50 030" 5D08 A 

351 0391 C651 * 
*52 039^ A65! A 
353 0393 2103 A 
351* 039U 861F A 

355 0395 A651 A 

356 0396 21EB A 

357 0397 2E4B A ''AIT: 
35* 0398 ; 

359 0398 S6S0 A TE^T: 

360 0*9Q F62C * 
3G1 039A 260" A 

352 039B 8651 A OUTPR: 
36* 039C 6617 A 

36h 039D E61U A 
365 030 E 2109 A 
36* 03QF 8E3B A 
367 O3A0 2E4D A 
36? n^Al 2 n 3^ A 
3*9 03A2 036 E T 
3™ 03A3 0*6E T 
371 oibk %R0 T 
*7? 03A5 OFF^ A 
*73 H3A6 BE3B A 
371* 03A7 ?FUD A 

375 03A8 

376 8651 A CR1: 

377 03A9 5DFC A 
37? 03AA A651 A 
379 n^AB 6617 A 
3*n 03AC E61U A 
3°1 13AD 2105 A 
W> 03AE 292* A 

03AF 03*E T 
*8U O3B0 0*75 T 
385 03B1 06B0 T 
3R6 0382 OF c F A 
387 Q3B3 ; 
38P 03B3 "651 A CR2: 

389 03Bi| 5DFC A 

390 03B5 A65! A 

391 03B6 6R17 A 
39? 03B7 E61I* A 
*93 03B« ?10R A 
39f* 03B9 8635 A 

395 03BA A636 A 

396 03B* 8E3C A 
3^7 03BC 2EW A 
39 P 03BD 29 in A 
399 03BE 0367 T 
'+0n 03BP 03*E T 
Ml 03C0 07B1 T 
W» 03C1 OFFF A 
1*0* 03C2 «E3C A 
kOk ^*C3 2EkD A 
hO* HCk ; 
i*06 03CU 8651 A CR3: 



SKNE 3,ADBUF1(2) 

JMP WAIT 

JMP L00P1 

SKG 3,ADHI(2) 

JMP .+6 

LD 1 / NFF(2) 

SHL 1 8 

ADD 1^0PTI0N(2) 

ST l,OPTION(2) 

JMP WAIT 

LD 1,NFF(2) 

ST l,OPTION(2) 

JMP LOO PI 

JSR RGETC(2) 

LD 1,M0DE(2) 

SKNE 1,PN(2) 

JMP *SOUTPN(2) 

LD LOPTION(2) 

AND 1,NF(2) 

SKG 1,NU(2) 

JMP CR1 

LP 3,ADLO(2) 

JSR (3SROL8(2) 

JSR BCTP 

.WORn LMES 

.WORD LMES 

.WORD LO-1 

.WORD X'FFF 

LD 3 / ADLO(2) 

JSR 0SROL8(2) 

LD 1,0PTI0N(2} 

SHR l,t* 

ST l,OPTION(2) 

AND 1,NF(2) 

SKG 1,M(2) 

JMP CR2 

JSR BCTP 

.W0RH LME*s 

.WORD RMES 

.WORD LO-1 

.WORD X'FFF 

LD l / OPTION(2) 

SHR 1,1* 

S T LOPT|nM(2) 

AND 1,NF(2) 

SKG 1,M»(2) 

JMP CR3 

LD l,SMOHE(2) 

ST 1,LTSW(2) 

LD 3 / ADHI(2) 

JSR @SROL8(2) 

JSR BCTP 

.WORD WES 

.WORn LMES 

.WORD HIGH 

.WORn x'FFF 

LD 3 / ADHI(2) 

J^R @SROL8(2) 

ID l / OPTION(2) 



PROMP 









/\ 








Do X I 


A 

M 




ii no. 
4uy 


U / 


no 14 


A 








&V> 1 


A 




1,11 

41 < 




oo3 j 


A 

A 




li 1 o 

4l? 


LOLA 


A030 


A 




i»13 


03CB 


2906 


A 




1. 1 la 

4l'l 






T 




U15 


03cn 


037* 


T 




li 1 c 




mat 


T 




1,17 

417 




Urrr 






U1R 


0300 








U19 


03D0 


OPfiR 


A CRh: 


i»2o 


03D1 




A 

A 




^21 


03D2 










03D2 








»23 n 3H2 


Ii 7rtO 


A 


BCTP: 




03 £3 




A 




U2F 


03 D4 


t, om 


A 




U26 


03G5 




A 




U27 0TO6 


4DU/ 


A 




428 


03D7 




A 






03D8 




A 




i^n 


^3D9 




A 




U31 


03DA 


M3CC 

HDrr 


A 




43? 


03DB 


A CliC 
AL4r 


A 




1*3^ 


03dl 


QC/iU 

yc.4n 


A 






03B~> 


Q7nn 


A 




t*35 


03DE 


7Ali C 

/A4r 


A 




f*3P 


03DF 


FbZO 


A 




1*37 


03E0 




A 




438 


03E1 


priji. 

rfc,£4 


A 






03E2 


7 11C 


ft 




khO H3E3 


tlw/ 


A 




1^1 


03FU 


OTnn 

85" n 


A 




I+U2 


03E5 


Zh4A 


A 




4^ 


^F6 


|,nni 


A 




hkh 


03E7 


4Hr r 


A 




hk* 


03E8 


ni rn 

71r' 


\ 




khz 


03E9 


Ol CO 


A 




kk7 


03EA 








448 


03EA 




/s CR6: 




03EB 


ti oni 


A 






03EC 


oim 

ZJ" 


A 




1*51 


03ED 




A 






03EF 


Zl ! 'L 






U53 


03 EF 


4LUU 


/ 




1*54 


03F^ 


lf)T 7 


A 




hS5 


03F1 


293^ 


A 




k5B 


03F2 


4CFF 


A 




kS7 


03F3 


i, om 


A 




k5S 


03FI* 


Z1U7 


A 




k5° 


"3F5 


8300 


A 


CBACK: 


4*0 


03F6 




A 




U61 


0^F7 




A 




l*G2 


0^F8 


soon 


A 




UP-3 


03F9 


C237 


A 




hSh 


03FA 


A237 


A 




U65 


03FB 


km 


A 


CR6A: 


UFH 


03FC 


49FF 


A 




467 03FO 


21F7 


A 





SHR 1,4 

AND 1,NF(2) 

SKG 1,NI»(2) 

JMP cm 

LD ^SM0DE(2) 

ST 1 / LTSW(2) 

J^R BCTP 

.WORD WES 

.W0RP RMES 

.l^ORD HIGH 

.WORD X'FFF 

JSR ^GETC(2) 

JMP RASTART(2) 



.PAGE 'OUTRrT BC PROM TAPE ROUTINE' 

PULL 3 

LD 0, $«DE(2) 

AISZ 0,1 

JMP .+6 

AISZ 3,2 

LD 0,LTSW(2) 

BOC NZRO,..3 

JSR SU0N 

AIS7 3,-1 

ST 3,LENGTH(2) 

LD 3,PLENGTH(2) 

LD 1,(3) 

ISZ LENGTHC2) 

SKNE 1,N256(2) ; TEST FOR START BC 

JMP CR6 

SKNE 3,NFFF(2) ; TEST FOR END OF TEXT 

JMP CR7 

JMP .+3 

LD 0,(3) 

JSR ^PUTC(2) 

AISZ 3,1 

AISZ 1,-1 

JMP .-4 

JMP $1? 

LD 0,LTSW(2) 

AIS7 0,1 

JMP .+3 

AISZ 1,1 

JMP CR6A 

LI 0,0 

ST 0,CKSM(2) 

JSR S160N 

LI 0,-1 

AIS7 1,1 

JMP .+3 

LD 0,(3) 

CAI 0,0 

JSR faPUTC(2) 

CAI 0,0 

ADD 0,CKSM(2) 

ST 0,CKSM(2) 

AISZ 3,1 

AIS7 1,-1 

JMP CBACK 



; SEND LEADER 



; COMPLEMENT BEFORE OUTPUT 



; OUTPUT START OF TEXT 
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PROMP 



468 03FE 21DO A JMP 
4R q 03FF 

470 03FF 8235 A CR7: LD 

471 own 4801 A AIS7 
47? Wl 210^ A JMP 
U7^ f)W> 8?3R A LD 

474 Oh"t 4801 A AIS7 

475 0404 264F A JMP 

476 0405 4CFF A LI 

477 0406 2E4A A JSR 
47R 0407 2925 A JSR 

479 040* 8237 A LD 

480 0409 2909 A JSR 

481 040A 040E T CKMTRL: .=.+4 

482 040E 0000 A .WORD 

483 040F 2E45 A JSR 
Mti of,™ ni*0A T .WORD 

485 0411 2919 A JSR 

486 041? 264F A JMP 
4" 0413 ; 

488 0413 4700 A BINASC: PULL 

MQ n414 4D04 A LI 

400 0415 5804 A RL: ROL 

401 0416 A237 A ST 
4Q*> 0417 6217 A ANn 
49-S 0418 E2?E A SKG 

494 0419 2107 A JMP 

495 041A 4837 A AIS7 

496 041B A30* A STTBL: ST 

497 041C 4B01 A AISZ 

498 041D 8237 A LD 
k«« 041E 49FF A AiS? 

500 041F 21F5 A JMP 

501 nt»20 2301 A JMP 
509 0421 

503 0421 4*30 A C09: AISZ 

504 042? 21F8 A JMP 

505 0423 . PAGF 



5*6 04*>3 ; 

507 04?3 

50R 04?3 ; 

5no Qi^nr ; 

530 1423 862" A R0L8: 
511 04?4 830n /\ 
51? 0425 580S a 
513 04?6 A300 A 
Slk 04?7 4P01 A 

515 Okn 49FF A 

516 04?9 21FA A 

517 042A 0200 A 
51* 042B ; 

519 04?B 

520 04?B ; 

521 04?B ; 

522 042B 290" A S160N: 

523 04'>C 290O A 

5?4 04 A64E H ^40N: 
525 04'>E 4D2* A 
5?R 04?F 4C00 A 
mm 2E4A A 
5?^ 0fi31 49FF A 



$12 

0,SMODE(2) 

0,1 

.♦4 

0,LTSWC2) 
0,1 

(aLENGTH(2) 
0,-1 
0PUTC(2) 
S40N 

0,CKSM(2) 
BINASC 

0 

@STYPE(2) 
CKMTBL 
S160N 
(3LENGTH(2) 

3 

0,4 

0,CKSM(2) 

0,NF(2) 

0,BIN9(2) 

C09 

0,037 

0,(3) 

3,1 

0, CKSM(2) 

1, -1 
RL 
1(3) 

0,030 
STTBL 



'ROTATION AND LEADER/TRAILER' 



THIS SUBROUTINE ROTATES A 256 WORDS 
ARRAY 8 BITS TO THE LEFT 

LD 1,N256(2) 
LD 0,(3) 
ROL 0,8 
ST 0,(3) 
AISZ 3,1 
AIS7 1,-1 
JMP .-5 
RTS 

THIS SUBROUTINE SENDS OUT NULLS 
FOR LEADER/TRAILER 

JSR .+1 

JSR .+1 

ST 1,ADDR(2) 

LI 1,40 

LI 0,0 

JSR 0PUTC(2) 

AIS7 1,-1 
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PROMP 







21FP 


A 




JMP 




Oh"*,"*, 


86UE 


A 




i n 


3 •! 




o?oo 


A 




pre 


3 > / 


' "t » 3 










5 J J 








/ 




3 3H 


U'f i 3 




A OUTPN: 


i n 


3 ?3 


i iff 


D ■ J 


A 

M 




AND 

Mill > 


^7R 

3 j™ 


rtk77 


FR1L 

com 


A 
M 






sty 


■ "tj i 


910Q 


A 
r* 




.BMP 






RF"5R 


A 




i n 

L.I-' 




UH In 


il-tL/ 


A 

M 




.ICR 


sun 


0l*3B 


29 2F 


A 
H 




J^R 








J 




.WORD 




0U3n 


03fiE 


T 

1 




.WORD 


5U3 


Olf3E 


06 BO 


T 
1 




.WORD 




nit 1 ?? 


OFFF 


A 




.WORD 






8E3B 


A 

M 




LD 




UHH J. 


2&UD 


A 
M 








Mill") 






/ 




cri, o 


U44V 




• 


<<rJi: 


i n 

LU 


^uo 




5RFP 


A 










MU_? J. 


ff. 

Ci 




o I 




U £ + l t3 


PR! 7 

POX / 


A 




HI »U 


jji 


U44" 


PR If, 


A 

A 






^m 

3 3 7 


Utlf / 




A 

A 




.IMP 


Jit 


Mill 5? 




A 

A 




or>r\ 


eqt; 


I44j 


fKRF 






wnpn 


«;rr 

J3D 


U44H 


■J 3 / 3 


T 
1 




wripn 
. V AJK' 1 


3.3 / 


'I44D 


uonu 


T 

1 




. VyUKI I 


3!) 


' 1441/ 


urrr 


A 






33y 


u E t4i i 


8R7t: 


A 

A 




i n 

LU 


SRrt 

30 'I 




An tO 


A 

A 




CT 


Cfil 
301 








/ 




3 m 


nr. f, c 


Cj03 J 


A 

A 


PM9 • 


i n 

LU 


£RT 

303 


"Ho 1 / 


•^nFP 

3i./rvy 


A 




CUD 

.Tin 


^Rfi 

3ut 


' *+ .3 ,J. 


AR^I 


A 




CT 

O 1 






RR17 

o~ X 1 


• 




AMn 

Mini 


D u M 




com 


A 








1 ' f + Z) ** 




A 




.MP 




'JtZJ-J 




A 




i n 

LU 


3U ' 


U43U 


tr.4u 


A 






j / * i 


filial 


9Q1 


A 




.KR 


571 

3/1 


U4j" 


nxR7 

U30 / 


T 




wnpn 

. rVUrvU 


579 


'I43j 


n^RF 


T 




a 1 AJr\! ' 


57^ 


U43« 


U IOX 


T 




WHRD 




niiRR 

'JH30 


flFFF 
urrr 


A 




. VWJrUJ 


3/3 


>Jt3 L 


RF^P 

Ou3l^ 


A 




i n 

LU 


R7R 


'.Jt3U 


i CHI 


A 




.ICR 


577 

Oil 


Ut.)C 










570 

3 / < > 


'/H 3 £ 


0031 


A CN3: 


i n 

LU 


570 

3 / J 




cnpp 

3uri./ 


A 




onrv 


3nM 


U40" 


CR17 

OD XI 


A 




Awn 

AINU 


3ol 


! J**o 1 


FR1 li 


A 






5"? 


OUR? 


2Rm 


A 




uMP 


583 


0W3 


8635 


A 




LD 


58U 


QhRh 


A636 


A 




ST 


5*?5 


OhB5 


2095 


A 




JSR 


586 




0367 


T 




.WORD 


587 


9W7 


H37^ 


T 




.VJORD 


588 


0U68 


07B1 


T 




.WORD 


589 


own 


OFFF 


A 




.WRP 



.-2 

1,ADDR(2) 



'OUTRfT PN PROM TAPE ROUTINE 1 

1,0PTI0N(2) 
1 / NF(2) 
l,Nt»(2) 
CN1 

3 / ADLO(2) 

0SROL8(2) 

PNTP 

LMES 

LMES 

LO-1 

X'FFF 

3 / .DLO(2) 

0TROL8(2) 

1^ (PTI0N(2) 

1 / 0PTI0N(2) 
1.NFC2) 

CN2 

PNTP 

LME* 

RMES 

LO-1 

X'FFF 

1 / SM0DE(2) 
l / LTSi.'(2) 

1 / 0PTI0N(2) 

1,0PTI0N(2) 
1 / NF(2) 
l,Nl*(2) 
CN3 

3^1(2) 

flSR0L8(2) 

PNTP 

HME C 

LMES 

HIGH 

X'FFF 

3,ADH1(2) 

^SROL8(2) 

1 / 0PTI0N(2) 

1,N=(2) 

1,^(2) 

aSCRl»(2) 

1 / SM0DE(2) 

1,LTSW(2) 

PNTP 

HMES 

RMES 

HIGH 

X'FFF 
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PROMP 



500. 


0t*5A 


2601 


A 


JMP 


(3SCRl*(2) 


591 


0i*RB 






.PAGF 




592 


0U5R 




t 






59^ 


OlfRR 


1*700 


A PNTP: 


PULL 


3 


59** 


0U6C 


8235 


A 


LD 


0 / SMODF(2) 


505 


0f;6H 


i**oi 


A 


AIS7 


0,1 


596 


0l*6E 


210t* 


A 


JMP 


.+5 


597 


%FF 


8236 


A 


LD 


0,LTSW(2) 


59 * 


01*70 


1**00 


A 


AISZ 


0,0 


599 


Off 71 


l*B01 


A 


AISZ 


3,1 


500 


0U72 


I*B01 


A 


AISZ 


3,1 


SOI 


ni*73 


AE**F 


A 


ST 


3,LENGTH(2) 


60? 


om 


29B8 


A 


JSR 


Si*ON 


603 


0U75 


9Ei*F 


A $13: 


LD 


3,3LENGTH(2) 


ROJ{ 


0fi76 


070P 


A 


LD 


1,(3) 


605 


01*77 


7MF 


A 


ISZ 


LENGTHC2) 


606 


0U7" 


FF2U 


A 


SKNE 


3,NFFF(2) 


607 


01*79 


2109 


A 


JMP 


CN7 


pop 


0t*7A 


F620 


A 


SKNE 


1,N256(2) 


poo 


01*70 


2O0F 


A 


JSR 


CN6 


fiio 


01* 7C 


2102 


A 


JMP 


.+3 


611 


o»*7D 


8300 


A 


LD 


0,(3) 


61? 


0l*7E 


2E**A 


A 


JSR 


(3PUTC(2) 


613 


0fi7F 


l*B01 


A 


AISZ 


3,1 


511* 


0i*PO 


l*9FF 


A 


AIS? 


1,-1 


615 


0U*1 


21FB 


A 


JMP 


.-It 


616 


0'*82 


'1F2 


A 


JMP 


$13 


617 


0£*S3 










61* 


01*83 


8235 


A CN7: 


LD 


0,SMODE(2) 


619 


9**8t* 


i*801 


A 


AISZ 


0,1 


620 


0U*5 


2103 


A 


JMP 




621 


01**6 


*236 


A 


LD 


0,LTSW(2) 


62? 


01**7 


l**oi 


A 


AISZ 


0,1 


623 


01*** 


26t*F 


A 


JMP 


RLENGTH(2) 


62U 


ot*pg 


20A1 


/ 


JSR 


S160N 


625 


oi*8A 


26I*F 


A 


JMP 


0LENGTH(2) 


626 












627 


Ot*RC 


8236 


A CN6: 


LD 


0,LTSW(2) 


62* 


0I*8C 


1**00 


A 


AISZ 


0,0 


62Q 


01**0 


2101 


A 


JMP 


.+2 


630 


0!**E 


299C 


A 


JSR 


S160N 




ot*RF 


AF50 


A 


ST 


3,MODE(2) 


53? 


01*90 


2C3F 


A CN6A: 


JSR 


*SCRLF(2) 


633 


01*01 


l*C03 


A 


LI 


0,* 


63'* 


01*92 


A2UE 


A 


ST 


0,ADPR(2) 


635 


0493 


i*CU? 


A 


LI 


0,X'I*2 


636 


0t*9«* 


?Ei*A 


A 


JSR 


^PUTC(2) 


637 


01*05 


7A50 


A 


ISZ 


M0DF(2) 




0Wfi 


9C50 


A 


LD 


3,flMODE(2) 


639 


0J*97 


5F0* 


A 


SHL 


3,8 


R40 


ni*Qs 


3C81 


A 


RCPY 


3,0 


6^1 


01*99 


5F01 


A 


SHL 


3,1 


fit** 


0WA 


1202 


A 


BOC 


2,. +3 


6**3 


0l*9B 


t*C50 


A 


LI 


0,X'50 


*hh 


0I*9C 


2101 


A 


JMP 


.+2 


PU5 


0I*9D 


l*Cl*E 


A 


LI 


0,X't*E 


6t*S 


OWE 


2EI*A 


\ 


JSR 


PPUTC(2) 


6'* 7 


01*0 F 


7Et*E 


A 


DSZ 


ADDR(2) 


BhP 


0**A0 


21F7 


A 


JMP 


.-8 


6W 


01* Al 


l*Cl*6 


A 


LI 


0,X*l*6 


650 


0t*A2 


2EUA 


A 


JSR 


APUTC(2) 



; TEST FOR END OF TEXT 
; TEST FOR START PN 



; SEND TRAILER 
; RTS 



; SEND LEADER 



; ASCII »B' 



; ASCII 'P» 
; ASCII »N' 

; ASCII 'F' 
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PROMP 



651 


0i»A3 


2Elt» 


A 


JSR 


@SETLP(2) 






2EU9 


A 


JSR 


@INTEST(2) 


R53 




2in? 


A 


JMP 


.+3 


65U 


Ol*A6 


U9FF 


A 


AISZ 


1,-1 


655 


Oi*A7 


21E8 


A 


JMP 


CN6A 


656 


0UA8 


0206 


A 


RTS 6 





; TEST FOR KB INTERRUPT 



657 ni^A9 




.PAGE 


'CARD RLM TO PAPER TAPE RLM CONVERSION' 


658 0^A9 


/ 






659 0^A9 


2E^5 A PAPRLM: 


JSR 


!1STYPE( 2) 


660 OUAA 


05^E T 


.WORD 


TPAK9 


661 OUAB 


2Eh5 A 


JSR 


<gSTYPE(2) 


662 OUAC 


0539 T 


.WORD 


TPAK8 


Rh3 OtyAP 


ZE4B A 


JSR 


<3GETC(2J ; WAIT FOR KB INTERRUPT 


66U OWE 


2D 2 A A 


JSR 


AAA 1 CrtH 

(gSSlbON 


665 OUAF 


2E**2 A 


JSR 


fgSRDCRD(ZJ 


6h6 O^BO 


0RB2 T 


.VJORH 


ni ip* 1 

BUF1 


667 IwBl 


2EU3 A 


JSR 


^SCHTOA(2) 


668 04B2 


ORB? T 


.WORD 


BUF1 


660 0'tB3 


823B A 


LD 


0,ADLO(2) 




A2**E A 


ST 


0,ADDR(2) 


671 0I*B5 


kC12 A 


LI 


0,18 


672 0'tB6 


. 251 A 


ST 


0, CPTI0N(2) 


673 0UB7 


8E38 A 


LD 


3 / ADBUFl(2) 


67U 0**B8 


2EU1. A 


JSR 


^)SAHEB(2) 


*75 OIjBO 


31^1. A 


RCPY 


0,1 


67R 0W3A 


661F A 


AND 


1, NFF(2) 


677 O'iBB 


WO? A 


AIS 7 


1,2 

1,M0DE(2) 


67?? flUBC 


A650 A 


ST 


679 04BD 


2101 . 


JMP 


.+2 


6Pfi OUBE 


2EI*1 . 


JSR 


^SAHFB(2) 


691 OI+BF 


^2l*E A 


ST 


0,flADDR(2) 


OtyCO 


7AUE A 


IS7 


ADDR(2) 


68^ ouci 


7C51 A 


DSZ 


0PTI0N(2) 


68U 0'tC2 


?1FB A 


JMP 




685 0t|C3 


UC02 A 


LI 


0,2 

flPUTC(2) 


nr!6 


2EUA A 


JSR 


687 MiC5 


8E3B A 


LD 


3,ADLO(2) 


6"8 04C6 


8300 A 


LD 


0, (3) 


^pn OtyC/ 


?EUP A 


J C R 


(3SP'T2C(2) 


pin n^c? 


UB01 d 


AISZ 


3,1 


591 0hC9 


7E51 A 


DSZ 


M0DE(2) 


b q 2 OlfCA 


21F P A 


JMP 






2E3F A 


JSR 


HSCRLF(2) 


69U OliCC 


l*C00 . 


LI 


0,0 
1,5 


695 oucn 


W05 A 


LI 


60S 04CE 


2E4A A 


JSR 


(aPUTC(2) 


697 ni»CF 


WFF A 


AISZ 


1,-1 


698 0W0 


21DD A 


JMP 


.-2 


69H 0UD1 


8E3B A 


LD 


3,ADLO(2) 


700 0UD2 


8300 A 


LD 


0,(3) 


701 0UB3 


5CF4 A 


SHR 


0,12 


702 OhDh 


Wk A 


AISZ 


0,-12 


70^ 0l*B5 


21D9 A 


JMP 


PAPRLM+6 


7% 0UD6 


2EO0 A 


JSR 


aSNULLS(2) 


705 0t»D7 


?EUB A 


JSR 


flGETC(2) ; WAIT FOR KB INTERRUPT 


706 0W38 


2R3E A 


JMP 


flASTARTC 2 ) 


7H7 0UD9 


0U2B T «S160N: 


.WORO 


S160N 



7hp 0'iDA 
709 0UDA 



.PAGE 'LIST OF MESSAGES' 
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PROMP 



710 04DA 

711 04DA 

712 nunp, 

713 04DC 

714 04DD 
04DE 
O^DF 
%E0 
04 El 
04E2 
04E3 

04E5 
0t*H6 
04E7 
04E8 
04E9 
04EA 
04EB 

715 04EC 
04ED 

nil EE 
04EF 

04F0 
71fi 04F1 
717 04F2 
71?? 0i*F3 

719 04F3 

720 04F3 
7*>1 04F4 

04F5 
04F6 
04F7 

n^F8 

04F9 
04FA 

722 04FB 

723 04FC 

724 04 FD 
v»5 OliFn 
72R 04FD 
7?7 OIjFE 

04FF 
^500 
0501 
0502 
0^03 
0504 
05^5 
0506 
728 0507 
720 050P 

730 0500 

731 0509 

732 050O 
73' 05 OA 

050B 
050C 
050D 
050E 

734 050F 

735 0510 
73R 0511 



ODOA 
ODOA 
ODOA 
4E53 
4320 
k9kD 
50 ?D 
313B 
2046 
495? 
I*D57 
415° 
4520 

smi 

501*5 
5220 

5045 
2047 
45 4E 
4552 A 
4154 A 
4F52 A 
ODOA A 
OOno A 



TPAK1: 



ODOA 
494E 
5f>55 
5420 
4445 
5K49 
4345 
3A20 
2020 
0000 



TPAK2: 



ODOA A TPAK3: 
5350 A 



4:>io 
494R 
5920 
4D45 
4D4F 
5259 
202D 
2D20 
202^ 
0000 



ODOA 
544F 
204C 
4F41 
4420 
4C4D 
ODOA 
Ooqn 



TPAK4; 



.WORD ODOA 

.WORD ODOA 

.WORD ODOA 

.ASCII 'NSC IMP-16 FIRMWARE PAPER TAPE' 



.ASCII ' GENERATOR * 



.WORD ODOA 
.WORH 0 



.WORD ODOA 

.ASCII 'INPUT DEVICE; ' 



.WORn 02020 
.WORD 0 



.WORD ODOA 

.ASCII 'S°ECIFY MEMORY — ' 



.WORD 02020 
.WORD 0 



.WOR" ODOA 

.ASCII 'TO LOAD LM' 



.WORD ODOA 
.WORD 0 
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PROMP 



737 051] 

738 0511 

739 051? 
0513 

nsit 

0515 
0516 
0517 
0518 
051" 
051A 
051B 
051C 
74" 05in 

741 051E 
05 IF 
05*>0 
0521 
05?? 

742 0523 

743 05?4 

744 05^ 

745 0525 

746 0525 

747 05->6 
7h9 0527 

05?8 
0529 
74° 05 2A 
052B 
052C 

750 05?n 

751 05*>E 
75*> 05*>F 

753 05'F 

754 052F 

755 0530 
0531 
0532 
0533 
0534 
0535 
0536 
0TS7 

756 0538 

757 "539 
75? 0539 

759 0530 

760 053A 
053B 
053C 
0530 
0S3E 
053F 
0540 

761 0541 

762 0542 
0543 
0544 
0545 
0546 
0547 
0548 



ODOA A 

4D41 A 

4B4S 

2054 

4150 

4520 

5245 

4144 

4552 

205 0 

4541 

4450 

ODOA 

544F 

204C 

4F41 

4420 

4C4D 

ODOA 

0000 



TPAK5: 



.WORD ODOA 

.ASCII 'MAKE TAPE READER READY' 



ODOA 
ODOA 



TPAK6: 



4F55 & 



.WORD ODOA 

.ASCII 'TO LOAD LM' 



.WORD ODOA 
.WORD 0 



.WORD ODOA 
.WORH ODOA 
.ASCI I 'OUTPUT' 



5450 
5554 
2054 
5950 
453A 
2020 
0000 



ODOA 
545S 
5?4E 
205? 
4541 
4445 
5?2" 
4F4fi 
4520 

oooo 



f 
A 

A TPAK6A: .ASCII ' TYPE:' 
A 

A 
A 
A 



.WORD 02O20 
.WORD 0 



A TPAK7; 

A 

A 

A 

A 

A 

A 

A 

A 

A 



.WORD ODOA 

.ASCII 'TURN READER OFF' 



ODOA 
5455 
524F 
2050 
554E 
4348 
204F 
4E20 
ODOA 
4849 A 
542" A 
414F 
5920 
4B45 
592" 
544F 



A TPAK8: 
A 
A 
A 
A 
A 
A 
A 
A 



.WORD 



.WORD ODOA 

.ASCII 'TURN P"NCH ON* 



.WORD ODOA 

.ASCII 'HIT ANY KEY TO START 1 
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PROMP 



051*9 2053 A 

05kA Skkl A 

05'*B 525U A 

763 O^C ODOA A 

76?* H5kD oooo a 

765 05l*E 

766 05kE 

767 n5i t E ODOA A 
76 * 05l*F kDkl A 

0550 hBk5 A 

0551 2%3 A 

0552 1*152 A 

0553 WO A 
0551* 521*5 A 

0555 klhk A 

0556 4552 A 

0557 2052 A 
055R k5hl A 
0550 t*l*59 A 

760 055A 0000 A 

770 05^8 

771 05«;R 



.VJORD 
.WORD 



TPAK9: 



.WORD 



ODOA 
0 



.WORD ODOA 

.ASCI I 'MAKE CARD READER READY* 



IT) 

til 


U_J_)D UUUA A i rAMU ; 


unnn 
.WUKI ' 


UUUA 


777 


'.;j3v* UUUM A 


.WUKU 


UUUA 


77/i 

' Z 1 * 




.Ao< 1 J 


SFT M 




nee i cri.on a 








n^p iiniiP a 

U~jr tUHT M 








0560 I*UI*5 A 








0561 3A20 A 






775 


0562 ODOA A 


.WORD 


ODOA 


776 


0563 0000 A 


.WORD 


0 


777 


*WU 51*1*1 A TPAK11: 


.ASCI! 


•TAPE 




0565 501*5 A 








0566 201*6 A 








05P7 l*F5? A 








05*8 20i*D A 








0560 l*D35 A 








056A 3230 A 






778 


056B 0000 A 


,W0R n 


0 


779 


056C 2050 A TPAK12: 


.ASCII 


• PROM 




056D 52**F A 








056E **D20 A 








056F 2D20 A 








0570 51*59 A 








0571 501*5 A 






780 


057^ 0 n 00 a 


.WORD 


0 


7*1 


"57^ 20^2 A TPAK13: 


.ASCII 


• 2 i 


7P2 


^7h ODOA A 


.WORD 


ODOA 


78^ 


057^ onnO A 


.WORD 


0 


7*4 


0575 2031* A TPAKli*: 


.ASCI I 


' 1*' 


785 


0577 ODOA A 


.WORD 


ODOA 


78R 


057R 000" A 


.WORD 


0 


787 


0570 3320 A TPAK15: 


.ASCI 1 


•3 2K» 




05 7A 32I*B A 






78 8 


057B 000" A 


.WORD 


0 


780 


05 7C 3i*2n A TPAK16: 


.ASCII 


'I* f*K» 




05 7D 3V*B A 






790 


057E 0000 A 


.WORD 


0 



701 057F XCRLF: 

702 05 7F ODOA A TPAK17: 

703 058O 20i*2 A 
n 5°l 595d A 
0582 U53A A 



;THIS WORD USED AS CONSTANT ELSEWHERE 
.WORD ODOA 
.ASCII 1 BYTE: ' 
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PROMP 



7% f>5R3 2020 A 
795 05PU nnnr) A 



.WORn 
.WORD 



02020 
0 



Top 






.PAGE 


'READ CARD f 


7Q7 


! ID"^ 








70 P 




liPfil A IMFQR* 


l i 


0.1 

U/ 1 


70 O 




nnoo A 


HAI T 




900 


roc ' 


901 P A 




OFFLN+2 


roi 




• 






po*> 




upon a fir*;''* 


it 


0,0 

0,FSTCD(2) 


po - * 




A227 A 


ST 




OR PA 


/ 




0 / FSTCD(2) 






R2"?7 A RDTARD* 


LD 


806 


n^RR 




BOC 


NZR0, FIRST 


807 


05 RC 


i*F10 A 


LI 


3,CRADDR 


POR 


05 RD 


2101* A 1JTL00P: 


JMP 


.+5 


Son 


058E 


721E A 


SKAZ 


0,NC0(2) 


810 


05 8F 


21F5 A 


jt^ip 


INERR 


oil 


0590 


5CFE A 


SHR 


0,2 


RT> 

»i - 


05Q1 


ll*FB A 


BOC 


BITl,VfTL00P 


pi -5 ? 


0592 


l*70fl A 


PULL 


3 


O 1H 


0593 


li300 A 


PUSH 


3 


PIS 


059** 


8F00- / 


LD 


3,(3) 


P1R 




8639 A 


LD 


1,ADBUF2(2) 


P17 






ST 


1, INDEX 


PI P. 






L| 


1,80 


PIP 


059R 


m UU A $11 : 


LD 


0,filNDEX 
0,(3) 


r?o 




A300 A 


ST 


not 




7QL9 A 


1 O A 


INDEX 


P99 




liROI A 


AIS7 


3-1 




13. TV/ 


1*9 FF A 


AIS7 


1 -1 

ill 






21 FA A 


JMP 


09C 




/ 






P9R 


'/j ft 


liFlO A FIR*iT- 


1 I 


3,CRAnDR 


P97 




niioi a 


RI N 


st An is 


POP 




9100 A R1KYT* 






P9Q 






Rnr 


RIT1 RFADY 
0 FSTCD(2) 


P30 


05A2 


R997 A DFFI N» 


i n 


R3I 


05A3 


1 50X A 


Rnr 


NZRO RFADY 


R32 


0SAi* 


tipm A 


LI 


0,1 


83^ 


05A5 


A?97 A 


CT 

O 1 


0 FSTCD(2) 


83*» 


05A6 


D201 A 


RTS 


1 


835 


05A7 








836 


05A7 


8239 A READY: 


LD 


0,ADBUF2(2) 


837 


05A8 


32R0 A RDC: 


RXCH 


0,2 

ORDCRDP 


R38 


05A9 


2D05 A 


JSR 


R39 


05AA 


21DA A 


JMP 


INERR 


8U0 


05AB 


32R1 A 


RCPY 


0,2 


8M 05AC 


8227 A 


LD 


0,FSTCD(2) 


81*2 


05AD 


15DA A 


BOC 


NZR0,FIRS2 


?l*3 05AE 


0201 A 


RTS 


1 


Rl*t* 


05AF 








Pl*5 


05AF 


7FD3 A RDCRHP: 


.WORD 


07FD3 



TRANSMISSION ERROR 



; BRANCH IF BUSY 
; MOVE DATA 



; BRANCH IF READY 



BRANCH IF FIRST CARD 



81*6 05B0 
81*7 05B0 
RI*p O5B0 
Rl*9 O5B0 

850 05B0 2EI»R A 

851 05B1 810C A 

852 ^B2 A1DA A 



.PAGE 'INITIALIZATION OF 16L/16P' 
\ INITIALIZE PROGRAM FOR 16L/16P 
UNIT: 



JSR 
LD 
ST 



^SETLP(2) 
0,WTLPA 
0,WTLOOP 
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PROMP 



853 


05B3 S10B A 


LD 


0, LBUSYT 


854 


05B4 A1E* A 


ST 


0,BUSYT 


855 


05B5 810A A 


LD 


0,LRDC 


856 


05B6 A1F1 A 


ST 


0,RDC 


857 


05B7 8109 A 


LD 


0, LRDC+1 


858 


05B ? A1F0 A 


ST 


0,RDC+1 


*59 


^5B9 8108 A 


LD 


0,LRDC+2 


860 


05BA A1EF A 


ST 


0,RDC+2 


861 


05BB 8107 A 


LD 


0, LRDC+3 


f?^ 


05BC A1EE A 


ST 


0,RDC+3 


863 


05BD 0200 A 


RTS 


8*4 


05BF ; 






*55 


05BE 0401 A WTLPA: 


RIN 


STATUS 


866 


05BF 5CFF A LBUSYT: 


SHR 


0,1 


867 


05C0 0602 A LRDC: 


ROUT 


STNDRD 


868 


05C1 1C01 A 


BOC 


P0A,.+2 


869 


05C2 21FP A 


JMP 


.-2 


870 05C3 2100 A 


JMP 


.+1 



871 05C4 

87? 05C4 

873 05C4 

874 05C5 

875 05C6 

876 05C7 

877 05A8 

878 05C9 
R79 05CA 

880 05CB 

881 05 C 
f*S2 05CH 

883 05CE 

884 05 CF 

885 05H0 

886 05D1 

887 05D2 
88» 05D3 
RR9 05D4 

890 05D5 

891 05D6 

892 05D7 

893 H5D8 

894 05D9 

895 05DA 

896 05PA 

897 05D^ 

898 05DC 
890 05DD 

900 05DF 

901 05DE 

902 05DE 
00^ 05DE 

904 05DE 

905 05DE 
OOP 05DE 
907 05DE 
008 05 DZ 

909 05DE 

910 05DE 

911 n 5DF 

912 05DF 



.PAGE 'HOLLERITH TO ASCI! CONVERSION' 



$5: 



.918 A CTOA: 
4700 . 
4300 . 
4D50 
SFOO 
8300 
890F 

F200. nit 

2105 A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



F90D 
2102 
4A01 
nFA 
8908 
D907 
4A20 
.ROO 
4B01 
49FF 
21F1 
8904 
0->o] 



$14: 



0617 T TADDR 
0657 T BADDR 
05DD T COUNT 
05DE T INDEX 



OROO 
0400 
0200 
0100 
OOPO 
004O 
0020 
001O 
000? 
OOOh 
000^ 
0001 



A C12 
A Cll 
A CO 
A CI 
. C2 



C3 
C4 
C5 
C6 
C7 
C8 
C9 



ST 

PULL 

PUSH 

LI 

LD 

LD 

LD 

SKNE 
JMP 
SKNE 
JMP 
AISZ 
JMP 
ID 
SUB 
AIS? 
ST 
AISZ 
AISZ 
JMP 
LD 
RTS 

.WORD 
.WORD 
.=.+1 
.=.+1 



2 / INDEX 

3 

3 

1,80 
3,(3) 
0,(3) 
2,? ADDR 

0, (2) 
$14+1 
2, BADDR 
$14 

2,1 
$7 

2, TADDR 
2, TADDR 
2,X'20 
2,(3) 
3,1 

1, -1 
$5 

2, INDEX 
1 

BEGHOL 
ENDHOL 



2048 

1024 

512 

256 

128 

64 

32 

16 

8 

4 

2 

1 



SAVE PBPAGE INDEX 



; RESTORE PBPAGE INDEX 



; TOP OF HOLLERITH TABLE 
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PROMP 



013 


05DE 






.PAGE 


'ASCII TO 


P1U 


05DE 










915 


050E 


A9FE 


A AHEB: 


ST 


2, INDEX 


916 


05DF 


hDOk 


A 


L! 




917 


05F.0 


A5FB 


A 


ST 


1, COUNT 


m 


05F1 


5C0k 


A $3: 


SHL 


0. 1* 

1, (3) 


919 


05E2 


<?700 


A 


ID 


9*>o 


0SE3 


890E 


A 


LD 


2, TAB AD 
1,(2) 


921 


OREU 


F600 


A $6: 


SKNE 


92? 


05E5 


2105 


A 


JMP 


$10+1 


923 


95E6 


F90C 


A 


SKNE 


2,TABT0P 
$10 


921* 


05E7 


2192 


A 


JMP 


925 


05E8 


4A01 


A 


AIS7 


2,1 
$6 


926 


95E9 


21FA 


A 


JMP 


927 


95EA 


8907 


A $10: 


LD 


2 / TABAD 


923 


H5EB 


D90P 


A 


SUP 


2, TABAD 


929 


05EC 


3ff>0 


A 


RADD 


2,0 


930 


OS ED 


UB01 


A 


AIS7 


3,1 


931 


o«;ee 


7DED 


A 


DSZ 


COUNT 


932 


nFEF 


21F1 


A 


JMP 


$3 


933 


O5F0 


R9EC 


A 


LD 


2, INDEX 


93k 


05F1 


n?oo 


A 


RTS 




93S 


05F2 










936 


05F2 


%5B 


T TAB AD: 


.WORn 


BEGASC 


937 


H5F3 


QSRA 


T TARTOP: 


.WORP 


END AS C 



; SAVE PBPAGE INDEX 



; FOUND HEX NUMBER 



; RESTORE PBPAGF NUMRER 



932 


05FU 








.PAGE 


939 


05FU 










ouo 


05FU 


818A 


A 


CRLF: 


LD 


9lfl 


05F5 


29 OQ 


A 




JSR 


W> 


05F6 


o^n* 


A 




RTS 


QUI 


n5F7 












05F7 


U7H0 


A TYPE: 


PULL 


9^5 


05F8 


U300 






PUSH 


OUR 


05F9 


8F00 


A 




LD 


9U7 05 B\ 


83nn 


A 




LD 


OUR 


05 FB 


1111 


A 




BOC 


gun 


05FC 


2902 


A 




JSR 


950 


05FH 


UR01 


A 




AISZ 


951 


05FF 


21FB 


A 




JMP 




05FF 










953 


05FF 


2900 


A 


PUT2A: 


JSR 


95b 


nson 




A 




ROL 


^55 


0601 


2EUA 


A 




JSP 


956 


0RO2 


noon 


A 




RTS 



•SPECIAL OUTPUT ROUTINES' 

0,XCRLF 
PU T 2C 



3 
3 

3,(3) 
0,(3) 
ZR0,RET1 
PUT2C 

3,1 
.-h 

.+1 

0,8 

APUTC(2) 



057 


0603 






.PAGE 


'GET CHARACTER 


ROUTINE' 


958 


0603 














95^ 


0603 


2EUC 


A GFTCO: 


JSR 


0GEC0(2) 






960 


0601; 


621C 


A 


AND 


0,N7F(2) 




MASK OUT BITS 7-15 


961 


06"5 


D21U 


A 


SKNE 


0, fc(2) 


/ 


TEST FOR CNTRL/D 


962 


9RD6 


2107 


A 


JMP 


REINIT 






963 


06O7 


F218 




SKNE 


0,SP(2) 




TEST FOR SPACE 


96U 


ORO© 


?1FA 


A 


JMP 


GETCO 






965 


fifing 


F219 


A 


SKNE 


0,C0M(2) 


i 


TEST FOR COMMA 


96R 


06 HA 


21FR 


/ 


JMP 


GETCO 






967 


06 OB 


F21G 


A 


SKNE 


0,ALT(2) 


/ 


TEST FOR ALT KEY 


96P 


%0C 


02^0 


A 


RTS 








969 


OROD 


0201 


A RET1: 


RT9 


1 






97^ 


H60E 
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PROMP 
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2 


1250 


09 7d 


1201 


A 




BOC 


2,. +2 


1251 


00 7E 


21 F+ 


A 




JMP 


LGECO* 3 


1252 


09 7F 


0603 


A 


LP3: 


ROUT 


3 


1253 


0980 


03F5 


A 




JSRI 


DELAY 


125'+ 


OOKl 


5*26 


A 




ROL 


0,EC 


1255 


0982 


01+02 


A 




RIN 


2 


1256 


0983 


610D 


A 




AND 


0,MASK 


1257 


0984 


5DFF 


A 




SHR 


1,1 


1258 


09 85 


31*2 


A 




RXOR 


0,1 


1259 


0986 


l+AFF 


A 




AISZ 


2,-1 


126n 


0987 


21F7 


A 




JMP 


LP3 


1261 


098? 


O603 


A 




ROUT 


3 


1262 


09 80 


03F5 


A 




JSRI 


DELAY 


1263 


09 8 A 


l+CFF 


A 




LI 


0,-1 


12*1+ 


H98B 


06^3 


A 




ROUT 


3 


1265 


098C 


03F5 


A 




JSRI 


DELAY 


1266 


098D 


0605 


A 




ROUT 


5 


12*7 


09 8E 


5DF8 


A 




SHR 


1,8 


126 « 


09 8F 


31+81 


A 




RCPY 


3,0 


1269 


0990 


2 IDC 


A 




JMP 


PGETC+1 


1270 


0991 












1271 


O001 


*ooo 


A MASK: 


.WORD 


X'8000 



127? 


0OH2 






.PAGE 




1273 


0992 










1274 


0992 


290B 


A PGECO: 


JSR 


SAVE 


1275 


0993 


2D01 


A 


JSRf 


PGECOA 


1276 


n99t+ 


2im 


A 


JMP 


PGETC+1 



2k 



PROMP 



1277 


0995 








1278 


0095 


7E73 A PGECOA: 


.WORD 


07E73 


1 ?70 


0996 




.PAGE 




19RD 

X£-0 1 1 


0996 




TELETYPE INPUT TEST 


1981 


0°96 








x*c o£ 


0096 




RTS 1 


- NORMAL RETURN 


12*3 


0996 




RTS 0 


- ATTEMPT TO INPUT 




0996 








12*5 


9996 


2007 A TTEST: 


JSR 


SAVE 


1286 


0997 


UFOO A 


LI 


3,0 


12*7 


O90p 


OUOR A 


RIM 


6 


1238 


0999 


5C0* A 


SHL 


0,8 


12*9 


999A 


1201 A 


BOC 


2, .+2 


12on 


0Q9B 


211U A 


JMP 


RESTOR 


1291 


099C 


2913 A 


JSR 


RESTOR 


1292 


999D 02ni A 


RTS 


1 


1?03 


090 E 




.PAGE 




129b 


099 E 


/ 


SAVE/ RESTORE REGISTERS AND FLAGS ROUT 1 


1295 


099E 








1296 


09^E A10B A SAVE: 


ST 


0 RFG 


1297 


09°F A50F A 


ST 


1 RFG+l 

x^ fvla-m x 


1293 


09 iS A90B A 


ST 


2,REG+2 


12oo 


09A1 


ADOB A 


ST 


3,REG+3 


Ijon 


09A2 


OOpn A 


PUSHF 




I^OI 


09A3 


kkOfl A 


PULL 


0 


X -/ w. 


09A1* 


A10A A 


ST 


0, FLAGS 


13°? 


0OA5 


UC01 A 


LI 


0,1 


13011 


09A6 


58FE A 


ROR 


0,2 


1305 


09A7 A106 A 


ST 


0, SELECT 


1306 


09A8 


mi A 


LD 


0,REG 


1307 


09A9 


02*0 A 


RTS 




HOB 


09AA 








X-* 


09AA 09 AE T REG: 


.=.+*» 




I3in 

X J X' * 


09AE 


09 AF T SELECT: 


.=.+1 




1311 


09 AF 


09B0 T FLAGS: 


,=,+1 




131*' 

X _J X - 


09B0 








1313 

X . * X J 


09B0 


85FA A RESTOR: 


LD 


1, REG+1 


131U 


09 Bl 


89 FA A 


LD 


2 t REG+2 


1315 


09B2 


8DFA A 


LD 


3^ RFG*- 3 


1316 


09B3 


81FB A 


LD 


0, FLAGS 


1317 


09 Bk 


fiono a 


PUSH 


0 


1313 


99B5 


0280 A 


PULLF 




I^IO 


09 B6 


0A09 A 


SFLG 


2 


1320 


09B7 


81F6 A 


LD 


0, SELECT 


X J £- X 


09B8 


1801 A 


BOC 


NEG,.+2 


1322 


09B9 


0A80 A 


PFLG 


2 


X-7 4. _/ 


09 BA 


81EF A 


LD 


0, REG 


1321* 


09BB 


02nn A 


RTS 




1325 


09BC 




.PAGE 




1326 


09BC 








1327 


09BC 


* 


TELETYPE SYSTEM INITIALIZATION/RESET 


132* 


09BC 








1329 


CHBC 








1330 


09BC 


29E1 . ^ETPL: 


JSR 


SAVE 


1331 


99BD 


8D10 A 


LD 


3,SCPAD 


1332 


09BE 


01*18 A 


Rl N 


GPCS 


1^33 


09BF 


i»*ni A 


AISZ 


0,1 



25 



PROMP 



1331* 
1335 
133R 
1337 
1333 
1339 
1340 
1341 
131*2 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
135? 



09C0 
ngci 
09C2 
0PC3 
0QC4 
9«C4 

nnc4 

09C5 

once 

09C7 
09A8 
09C9 
09CA 
OPCB 
09 CP 
09CC 
09CD 
09CE 
OQCF 



2103 A 
4F3* A R?T: 
0605 A 
21EC A 



P1H6 A ^LINIT: 
A24A A 



8105 
A1A4 
8104 
A24C 
21F6 

0952 
03FP 
0970 
0760 
0250 



A 
A 
A 
A 
A 

T LPUTCA: 
A LGETCA: 
T LGF.COA: 
A SCPAD: 
T 



JMP 
LI 

Ran 

JMP 



LD 
ST 
LD 
ST 
LD 
ST 
JMP 

.WORn 

JSRI 

.WORD 

.WORD 

.END 



SLINIT 

3,TTYAD 

5 

RESTOR 



0, LRJTCA 
0,PUTC(2) 
0, LGETCA 
0, PGETC 
0, LGECOA 
0,GECO(2) 
RST 

LPUTC 

TTYSR 

LGECO 

0760 

START1 



>***** 0 ERRORS IN ASSEMBLY ****** 



$1 $1' $11 $1? $13 $14 $2 $3 $5 $6 

0279 T 05EA T 0598 T 03DC T 0475 T 05P1 T 027B T 05E1 T 05C9.T 05E4 T 

$7 ADR AS E ADBUF1 ADBUF2 ADDR ADHI ADLMT ADLO AHEB ALT 

05CR T 02«9 T 0038 A 0039 A 004E A 003C A 003A A 003B A 05DE T 001B A 

ASC7 ASC8 ASCC ASCL ASCR ASTART BADDR BC BCTP BEGASC 

0662 T 0663 T 0667 T 0P2F A 0030 A 003E A 05DB T 002D A 03D2 T 065G T 

BEGHOL RI N9 PINASr OIT1 BUF1 RUF2 BUSYT RYTOPT CO C09 

0617 T 002E A 0413 T 0004 A 08B2 A 09"2 T 05A0 T 033B T 0200 A 0421 T 

CI Cll CI? C2 C3 C4 C5 C6 C7 C8 

010O A 040^ A 0?no A 00P0 A 0041 A 0020 A 0011 A Onn« A 0004 A 0002 A 

CO CW CCR CHTOA CKMTBL CK*M CN1 CN2 CN3 CN6 

000] A 0TF5 T Oni^ A 05A4 T 040A T 0037 A 044 9 T 044F T 045F T 04PB T 

CN6A CM7 COL COM COW CPAD CR CR1 CR2 CR3 

04QO T 0483 T 001A A 0019 A 05PC T 028A T 0028 A 03A8 T 03B3 T 03C4 T 

CR4 CR6 CR6A CR7 CRADDR CRIN TRLF nELAY PELAY1 DONE 

03D0 T 03EA T 03FB T 03HF T 0010 A 028 D T 05F4 1 FFF5 A FFF6 A 0963 T 

EA FB EC ENDASC ENDHOL FIRS2 FIRST FLAGS FOUR FSTCD 

0019 A OniP A 00?F 066A T 0657 T 0588 T 059E T 09AF T 0007 A 0027 A 

GECO GETC GETCO GPCS H0707 H7070 HI HIGH HL HMES 

004C A 004B A 0603 T 001° A 0365 T 03R6 j 07B2 T 07B1 T 0033 A 0367 T 

MR IPFO I NDE V INERR \m*«T LBUSYT LOHATA LENGTH LGECO LGECOA 

0034 A 06 in T 05Hn T 0585 T 0049 A 05BF T 029C T 004F A 097P T 09CD T 



LGETCA LI NIT LINITA LL LMFS LMT LO LO0P1 L00P2 LOW 
09CC T 05BO T 0047 A 0031 A 036E T 0054 A 06E1 T 0382 T 0384 T 0058 A 
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PROMP 



.PI LP2 LP3 IPk LP5 LP6 LPC1 LPUTC LPUTCA LR 
02CF T 02EC T 097F T 02F6 T 032F T 033D T 095A T 0952 T 09CB T 0032 A 

LRDC LTSW M25G M512 MASK ME MEM MODE N1FF N2 
05CO T 0036 A 03hk T 0352 T 0991 T 002A A H2E9 T 0050 A 0021 A 0013 A 

N256 M N512 M7F N8 N80 N8004 NC NCO NEOO 
0020 A 001ft A 0022 A 001C A 0015 A 001D A 0025 A 0026 A 001E A 0023 A 

NEG NF MFF NFFF NZRO ODD OFFLN OM ONE OPTION 
OOOB A 0017 A 001F A 002U A 0005 A 0003 A 05A2 T 002B A 0004 A 0051 A 

OUTPN OUTPR PAPRLM PBPAGE PGECO PGECOA PGETC PGETCA PN PNTP 
01*35 T 039B T 0W9 T 0658 T 0992 T 0995 T 096C T 096F T 002C A 046B T 

POA PPUTC PPUTCA PT PTIN PUT2C_ PUTC PUTSEL RDC RDCARD 
OOOC A 0967 T 096A T 0029 A 02BO T 05FF I GQi*A A 057C T 05A8 T 058A T 

RDCRDP READY REG REINIT RESTOR RET1 RL RMES R0L8 RST 
05AF T 05A7 T 09AA T 060E T 09B0 T 060D T 0415 T 0375 T 0423 T 09C1 T 

S160N S40N SAHEB SAVE SCHTOA SCPAD SCR4 SCRLF SELECT SETCR 
Q42B T 042D 1 0041 A 099E T 0043 A 09CE T 0001 A 003F A 09AE T 028B T 

SETH SETHL SETHR SETL SETLL SETLP SETLR SETOFF SETPL SETPT 
0363 T 035B T 035D T 0361 T 0357 T 0048 A 0359 T 02E6 T 09BC T 02AE T 

SGETC SGETCO SHI SIFEQ SLINIT SLMT SLO SMODE SNULLS SOUTPN 
096B T 0040 A 0053 A 0044 A 09C4 T 06AC T 0052 A 0035 A 0000 A 0002 A 

SP SPAPOM SPUT2C SRDCRD SR0L8 SS160N START START1 STATUS STDATA 
1018 A 003D A 0046 A 0042 A 004D A 04B9 T 025B T 0250 T 0001 A 0208 T 

STNDRD STOLMT STOPT STTBL STYPE TA TABAD TABTOP TADDR TB 
0002 A 0309 T 0317 T 0MB T 0045 A 0029 A 05F2 T 05F3 T 05DA T 0012 A 

TC TEST THREE TMODE TPAK1 TPAK10 TPAK11 TPAK12 TPAK13 TPAK14 
0070 A 0398 T 0006 A 0341 T 04DA T 055B T 0564 T 056C T 0573 T 0576 T 

TPAK15 TPAK16 TPAK17 TPAK2 TPAK3 TPAK4 TPAK5 TPAK6 TPAK6A TPAK7 
0579 T 057C T 057F T 0UF3 T 04FD T 0509 T 0511 T 0525 T 052A T 052F T 

TPAK8 TPAK9 TSTOPT TTEST TTYAD TTYSR TWO TYPE WAIT WTLOOP 
0539 T 054E T 0266 T 0P96 T 0038 A FFFB A 0005 A 05F7 T 0397 T 058D T 

WTLPA XCRLF ZRO ZROLMT 
05BE T 057F T 0001 A 0311 T 

38EC 7235 



D 

a 



DEBUG 



REVISION-G 05/16/74 

DEBUG 00112C 06/25/74 



0000 
0000 
0000 
0000 



0000 FFFF A IMP16 = -1 

0000 .TITLE DEBUG, '00112C 06/25/74 ' 

SOFTWARE DEBUG FOR IMP-16L/16P 

.ENDIF 

THIS PROGRAM HAS TWO ENTRY POINTS , 'DEBUG' AND 'DEBUG1 ' 
'DEBUG' IS THE USUAL ENTRY POINT 

'DEBUG1 ' GOES THROUGH THE PROCESS OF LOADING AN 'INITIALIZATION 
ROUTINE' TO LOCATIONS 0 AND 3. THIS INITIALIZATION ROUTINE GIVES 
THE CAPABILITY TO THE DEBUG USER TO RECOVER TO DEBUG BY DEPRESSING 
THE INITIALIZE BUTTON, THEN RUN. 

THIS PROGRAM MAY BE ASSEMBLED FOR EITHER THE GPC/P OR THE IMP-16L/16P 
TELETYPE. THE ASSEMBLER IS DIRECTED BY THE FOLLOWING CONSTANT: 

IMP16: 1 FOR GPC/P, -1 FOR IMP-16L/16P 

THIS PROGRAM MAY BE ASSEMBLED RELOCATABLE WITH FIXED OFFSETS 
DETERMINED BY THE FOLLOWING CONSTANT: 

OFFSET: 1 WITH FIXED OFFSETS, -1 WITHOUT OFFSETS 

WHEN ASSEMBLED WITH OFFSETS, 'BOFFSET' IS THE BASE SECTOR OFFSET 
AND 'TOFFSET' IS THE TOP SECTOR OFFSET 



8 0000 

9 0000 

10 0000 

11 0000 

12 0000 

13 0000 

14 0000 

15 0000 

16 0000 

17 0000 

18 0000 

19 0000 

20 0000 

21 0000 

22 0000 

23 0000 

24 0'000 

25 0000 

26 0000 

27 0000 

28 0000 

29 0000 

30 0000 

31 0000 

32 0000 

33 0000 

34 0000 

35 0000 

36 0000 

37 0000 

38 0000 

39 0000 

40 0000 

41 0000 

42 0000 

43 0000 



0001 A 

0010 A 

0210 A 

000B A 



OFFSET = 
BOFFSET = 
TOFFSET = 
NEG 



1 

010 

0210 

0B 



0029 A 
0012 A 
0070 A 
0009 A 
0016 A 
0026 A 



.IF -IMP16 
IMP-16L TELETYPE DELAY CONSTANTS 

THE FOLLOWING CONSTANTS ARE FOR FULLSPEED OPERATION 

TA = 41 

TB = 18 

TC = 112 

EA 9 

EB = 22 

EC = 38 
.ENDIF 



44 0000 

45 0000 

46 0000 

47 0000 



48 0000 

49 0000 

50 0000 

51 0000 0010 B 

52 0010 



■SPACE 3 

. GLOBL DEBUG 

. GLOBL UCALL 

GLOBL DEBUG1 



.PAGE 

. BSECT 

, IF OFFSET 

=.+BOFFSET 

ENDIF 



1 



DEBUG 



53 


0010 








.SPACE 


3 




54 


0010 


0306 


T 


ADSRUN: 


.WORD 


SRUN 


;SNAP RUNTIME ADDRESS 


55 


0011 


02F1 


T 


ADHRUN: 


.WORD 


HRUN 


; HALT RUNTIME ADDRESS 


56 


0012 


0328 


T 


ASRUNB: 


.WORD 


SRUNB 




57 


0013 


0325 


T 


AHRUNB: 


.WORD 


HRUNB 


; SECONDARY RUNTIME ADDRESS 


58 


0014 


060E 


T 


SAVRIA: 


.WORD 


SAVREG 




59 


0015 


0632 


T 


RSTRIA: 


.WORD 


RESTOR 




60 


0016 








.PAGE 






61 


0016 








.TSECT 






62 


0000 














63 


0000 








.IF OFFSET 




64 


0000 


0210 


T 




.=.+TOFFSET 




65 


0210 








. ENDIF 






66 


0210 


0008 


A 


HSZ 


=8 




? 8 HALT/LOOKS 


67 


0210 


000A 


A 


HRSZ 


= 10 




; 10 RANGES SNAP 


68 


0210 


000A 


A 


DRSZ 


= 10 




; 10 RANGES DUMP 


69 


0210 


000D 


A 


CR 


=X'D 






70 


0210 


000A 


A 


LF 


=X'A 






71 


0210 


0052 


A 


IR 


='R'/256 




72 


0210 


005F 


A 


BS 


=X'5F 




; BACK ARROW 


73 


0210 


0023 


A 


HMARK 


=X'23 




; POUND SIGN 


74 


0210 


003F 


A 


QMARK 


= '? 7256 




75 


0210 


002D 


A 


PCHAR 


= '- 7256 


; PROMPT CHAR 


76 


0210 


0010 


A 


STKSZ 


= 16 




;STACK SIZE 


77 


0210 


0010 


A 


STSZ 


=STKSZ 






78 


0210 


0000 


A 


R0 


=0 




;REGISTER 0 


79 


0210 


0001 


A 


Rl 


=1 




; REGISTER 1 


80 


0210 


0002 


A 


R2 


= 2 




; REGISTER 2 


81 


0210 


0003 


A 


R3 


= 3 




; REGISTER 3 


82 


0210 








.IF 


— TMP1 (\ 
Xrlxr J. u 




83 


0210 


0018 


A 


GPCS 




018 




84 


0210 








.ENDIF 






85 


0210 








.PAGE 






86 


0210 






DEBUG1 : 








87 


0210 


4000 


A 




PUSH 


R0 


; SET DUMMY DEBUG RETURN ON STACK 


88 


0211 


2C14 


B 




JSR@ 


SAVRIA 


; SAVE FLAGS AND REGISTERS 


89 


0212 


8104 


A 




LD 


R0 r JMPI 




90 


0213 


A000 


A 




ST 


R0,0 


; STORE 'JMP @3 ' AT LOCATION 0 


91 


0214 


8103 


A 




LD 


R0,DIA 




92 


0215 


A003 


A 




ST 


R0 f 3 




93 


0216 


213B 


A 




JMP 


DEBUG2 




94 


0217 






f 








95 


0217 


2403 


A 


JMPI: 


JMP 


£3 




96 


0218 


0250 


T 


DIA: 


.WORD 


DEBUG 




97 


0219 








.PAGE 






98 


0219 














99 


0219 


03CF 


T 


HBASEA: 


.WORD 


HTAB 




100 


021A 


03EF 


T 


HRBASA: 


.WORD 


HRTAB 




101 


021B 


0403 


T 


DRBASA: 


.WORD 


DRTAB 




102 


021C 








.PAGE 






103 


021C 






; PSEUDO BASE 


PAGE 




104 


021C 


021C 


T 


DBASE=. 








105 


021C 








.IF 


-IMP16 




106 


021C 


0000 


A 


LECOI 




.-DBASE 




107 


021C 


0420 


T 




.WORD 


LECHOI 




108 


021D 


0001 


A 


LECOA 




. -DBASE 




109 


021D 


0423 


T 




.WORD 


ECHOA 




110 


021E 


0002 


A 


LTYPI 




.-DBASE 




111 


021E 


0494 


T 




.WORD 


LTYPEI 





2 



DEBUG 



112 


021F 


0003 


A 


LTYPA 






-DBASE 


113 


021F 


0499 


T 






.WORD TYPE A 


114 


0220 










. ENDIF 




115 


0220 


0004 


A 


APTOP 






-DBASE 


116 


0220 


05BA 


T 






.WORD PTOP 


117 


0221 


0005 


A 


LPUT2C 




. -DBASE 




118 


0221 


04B2 


T 






.WORD 


PUT2C 


119 


0222 


0006 


A 


LPCRLF 


= 


-DBASE 




120 


0222 


04AC 


T 






• WORD 


PCRLF 


121 


0223 


0007 


A 


LPUTC 




. -DBASE 




122 


0223 


0496 


T 






.WORD 


PUTC 


123 


0224 


0008 


A 


LGETC 


_ 


. -DBASE 




124 


0224 


0422 


T 






• WORD 


GETC 


125 


0225 


0009 


A 


LRTEST 




-DBASE 




126 


0225 


04DF 


T 






• WORD 


RTEST 


127 


0226 


000A 


A 


LTCRLF 


— 






128 


0226 


04D9 


T 






.WORD 


TCRLF 


129 


0227 


000B 


A 


LEXPR 









130 


0227 


0538 


T 






.WORD 


EXPR 


131 


0228 


000C 


A 


LINPUT 


_ 


-nRASF 




132 


0228 


0417 


T 






.WORD 


INPUT 


133 


0229 


000D 


A 


LRCHAR 




.-DBASE 




134 


0229 


052A 


T 






.WORD 


RCHAR 


135 


0 22A 


000E 


A 


LVALUE 




. -DBASE 




136 


022A 


04EF 


T 






.WORD 


VALUE 


137 


022B 


000F 


A 






.-DBASE 




138 


022B 


0503 


T 






• WORD 


ADDR 


139 


022C 


0010 


A 


LP RANGE 




. -DBASE 




140 


022C 


05AF 


T 






.WORD 


PRANG E 


141 


022D 


0011 


A 


LOUTPUT 





. -DBASE 




142 


022D 


05C0 


T 






.WORD 


OUTPUT 


143 


022E 


0012 


A 






. -DBASE 




144 


022E 


0632 


T 






.WORD 


RESTOR 


145 


022F 


0013 


A 


LALPHA 


= 


.-DBASE 




146 


022F 


025F 


T 






.WORD OUT 


147 


0230 


0014 


A 


LPUTBLK 




.-DBASE 




148 


0230 


05F7 


T 






.WORD 


PUTBLK 


149 


0231 


0015 


A 


LPUT4H 




.-DBASE 




150 


0231 


04BB 


T 






.WORD 


PUT4H 


151 


0232 


0016 


A 


LHOK 


_ 


.-DBASE 




152 


0232 


02C4 


T 






.WORD 


HOK 


153 


0233 


0017 


A 


LRANGF 




. -DBASE 




154 


0233 


0505 


T 






.WORD 


RANGE 


155 


0234 


0018 


A 


LTTERM 




.-DBASE 




156 


0234 


04E7 


T 






.WORD 


TTERM 


157 


0235 


0019 


A 


t nnTw 

LiUU X Vt 




.-DBASE 




-L ~> O 


0?3S 
w & j j 




J. 






.WORD 


OUTW 




u £ o u 


den a 




JjrU IrtlJK 




.-DBASE 




1 fid 
-L U U 


0 ?^fi 




J. 






.WORD 


PUTADR 


161 


Pi? 37 

V O 1 


CI PI 1 R 


A 
r\ 


r pnci 

l_ix\U v 




. -DBASE 




162 


PJ?37 

V J 1 




T 






.WORD 


RD0 


1 fi3 




0101 C 


ri 


JjVJU ILL 




.-DBASE 




164 


0238 


0336 


T 






.WORD 


OUTCL 


165 


0239 


001D 


A 


VCOM 




=. -DBASE 




166 


0239 


002C 


A 






.WORD 


\ 7256 


167 


023A 


001E 


A 


ESCEX 




=. -DBASE 


168 


023A 


023B 


T 






. = .+1 




169 


023B 


001F 


A 


EXPEX 




=. -DBASE 




170 


023B 


023C 


T 






. = .+1 




171 


023C 


0020 


A 


OVREX 




=. -DBASE 




172 


023C 


023D 


T 






. = .+1 




173 


023D 


0021 


A 


RPTR 




=. -DBASE 





;ESC EXIT 

;EXPR ERROR EXIT 

;OVER TABLE SIZE EXIT 



3 



DEBUG 



174 


023D 


0000 


A 




.WORD 


0 




175 


023E 


0022 


A 


CL 


=. -DBASE 






176 


023E 


0000 


A 




.WORD 


0 


; CURRENT LOCATION 


177 


023F 


0023 


A 


RWORD 


=. -DBASE 






178 


023F 


0240 


T 




. = .+1 




; 'R' RELOCATION 


179 


0240 


0024 


A 


LCHAR 


=. -DBASE 






180 


0240 


0241 


T 




. = .+1 




; LAST CHAR 


181 


0241 


0025 


A 


FMT 


=. -DBASE 






182 


0241 


0000 


A 




.WORD 


0 


; FORMAT 


183 


0242 


0026 


A 


DELTA 


=. -DBASE 






184 


0242 


0243 


T 




. = .+1 




; INCREMENT/DECREMENT 


185 


0243 














186 


0243 






; PARAMETERS FOR 


-iALT/SNAP 




187 


0243 






; 








188 


0243 


0027 


A 


HENT 


=. -DBASE 






189 


0243 


0000 


A 




.WORD 


0 


; HALT TABLE ENTRY 


190 


0244 


0028 


A 


HPTR 


=. -DBASE 






191 


0244 


03CF 


T 




.WORD 


HTAB 


;HALT TABLE POINTER TO NEXT AVAILABLE 


192 


0245 


0029 


A 


HBASE 


=. -DBASE 






193 


0245 


03CF 


T 




.WORD 


HTAB 


; HALT TABLE BASE LOCATION 


194 


0246 


002A 


A 


HMAX 


— . — UtJAbCi 






195 


0246 


03EB 


T 




.WORD 


HSZ-1M+HTAB 


; HALT TAB MAX ENTRY LOCATION 


196 


0247 


002B 


A 


HRPTR 


=. -DBASE 






197 


0247 


03EF 


T 




.WORD 


HRTAB 


;HALT RANGE TAB CURRENT POINTERS 


17Q 


01 9 A R 


0101 or 

YJ t) Z. Iw 


A 
ft 


HRBASE 


=. -DBASE 






199 


0248 


03EF 


T 




.WORD 


HRTAB 


;HALT RANGE TAB BASE LOCATION 


200 


0249 


002D 


A 


HRMAX 


=. -DBASE 






201 


0249 


0401 


T 




.WORD 


HRSZ-1*2+HRTAB 


; HRTAB MAX ENTRY LOCATION 


202 


024A 


002E 


A 


SCODE 


=. -DBASE 






203 


024A 


2C10 


B 




JSR 


@ADSRUN 


;SNAP RUN CALL 


204 


024B 


002F 


A 


SCODEB 


=. -DBASE 






205 


024B 


2C12 


B 




JSR 


@ASRUNB 


;CALL TO SNAPB 


Zab 




(7i (7i i n 
v v 6 a 


A 


HCODE 


=. -DBASE 






207 


024C 


2C11 


B 




JSR 


@ADHRUN 


?CALL TO HALT 


208 


024D 


0031 


A 


HCODEB 


=. -DBASE 






209 


024D 


2C13 


B 




JSR 


@AHRUNB 


; CALL TO HALTB 


210 


024E 


0032 


A 


CODE 


=. -DBASE 






211 


024E 


024F 


T 




. = .+1 






212 


024F 


0033 


A 


CODEB 


=. -DBASE 






213 


024F 


0250 


T 




. = .+1 






214 


0250 








.PAGE 






215 


0250 








.LOCAL 






216 


0250 






; NEED 


TO SAVE REGISTERS EVEN ON 


INITIALIZATION ENTRANCE 


217 


0250 






DEBUG: 








218 


0250 


4000 


A 




PUSH 


R0 


SET DUMMY DEBUG RETURN ON STACK 


219 


0251 


2C14 


B 




JSR@ 


SAVRIA 




220 


0252 


4F38 


A 


DEBUG2: 


LI R3 


, TTYAD 




221 


0253 


0605 


A 




ROUT 5 






222 


0254 








.IF -IMP16 




223 


0254 


8D05 


A 




LD R3 


,CPAD 




224 


0255 


0418 


A 




RIN GPCS 




225 


0256 


8D1D 


A 




LD R3 


,$2 




226 


0257 


4801 


A 




AISZ R0 


,1 




227 


0258 


2102 


A 




JMP $INIT 




228 


0259 


2105 


A 




JMP OUT 




229 


025A 


0760 


A 


CP AD: 


.WORD 0760 




230 


025B 














231 


025B 


9300 


A 


$INIT: 


LD R0,@LECOI (R3) 




232 


025C 


B301 


A 




ST R0 


, @LECOA(R3) 




233 


025D 


9302 


A 




LD R0,@LTYPI (R3) 




234 


025E 


B303 


A 




ST R0,@LTYPA(R3) 





DEBUG 



235 


025F 








. END IF 






236 


025F 














237 


025F 


2F06 


A 


OUT : 


JSR 


@LPCRLF (R3) 




238 


0260 


4C2D 


A 




LI 


R0 , PCHAR 


; OUTPUT 


239 


0261 


2F07 


A 




JSR 


@LPUTC (R3) 


; PROMPT 


240 


0262 






• INTIALIZE PARAMETERS 




241 


0262 


4C00 


A 




LI 


R0 , 0 




242 


0263 


A323 


A 




ST 


R0 .RWORD { 


•REG RELOCATION 


243 


0264 


4C01 


A 




LI 


R0 , 1 




244 


0265 


A326 


A 




ST 


R0, DELTA (R3) 


: INC /DECREMENT 


245 


0266 


8129 


A 




LD 


R0 , AERADR 




246 


0267 


A31F 


A 




ST 


R0,EXPEX(R3) 


;EXPR EXIT 


247 


0268 


8132 


A 




LD 


R0 , ESCADR 


248 


0269 


A31E 


A 




ST 


R0,ESCEX(R3) 


•ESCAPE EXIT 


249 


026A 


8132 


A 




LD 


R0 , OVRADR 


•TART.P DVPR 


250 


026B 


A320 


A 




ST 






251 


026C 






? GET 


CHARACTER 


DRIVER 




252 


026C 


2F0C 


A 




JSR 


0LINPUT ( R ^ ) 


•NON-BLANK 


253 


026D 


A121 


A 




ST 


R0 , TEND 


254 


026E 






; WILL 


FIND CHAR 


LAST IF NO MATCH 




255 


026E 


892D 


A 




LD 


R2 , CTADR 


; CONTROL TABLE 


256 


026F 


F200 


A 


$1 : 


SKNE 


R0 . ( R2 ) 




257 


0270 


2102 


A 




JMP 


CFND 


• FOUND 


258 


0271 


4A02 


A 




AISZ 


R2 , 2 


259 


0272 


21FC 


A 




JMP 


■? J- 




260 


0273 






CFND: 




• POINT TO 


261 


0273 


2601 


A 




JMP 


0 1 ( R ? 1 


: ADDRESS 


262 


0274 










•b to rnnp 


263 


0274 


021C 


T 


$2 : 


.WORD 






264 


0275 








. PAGE 






265 


0275 








. LOCAL 






266 


0275 


0041 


A 


CTAB: 


.WORD 


'A '/256 




267 


0276 


034B 


T 




.WORD 


ALTER 




268 


0277 


0043 


A 




.WORD 


'C '/S^fi 

V* / £ -J \J 




269 


0278 


03 AD 


T 




.WORD 


CHAR 




270 


0279 


0054 


A 




. WORD 






271 


027A 


0 3AB 


T 




• WORD 


TVPP 




272 


027B 


004D 


A 




.WORD 


1*1 / £m JU 




273 


027C 


036A 


T 




.WORD 


MDVP 




274 


027D 


0047 


A 




. WORD 


Vj / Z 3D 




275 


027E 


033E 


T 




. WORD 






276 


027F 


0048 


A 




• WORD 


n / c. D D 




277 


0280 


02B1 


T 




• WORD 


Ha r t 




278 


0281 


0046 


A 




.WORD 


'F'/256 




279 


0282 


0383 


T 




.WORD 


FIND 




280 


0283 


004E 


A 




wORn 

. W \JX\L) 


N /ZOO 




281 


0284 


039E 


T 




• WORD 


NOTE 




282 


0285 


0053 


Ti 
t\ 




. WORD 


'S'/256 




283 


0286 


02D1 


T 




.WORD 


SNAP 




284 


0287 


0052 


A 




.WORD 


'R'/256 




285 


0288 


02A3 


T 




.WORD 


RESET 




286 


0289 


005F 


A 




.WORD 


BS 




287 


028A 


03A2 


T 




.WORD 


BSCODE 




288 


028B 


000A 


A 




.WORD 


LF 




289 


028C 


03A5 


T 




.WORD 


r.prnnp 




290 


028D 


000D 


A 




.WORD 


CR 




291 


028E 


0 3A6 


T 




.WORD 


CRCODE 




292 


028F 


0000 


A 


CEND: 


.WORD 


0 




293 


0290 


0291 


T 


AERADR: 


.WORD 


AEREX 




294 


0291 








.PAGE 






295 


0291 








. LOCAL 


5 





DEBUG 



296 


0291 






; STANDARD ERROR 


EXIT 




297 


0291 


4C3F 


A 


AEREX: 


LI 


R0 , QMARK ; ? 


298 


0292 


2101 


A 




JMP 


ERR 




299 


0293 


4C23 


A 


ESC: 


LI 


R0 , HMARK ; 


300 


0294 


2F07 


A 


ERR: 


JSR 


@LPUTC(R3) ; OUTPUT CHAR 


301 


0295 


2F06 


A 




JSR 


@LPCRLF(R3) 




302 


0296 






; CLEAR 


STACK 






303 


0296 






CLEAR: 








304 


0296 


4E10 


A 




LI 


R2,STKSZ 




305 


0297 


4400 


A 


$2: 


PULL 


R0 




306 


0298 


4AFF 


A 




AISZ 


R2,-l 




307 


0299 


21FD 


A 




JMP 


$2 




308 


029A 


21C4 


A 




JMP OUT 




309 


029B 


0293 


T 




.WORD 


ESC 




J J. V 




01 97 R 


1 


CTADR: 


.WORD 


CTAB ; CTAB ADDRESS 


311 


029D 


029E 


T 


OVRADR : 


.WORD 


OVER 




312 


029E 






OVER: 








313 


029E 


2F06 


A 




JSR 


@LPCRLF (R3) 




314 


029F 


8102 


A 




LD 


R0,VOV 




315 


02A0 


2F05 


A 




JSR 


@LPUT2C(R3) ;OUTPUT 2 CHAR 


316 


02A1 


21F4 


A 




JMP 


CLEAR ; CLEAR STACK 


317 


02A2 


4F56 


A 


VOV: 


. WUKD 


'OV' ;OVER TABLE SIZE 


318 


02A3 








.PAGE 






319 


02A3 






; RESET 


HALT/LOOPS 






320 


02A3 








.LOCAL 






321 


02A3 






RESET: 








322 


02A3 


2F0C 


A 




JSR 


@LINPUT(R3) ; ASSUME CR 


323 


02A4 


4E00 


A 




LI 


R2,0 




324 


02A5 


AB27 


A 




ST 


R2,HENT(R3) 




325 


02A6 


8B2C 


A 




LD 


R2,HRBASE(R3) 


RESTORE H/R PTR 


326 


02A7 


AB2B 


A 




ST 


R2 r HRPTR(R3) 




327 


02A8 


8B28 


A 




LD 


R2,HPTR(R3) 


> HALT TABLE PTR 


328 


02A9 


F906 


A 


<l • 
?± . 


SKNE 


R2, HBASEB 


ANY ENTRIES 


■j t. ? 


pi 9 a a 

v Ann 


971 


A 
rV 




JMP 


@LALPHA (R3) 


•EMPTY-EXIT 


330 


02AB 


4AFC 


A 




AISZ 


R2,-4 


• PTR ALWAYS +2 


331 


02 AC 


AB28 


A 




ST 


R2 ,HPTR (R3) 


• UPDATE HPTR 


332 


02 AD 


8601 


A 




LD 


R1,1(R2) 


• CODE REPLACES 


333 


02AE 


B600 


A 




ST 


R1,§(R2) 


• REPLACED 


334 


02AF 


21F9 


A 




JMP 


$1 


•ANY MORE 


335 


02B0 














336 


02B0 


03CF 


T 


HBASEB: 


' .WORD 


HTAB 




337 


02B1 








.PAGE 






338 


02B1 








.LOCAL 






339 


02B1 


2F16 


A 


HALT: 


JSR 


@LHOK(R3) 




340 


02B2 






; R3 HAS HPTR 






341 


02B2 


8324 


A 




LD 


R0 , LCHAR (R3) 




342 


02B3 


F31D 


A 




SKNE 


R0 r VCOM(R3) 




343 


02B4 


210C 


A 




JMP 


$1 




344 


02B5 






; NOT COMMA 






345 


02B5 


4D00 


A 




LI 


R1,0 




346 


02B6 


4C00 


A 


$2: 


LI 


R0, 0 




347 


02B7 


8B28 


A 




LD 


R2,HPTR(R3) 




348 


02B8 


A602 


A 




ST 


R1,2(R2) ; STOP FIRST TIME 


349 


02B9 


A203 


A 




ST 


R0,3(R2) 




350 


02BA 


2F0A 


A 




JSR 


6LTCRLF (R3) 




351 


02BB 


271F 


A 




JMP 


@EXPEX(R3) 




352 


02BC 


8730 


A 




LD 


Rl f HCODE (R3) ;RUN CODE HALT 


353 


02BD 


B600 


A 


REPLAC: 


ST 


R1,@(R2) 




354 


02BE 


4A04 


A 




AISZ 


R2, 4 




355 


02BF 


AB28 


A 




ST 


R2,HPTR(R3) 




356 


02C0 


2713 


A 




JMP 


@LALPHA (R3) 





6 



DEBUG 



357 02C1 

358 02C2 

359 02C3 

360 02C4 

361 02C4 

362 02C4 

363 02C4 

364 02C5 

365 02C6 

366 02C7 

367 02C8 

368 02C9 

369 02CA 

370 02CB 

371 02CC 

372 02CD 

373 02CE 

374 02CF 

375 02D0 

376 02D1 

377 02D1 

378 02D1 

379 02D2 

380 02D3 

381 02D4 

382 02D5 

383 02D5 

384 02D6 

385 02D7 

386 02D8 

387 02D9 

388 02DA 

389 02DB 

390 02DB 

391 02DC 

392 02DD 

393 02DE 

394 02DF 

395 02E0 

396 02E1 

397 02E2 

398 02E3 

399 02E4 

400 02E4 

401 02E4 

402 02E4 

403 02E4 

404 02E4 

405 02E5 

406 02E6 

407 02E7 

408 02E8 

409 02E9 

410 02EA 

411 02EB 

412 02EC 

413 02ED 

414 02EE 

415 02EF 

416 02F0 



2F0C A 
2F0B A 
21F2 A 



$1: 



JSR 
JSR 
JMP 



@LINPUT(R3) 

§LEXPR(R3) 

$2 



872A 
E728 
2720 
2F0C 
2F0F 
B728 
2F09 
271F 
3681 
8200 A 
8B28 A 
A201 A 
0200 A 



2F16 A 
8324 A 
F31D A 
2101 A 



271F 
832B 
8B28 
A202 
872D 
2F17 

8B28 
8321 
A32B 
48FE 
A203 
2F0A 
271F 
872E 
21D9 



EVALUATE LOCATION OF HALT/LOOP IT MUST NOT BE 'R 
ALSO VERIFY ROOM AVAILABLE 
HOK: 



02E5 
2C14 
4801 
A1FC 
4E00 
AB25 
91F9 
79F8 
95F7 
79F6 
2F11 
81F4 
2712 



SNAP: 



$1 



LD 


Rl , HMAX (R3) 




SKG 


Rl r HPTR (R3) 




JMP 


@OVREX (R3) 


•TOO MANY 


JSR 


8LINPUT (R3) 




JSR 


@LADDR (R3) 




ST 


Rl . 0HPTR ( R2) 


• ^TORF T.DP 


JSR 


@LRTEST (R3) 




JMP 


flEXPEX ( R2) 

\_7 J-l ^» A- AJ XV V 1\ *J ) 


/ r>riO X\ 


RCPY 


Rl ,R2 




LD 


R0, (R2) 


•t.odr mnF 


LD 


R2 . HPTR CR~\\ 




ST 


R0 , 1 (R2) 


• SAVE CODE 

/ U*l V I— I WwL/U 


RTS 


0 




.PAGE 






. LOCAL 






JSR 


@LHOK (R3) 


. EVAL T.OC 

/ j-j v nu j_j w v_ 


LD 


R0 , LCHAR(R3) 




SKNE 


R0,VCOM (R3) 




JMP 


$1 




R.E FOR USE 


OF RANGE EVAL 




JMP 


@EXPEX{R3) 




LD 


R0,HRPTR(R3) 




LD 






ST 


R0,2(R2) 


; SAVE H RANGE 


LD 


Ri,HRMAX(R3) 




JSR 


@LRANGE (R3) 


?R0 HRPTR 






;R1 HRMAX 


LD 


R2,HPTR(R3) 




LD 


R0 f RPTR (R3) 


; SAVE LAST 


ST 


R0,HRPTR(R3) 




AISZ 


R0,-2 


; RANGE POINTER 


ST 


R0 f 3 (R2) 




JSR 


@LTCRLF (R3) 


;TEST IF OK 


JMP 


@EXPEX(R3) 


;TO REPLACE CODE 


LD 


Rl,SCODE(R3) 


; REPLACE 


JMP 


REPLACE 




.PAGE 







USER PRINT CALL 



$RET: 
UCALL: 



. LOCAL 

. = .+1 

JSR@ 

AISZ 

ST 

LI 

ST 

LD 

ISZ 

LD 

ISZ 

JSR 

LD 

JMP 



SAVRIA 
R0 f 1 
R0 , $RET 
R2, 0 

R2 , FMT (R3) 
R0, @$RET 
$RET 

R1,@$RET 
$RET 

§LOUTPUT(R3) 
R0 , $RET 
@LRESTOR(R3) 



;SAVE RETURN ADDRESS 

; HEX OUTPUT 

;LOAD BASE 

; LOAD TOP 
;SET UP RETURN 



7 



DEBUG 



A 1 7 
ft X 1 


OiOPl 

uzr x 






.PAGE 






A 1 Q 
4X0 


01 0 P 1 
10 Zr l 






. LOCAL 






41 Q 

4xy 


0IOP1 












A 9 01 
ft Z 10 


CI 9F1 
13 Z r 1 






CONTROL COMES HERE WHEN HALT 




4 / J. 


01 9 P 1 






LOCATION IS EXECUTED 




4 0 0 


019P1 
lOZr X 












4Z j 


n o c i 
10 Zr x 


or l A 
ZC X 4 


B HRUN: JSR@ 


SAVRIA 


;SAVE REGISTERS 


4 Z 4 


01 9P9 
10 zr z 


a "3 9 0 


A 


ST 


R0,CL(R3) 


;SAVE LOCATION OF HALT 


/IOC 
4Z3 


01 OP "3 

19 Zr J 


a i oc 
ft x z o 


A 


ST 


R0 f HRET 




4 OK 
4ZO 


01 0P4 
lo Zr 4 




; FIND HALT ENTRY IN H TABLE 




4 0 7 
ft Z 1 


01 0P4 

Btf 4 


ft 1 0 5 


A 


LD 


ROJ HRRT 




A O O 

4Zo 


01 O I? C 

lOZr 3 


OD OQ 

oozy 


A 


LD 


R9 HRA^F 1 

I\ Z r tlDftOEi V no ; 




4 OQ 

4 zy 


01 OPC 

10 Zr o 


POOIOI 
r zioei 


A $1: SKNE 


R0, (R2) 




A "3 01 
ft J V 


01 0P7 
B zr / 




A 


JMP 


$2 




4 "3 1 
4 3 X 


01 9PQ 
lOZr o 


A a 01 4 
4fttJ 4 


A 


AISZ 


R9 A 

KZ f 4 




4 "3 O 
4 JZ 


01 O PQ 

10 Zr y 


9 1 PP 
ZXr 


A 


JMP 


?>x 


•HAS TO BE THERE 


A~i1 
4jj 


01 OP2V 

10 Zr A 






ENTRY FOUND 






4 "3 4 
4 34 


01 OP A 

13 Zr A 


an 97 
AD z / 


A $2: ST 


D9 HPMT/P'3\ 
KZ r tlrjIMl (Kj) 


• SAME TABLE ENTRY 


A o t: 
4 JD 


01 O CT3 

10 zr b 


Q "3 "3 1 
033X 


A 


LD 


t)0i npnriPR / d *3 \ 




4 Jo 


W Zr L 


a "i "3 "3 
A3 3 3 


A 


ST 


tdoi ^nni?Q / ol\ 
Ka f LUJJtiO ( K J ) 




4 "3 7 
4J / 


01 0 PT~* 

10 Zr u 


7a 01 "3 
/ AI0 3 


A 


ISZ 


"3 / D 9 \ 

3 (KZ) 


•INCREMENT ITERATIONS 

f 111 V— > l\ uiiij xi x x x u i\n x x w xi u 


A 1 Q 
4 JO 


01 owe 
WZr b 


QCOtO 
OOIOZ 


A 


LD 


ni O / D O \ 
KX , Z ( KZ ; 




439 


02FF 


E603 


A 


SKG 


R1,3(R2) 




440 


0300 


2101 


A 


JMP 


HFND 


; HALT N&W 


4 41 
1 4 X 


01 "3 01 1 
13 -319 X 


91 1 Q 

Z X X 7 


A 


JMP 


HCONTU 


• CONTINUE 


A AO 
ft 4 Z 


01 "3 01 0 




;HALT 






4 4 "3 
44 J 


01 "3 01 0 
W 3 10 Z 


apoi oi 

4tw 10 10 


A HFND: LI 


R0,0 




4 4 4 
ft ft ft 


01 "301 "3 
13 310 3 


a 901 "3 

ft Z 10 3 


A 


ST 


R0,3(R2) 


•RESET COUNT 

f J.V J_i \~t J-l X ^vUH X 


44 R 
44 3 


01 "3 014 
10 J 10 4 






; PRINT CURRENT 


LOCATION 




4 4 C 
4 4b 


(At a A 
13.5104 


O Q "3 1 

z y 3 x 


A 


JSR 


PHRET 




4 4 7 
4 4/ 


01 "3 01 C 


9 7 1 "3 
Z / X 3 


A 


JMP 


@LALPHA(R3) 




A 4 Q 
4 4 0 


01 "3 01 C 
10 J 10 0 






.PAGE 






4 4 Q 
4 4 7 


a "3 oi c 

v 3 10 O 






. LOCAL 






A R(A 
4 3 v 


V 3 V D 












A R 1 
4 3 X 


10 J 10 o 






CONTROL COMES 


HERE WHEN SNAP 


T.OC TS EXECUTED 


4 c:? 
ft 3 Z 


W Ji/u 












4 R "3 
4 J J 


d "3 01 


on a 


B SRUN: JSR@ 


SAVRIA 


;SAVE REGISTERS 


4^4 
4 J4 


01 "3 01 7 
19 3 10 / 


a "3 9 9 

ft 3 Z Z 


A 


ST 


R0 f CL(R3) 


• ^AVE LOCATION OF SNAP 


4 JJ 


01 "301 ft 


a 1 1 1 

ftX X X 


A 


ST 


R0 , HRET 




jet 
4 JO 


01 "3 0IQ 






; FIND SNAP ENTRY IN HTABLE 




A R 7 
4 3/ 


Oi -3 oi a 


ft 1 1 01 
O X X 10 


A 


LD 


R0 , HRET 




4 DO 


oi "3 oi a 

10 J 10ft 


ftR9Q 


A 


LD 


R2 f HBASE (R3) 




ACQ 
4 J3 


0I"3 0IR 
Y) 3 10 D 


P90I0I 
r z lo ki 


A 


$1: SKNE 


R0 f (R2) 




4 £ CI 
4DB 


oi "3 0ir 

10 J 10 1» 


9 1 01 9 
Z X 10 Z 


A 


JMP 


$2 




A C 1 
4D1 


oi "3 oi r» 


Aa 01 A 
4AI0 4 


A 


AISZ 


R2,4 




AC 0 
4 0 Z 


0I"3 0IP 
10 3 10 & 


0 1 PP 

zxr i~ 


A 


JMP 


$1 




A CI 
4 0 J 


01 "3 01 P 

10 3 10 r 






; ENTRY FOUND 






4 C 4 
4 O 4 


01 *3 01 1? 

19 3 lor 


a D 9 7 


A 


$2: ST 


R2 , HENT (R3) 




4dj 


01 "3 1 01 
19 J X 10 


Q "3 OP 

o 3 zr 


A 


LD 


R0,SCODEB (R3) 




466 


0311 


A333 


A 


ST 


R0 f CODEB (R3) 




467 


0312 


2923 


A 


JSR 


PHRET 


; PRINT LOC 


/ICQ 
4 D O 


01 "3 1 "3 

19 J 1 j 


Q n O 7 
OrJZ / 


A 


LD 


R2,HENT(R3) 




ACQ 

4 o y 


01 "3 1 A 

10 J 1 4 


steal 
o o 19 J 


A 


LD 


Rl, 3(R2) 


• TflP RAMf3P + 9 


4 7(71 
4 / V 


01 "3 1 C 
19 3X 3 


R7 01 A 
D / 10 4 


A 


ST 


Rl , LAPTOP (R3) 




471 


0316 


8A02 


A 


LD 


R2,2(R2) 


;BASE RANGE 


472 


0317 


2F10 


A 


JSR 


^LPRANGE (R3) 




473 


0318 


2F06 


A 


JSR 


@LPCRLF(R3) 




474 


0319 


2101 


A 


JMP 


HCONTU 




475 


031A 






.PAGE 






476 


031A 












477 


031A 






• CONTROL COMES 


HERE WHEN USER INSTRUCTION IS TO BE EXECUTED 



8 



DEBUG 



478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

cn 

~> J. I 

518 
519 

c i a 

521 
522 
523 
524 
525 
526 



031A 
031A 
031A 
031A 
031A 
031A 
031B 
031C 
031D 
031E 
031F 
0320 
0321 
0322 
0323 
0324 
0325 
0325 
0325 
0325 
0325 
0325 
0325 
0325 
0325 
0326 
0327 
0328 
0329 
032A 
0325 
032B 
032B 
032B 
032B 
032B 
032B 
032C 
032D 

V J £• ij 

032F 
032F 

n n -i n 
BJOB 

0331 
0331 
0332 
0333 
0334 
0335 



HALT/SNAP LOC. THE LOCATION AFTER THE HALT/SNAP IS SET TO EXIT 
TO HRUNB/SRUNB; THE SNAP/HALT LOCATION IS RESTORED TO ITS 
ORIGINAL CONTENTS 



031B 
8B27 
8201 
B200 
8333 
8E00 
8701 
A601 
A301 
81F6 



HRET: 
HCONTU : 



; DON'T DEPEND ON R3 TO GET HALT 



2415 B 



.=.+1 




;HALT RETURN LOC 


LD 


R2,HENT(R3) 


; TABLE ENTRY OF HALT 


LD 


R0, 1 (R2) 




ST 


R0,@(R2) 


; RESTORE USER CODE 


LD 


R0,CODEB(R3) 


; SECOND HALT 


LD 


R3, (R2) 


;CODE LOC 


LD 


R1,1(R3) 


;HALT +1 CODE 


ST 


R1,1(R2) 


; SAME 


ST 


R0,1(R3) 


;NEW HALT AT L+l 


LD 


R0 , HRET 




JMP@ 


RSTRIA 





. LOCAL 

THESE ARE EXECUTED IMMEDIATELY AFTER THE USERS INSTRUCT. IN THE 
HALT/SNAP LOCATION. HRUNB/SRUNB MERELY INIT. 'CODE' FOR USE BY 
THE COMMON CODE RUNB 



2C14 B 
8730 A 
2103 A 
2C14 B 
872E A 
2100 A 



HRUNB: 



SRUNB: 



JSR@ 

LD 

JMP 

JSR@ 

LD 

JMP 



SAVRIA 

Rl,HCODE (R3) 

RUNB 

SAVRIA 

Rl,SCODE(R3) 

RUNB 



;SAVE REGISTERS 



A1EE A 
A732 A 
8B27 A 
8DEB A 

8201 A 
A300 A 

83FF A 
A201 A 
A7FF A 
81E5 A 
2415 B 



CONTROL COMES HERE AFTER INSTRUCTION IN HALT/SNAP LOC. IS 
EXECUTED. IT WILL BE ALTERED TO EXIT TO H RUN /S RUN ; THE LOCATION 
FOLLOWING THE HALT/SNAP WILL BE RESTORED 

SECOND HALT TO RESTORE HALT AT PREVIOUS LOC 
RUNB: ST R0 , HRET 

ST Rl,CODE(R3) 

LD R2 ,HENT (R3) ;LOC OF LAST H TAB 

LD R3,HRET ;LOC OF HALT B 

; REPLACE CURRENT HALT B WITH ITS CODE 



LD 

ST 

REPLACE HALT 
LD 
ST 
ST 
LD 
JMP? 



527 0336 

528 0336 OUTCL: 

529 0336 PHRET: 

530 0336 

531 0336 2F06 A 

532 0337 8105 A 

533 0338 2F05 A 

534 0339 2F14 A 

535 033A 8322 A 

536 033B 2F15 A 

537 033C 0200 A 

538 033D 434C A CLCHAR: 



.PAGE 



JSR 

LD 

JSR 

JSR 

LD 

JSR 

RTS 

.WORD 



R0,1 (R2) 
R0, (R3) 

R0,-1(R3) 
R0, 1 (R2) 
Rl,-1 (R3) 
R0 , HRET 
RSTRIA 



@LPCRLF (R3) 

R0, CLCHAR 

@LPUT2C(R3) 

@LPUTBLK(R3) 

R0,CL(R3) 

@LPUT4H(R3) 

0 

'CL' 



;CODE AT HALT A LOC 
; STORE CODE AT HALT 



; ASCI I FORMAT 



9 



DEBUG 



539 033E 

540 033E 

541 033E 2F0C A GO: 

542 033F 2P0A A 

543 0340 2104 A 

544 0341 4C00 A $1: 

545 0342 F327 A 

546 0343 271F A 

547 0344 21D6 A 

548 0345 2F0F A GOLOC: 

549 0346 3481 A 

550 0347 2712 A 



551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 



0348 

0348 

0349 

034A 

034B 

034B 

034B 

034C 

034D 

034E 

034F 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

035A 

035B 

035C 

035C 

035D 

035E 

035F 

0360 

0361 

0362 

0363 

0364 

0364 

0364 

0364 

0365 

0366 

0367 

0368 



0403 T DRPTR: 
0403 T DRBASE: 
0415 T DRMAX: 



ALTER: 



2F0C 
2F0D 
2F0C 
2F0F 
A722 
F116 
210F 
271F 
2F1A 
2F0C 
2F0E 
2F0A 
210C 
B722 
F10E 
2713 
2F1B 



ELOOP : 
$6: 



$7: 



8324 A 
F109 A 
21F5 A 
8322 A 
21F2 
4C00 
A323 
21F0 



$9: 



.PAGE 

. LOCAL 

JSR 

JSR 

JMP 

LI 

SKNE 

JMP 

JMP 

JSR 

RCPY 

JMP 

.PAGE 
.WORD 
.WORD 
.WORD 
. LOCAL 

JSR 
JSR 
JSR 
JSR 
ST 

SKNE 

JMP 

JMP 

JSR 

JSR 

JSR 

JSR 

JMP 

ST 

SKNE 

JMP 

JSR 

LD 

SKNE 

JMP 

LD 

JMP 

LI 

ST 

JMP 



@LINPUT(R3) 
@LTCRLF (R3) 
GOLOC 
R0,0 

R0 f HENT (R3) 
@EXPEX(R3) 
HCONTU 
@LADDR (R3) 
R1,R0 

@LRESTOR(R3) 



DRTAB 
DRTAB 

DRSZ-1*2+DRTAB 



@LINPUT(R3) 

@LRCHAR (R3) 

@LINPUT(R3) 

@LADDR (R3) 

R1,CL(R3) 

R0,VCOMM 

$9 

@EXPEX(R3) 
@LPUTADR (R3) 
@LINPUT(R3) 
@ LVALUE (R3) 
@LTCRLF (R3) 
$8 

R1,@CL(R3) 
R0 r VCR0 
@LALPHA (R3) 
@LRD0 (R3) 

R0,LCHAR(R3) 

R0 f VCOMM 

$6 

R0,CL(R3) 

ELOOP 

R0,0 

R0,RWORD(R3) 
$6 



;MUST BE LOC 
; ADDR TO R0 



DUMP RANGE POINTER 

DUMP RANGE BASE LOCATION 

DUMP RANGE TAB MAX ENTRY 



;GET CHAR 
;SET RWORD 



;SAVE LOC 

; VERIFY COMMA 



; PRINT ADR 

;STR OR EXP 

; ENOR EXIT 
; STORE VALUE 



rTEST FOR REG 

: AND INC CL IF OK 



CONTINUE INPUT WITHOUT PROMPT 



F102 
21F2 
271F 
002C 
000D 



MULTIPLE WORD ALTER WITHOUT REPROMPT 
TEST FOR COMMA 

$8: SKNE R0,VCOMM 

JMP $7 

JMP @EXPEX(R3) 

VCOMM: .WORD ','/256 

VCR0: .WORD CR 



591 0369 .PAGE 

592 0369 .LOCAL 

593 0369 036A T FVALU: .=.+1 

594 036A 2F0C A MOVE: JSR @LINPUT(R3) 

595 036B 2F0E A JSR @LVALUE(R3) 

596 036C FIFA A SKNE R0,VCOMM 

597 036D 2101 A JMP $0 

598 036E 271F A JMP @EXPEX(R3) 

599 036F $0: 



;GET FIRST CHAN 
; VERIFY COMMA 
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DEBUG 



600 


036F 


TV c p n 

Abr y 


A 




em 


di FVALU 


• SAVE 


601 


a i "l Ck 

03 /0 


81D8 


A 

A 




r n 

LiL) 






602 


n O "7 1 

03 /I 


8bl0 


A 




t n 


p 1 DRTOP 




603 


0372 








TTT3 DAVff^I? 

Ur KAWIjCi 


TJADJMQ 




604 


037 2 


Op 1 T 

2r 1 / 


A 




tcd 






605 


0 3 / j 


2r 0A 


A 

A 




TCP 


AT TPRT.P fRl^ 




c n e. 

606 


01 "3 "7 /I 

0 j / 4 


2 /It 


A 

A 




TMR 


QFXPFX f R" 5 .} 

VjG AXr Ei A V X^J / 




607 


03 /b 


Q 1 nl 

81F 3 


A 




T r» 

LiU 


pfl PVAT.n 




608 


03 76 


89D2 


A 




LiD 


f\Z f UxxIJriO £j 




609 


0377 


o c n n 

860 0 


A 


?2 : 




Pi i'POI 
Ki. , I KZ J 


• anr»p to qtorp uir rip 


610 


03 /8 


O C O Ck 

3680 


A 


?1 : 




Rl R"? 
KJ. f KZ 


• DriT anr>R tm r9 


611 


03 /9 


A200 


A 




em 
bl 


P 0i f R "5 \ 




612 


037A 


3680 


A 




RXCH 


Rl,R2 


; FU 1 WUKKINO KF1K IN K2 


613 


037B 


4901 


A 




AISZ 


Rl f 1 


. TKir*pPMi?\i'T' Ar»r>p 
; INLKEiMriJN 1 AJJ1JK 


C 1 A 

614 


Ck o "7 r* 

037C 


E601 


A 




SKG 


Rl, 1 (R2) 




615 


0 37D 


21FA 


A 




JMP 


$1 




616 


037E 


4A02 


A 




AISZ 


R2,2 




617 


03 7F 


FB21 


A 




SKNE 


R2,RPTR(R3) 




618 


0 J80 


2 / 1 2 


A 




JMP 


@LALPHA (R3) 




619 


0 J81 


TICK 

21r b 


A 




JMP 


$2 




C 1 Ck 

620 


0 J82 














621 


O O 1 

0382 






OA MP 


AS DRBASA AND DRMAX 




622 


0382 






m /~\ T~\ 

; TUF 


IS LAST 


ENTRY OF TABLE TO 


BE FILLED 


623 


0382 














624 


0382 


041b 


m 
1 


DRTOP: 


.WORD 


DRSZ-1*2+DRTAB 


c ") c 
62b 


0 Jo J 








.PAGE 






C c 

626 


Ck o o o 
0383 








. LOCAL 






627 


0383 


2F0C 


A 


FIND: 


JSR 


@LINPUT (R3) 




628 


O O A 

0384 


2F0E 


A 




JSR 


@ LVALUE (R3) 




62y 


0 Job 


Abb J 


A 

A 




ST 


Rl , FVALU 




630 


0 386 


81L2 


A 




LD 


R0 ,DRBASE 




631 


0387 


8 5FA 


A 

A 




LD 


Rl, DRTOP 




632 


0388 






; RANGE DOES INPUT OF FIRST CHAR REQUIRED 


c o o 

633 


0388 


2r 1 / 


A 




JSR 


SLRANGE (R3) 




6 J4 


01 "J Q Q 

0 j 8 y 


1 T? 01 A 

zr 0A 


A 

A 




JSR 


@LTCRLF (R3) 




£ 1 c 

635 


(k *D O 7V 

0 38A 


2 /Ir 


A 

A 




JMP 


@EXPEX(R3) 




636 


038B 


7F21 


A 




DSZ 


RPTR (R3) 




637 


038C 


7F21 


A 




DSZ 


RPTR (R3) 




638 


03 8D 


89BB 


A 




LD 


R2 , DRBASE 




639 


038E 


8600 


A 


$2: 


LD 


Rl, (R2) 




640 


038F 


3680 


A 


$1: 


RXCH 


R1,R2 


; PUT ADDR IN R2 


641 


0390 


8200 


A 




LD 


P 01 /P9\ 


;GET NEXT LOG IN RANGE 


642 


0391 


3680 


A 




RXCH 


R1,R2 


• PUT WORKING RPTR IN R2 


643 


0392 


F1D6 


A 




SKNE 


R0 , FVALU 




644 


0393 


2107 


A 




JMP 


SFND 




645 


0394 


4901 


A 




AISZ 


Rl,l 




646 


0395 


E601 


A 




SKG 


R1,1(R2) 




647 


0396 


21F8 


A 




JMP 


$1 




648 


0397 


4A02 


A 




AISZ 


R2,2 




649 


0398 


EB21 


A 




SKG 


R2,RPTR(R3) 


; LAST RANGE PAIR? 


650 


0399 


21F4 


A 




JMP 


$2 




651 


039A 


2713 


A 




JMP 


@LALPHA(R3) 




652 


039B 


A722 


A 


SFND: 


ST 


R1,CL(R3) 


; LOC FOUND IS CL 


653 


039C 


2F1L 


A 




JSR 


@L0UTCL(R3) 




654 


039D 


2713 


A 




JMP 


@LALPHA(R3) 




655 


039E 












; TEMP INDEX INTO RANGE 


656 


039E 








.PAGE 






657 


039E 


2F0C 


A 


NOTE: 


JSR 


§LINPUT(R3) 




658 


039F 


2F0A 


A 




JSR 


@LTCRLF(R3) 




659 


03A0 


21FD 


A 




JMP 


NOTE 


;N0T CR/LF 


660 


03A1 


2713 


A 




JMP 


§LALPHA(R3) 




661 


03A2 






* 
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DEBUG 



662 


03A2 






* 








663 


03A2 














664 


03A2 


2F06 


A 


BSCODE: 


JSR 


@LPCRLF(R3) 




665 


03A3 


4DFF 


A 




LI 


Rl,-1 




666 


03A4 


A726 


A 




ST 


Rl, DELTA (R3) 


DECREMENT 


667 


03A5 






7 








668 


03A5 


2F1B 


A 


LFCODE: 


JSR 


@LRD0 (R3) 


INCREMENT VALID 


669 


03A6 






7 








670 


0 3A6 


8322 


A 


CRCODE: 


LD 


R0,CL(R3) 




671 


03A7 


2F1A 


A 




JSR 


@LPUTADR (R3) 




672 


03A8 


9322 


A 




LD 


R0,@CL (R3) 




673 


03A9 


2F19 


A 




JSR 


@LOUTW(R3) 




674 


0 3AA 


2713 


A 




JMP 


@LALPHA (R3) 




675 


0 3AB 






7 








676 


03AB 






i 








677 


03AB 








.LOCAL 






678 


03AB 


4D00 


A 


TYPE: 


LI 


Rl, 0 




679 


03 AC 


2101 


A 




JMP 


$1 




680 


0 3AD 


4D01 


A 


CHAR: 


LI 


Rl, 1 




681 


03AE 


A725 


A 


$1: 


ST 


Rl , FMT (R3) 


; ASCII FORMAT 


682 


03AF 


8199 


A 




LD 


R0 , DRBASE 




683 


03B0 


85D1 


A 




LD 


Rl,DRTOP 




684 


03B1 






; RANGE 


REQUIRES BASE/TOP OF TABLE 


685 


03B1 






; IT WILL FILL 






686 


03B1 


2F17 


A 




JSR 


@LRANGE (R3) 




687 


03B2 


2F0A 


A 




JSR 


@LTCRLF (R3) 


; TEST FOR CR/LF 


688 


03B3 


271F 


A 




JMP 


@EXPEX(R3) 


; ERROR EXIT 


689 


03B4 


8B21 


A 




LD 


R2,RPTR(R3) 


; NEXT RANGE LOC 


690 


03B5 


4AFE 


A 




AISZ 


R2,-2 


; LAST OF CONCERN 


691 


03B6 


BB04 


A 




ST 


R2,@APTOP(R3) 


; PRANGE PARAM 


692 


03B7 


8991 


A 




LD 


R2, DRBASE 




693 


03B8 


2F10 


A 




JSR 


@LPRANGE (R3) 


; PRINT RANGE 


694 


03B9 


2713 


A 




JMP 


@LALPHA (R3) 




695 


03BA 








.PAGE 






696 


03BA 


03CF 


T 


REGA: 


.=.+21 






697 


03CF 


03EF 


T 


HTAB: 


.=HSZ*4+. 


;H/L TABLE 


698 


03EF 


0403 


T 


HRTAB: 


.=HRSZ*2+. 


;HR TABLE 


699 


0403 


0417 


T 


DRTAB: 


.=DRSZ 


*2+. 


;DR TABLE 


700 


0417 








.PAGE 






701 


0417 








.LOCAL 






702 


0417 


290A 


A 


INPUT: 


JSR 


GETC 




703 


0418 


F105 


A 




SKNE 


R0 , NULL 




704 


0419 


21FD 


A 




JMP 


INPUT 




705 


041A 


F102 


A 




SKNE 


R0, BLANK 


;SKIP TO NON BLANK 


706 


041B 


21FB 


A 




JMP 


INPUT 




707 


041C 


0200 


A 




RTS 


0 




708 


041D 


0020 


A 


BLANK: 


.WORD 


' '/256 




709 


041E 


0000 


A 


NULL: 


.WORD 


0 




710 


041F 


007F 


A 


H7F: 


.WORD 


X'7F 




711 


0420 


FFF5 


A 


DELAY 




0FFF5 




712 


0420 


FFF6 


A 


DELAY1 




0FFF6 




713 


0420 


2920 


A 


LECHOI : 


JSR 


LTECHO-3 




714 


0421 


7E73 


A 


PTECHO: 


.WORD 


07E73 




715 


0422 


2942 


A 


GETC: 


JSR 


SAVE 




716 


0423 


2DFD 


A 


ECHOA: 


JSR@ 


PTECHO 




717 


0424 


A162 


A 




ST 


0 , SRREG 




718 


0425 


2950 


A 




JSR 


REST 




719 


0426 


61F8 


A 




AND 


0,H7F 




720 


0427 


A324 


A 




ST 


R0 , LCHAR (R3) 




721 


0428 








. ENDIF 




722 


0428 


F16A 


A 




SKNE 


R0,VLF 


?LF 
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DEBUG 



723 0429 217E A JMP PCR 

724 042A F167 A SKNE R0,VCR ;CR 

725 042B 2416 I JMP PLF 

726 042C F164 A SKNE R0,VESC ;ESC 

727 042D 271E A JMP @ESCEX(R3) 

728 042E 0200 A RTS 0 

729 042F .IF -IMP16 



730 


042F 








.PAGE 




731 


042F 








. LOCAL 




732 


042F 


0038 


A 


TTYAD 




7*8 


733 


042F 


0A80 


A 


LTTYT: 


PFLG 


2 


734 


0430 


4C30 


A 




LI 


0,X'30 


735 


0431 


03F6 


A 




JSRI 


DELAYl 


736 


0432 


4E09 


A 


$0: 


LI 


2,9 


737 


0433 


0A80 


A 




PFLG 


2 


738 


0434 


4C00 


A 




LI 


0,0 


739 


0435 


4F38 


A 




LI 


3, TTYAD 


740 


0436 


0603 


A 




ROUT 


3 


741 


0437 


58FF 


A 




ROR 


0,1 


742 


0438 


03F5 


A 


$2: 


JSRI 


DELAY 


743 


0439 


5829 


A 




ROL 


0,TA 


744 


043A 


4AFF 


A 


$3: 


AISZ 


2,-1 


745 


043B 


2101 


A 




JMP 


$5 


746 


043C 


2104 


A 




JMP 


$7 


747 


043D 


59FF 


A 


$5: 


ROR 


1,1 


748 


043E 


3481 


A 




RCPY 


1,0 


749, 


043F 


0603 


A 


$6: 


ROUT 


3 


750 


0440 


21F7 


A 




JMP 


$2 


751 


0441 


4CFF 


A 


$7: 


LI 


0,-1 


752 


0442 


0603 


A 




ROUT 


3 


753 


0443 


0200 


A 




RTS 





754 


0444 






.PAGE 




755 


0444 






. LOCAL 




756 


0444 


4F38 


A LTECHO: 


LI 


3, TTYAD 


757 


0445 


0A80 


A 


PFLG 


2 


758 


0446 


0605 


A 


ROUT 


5 


759 


0447 


4E08 


A 


LI 


2,8 


760 


0448 


0402 


A 


RIN 


2 


761 


0449 


0604 


A 


ROUT 


4 


762 


044A 


1201 


A 


BOC 


2, .+2 


763 


044B 


21FC 


A 


JMP 


.-3 


764 


044C 


4C09 


A 


LI 


0,EA 


765 


044D 


03F6 


A 


JSRI 


DELAYl 


766 


044E 


58EA 


A 


ROR 


0,EB 


767 


044F 


0402 


A 


RIN 


2 


768 


0450 


1201 


A 


BOC 


2, .+2 


769 


0451 


21F3 


A 


JMP 


LTECHO+1 


770 


0452 


0603 


A $14: 


ROUT 


3 


771 


0453 


03F5 


A 


JSRI 


DELAY 


772 


0454 


5826 


A 


ROL 


0,EC 


773 


0455 


0402 


A 


RIN 


2 


774 


0456 


610D 


A 


AND 


0,$M 


775 


0457 


5DFF 


A 


SHR 


1,1 


776 


0458 


3182 


A 


RXOR 


0,1 


777 


0459 


4AFF 


A 


AISZ 


2,-1 


778 


045A 


21F7 


A 


JMP 


$14 


779 


045B 


0603 


A 


ROUT 


3 


780 


045C 


03F5 


A 


JSRI 


DELAY 


781 


045D 


4CFF 


A 


LI 


0,-1 


782 


045E 


0603 


A 


ROUT 


3 


783 


045F 


03F5 


A 


JSRI 


DELAY 
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784 


0460 


0605 


A 




ROUT 


5 


785 


0461 


5DF8 


A 




SHR 


1,8 


786 


0462 


3481 


A 




RCPY 


1,0 


787 


0463 


0200 


A 




RTS 




788 


0464 


8000 


A 


$M: 


.WORD 


X'8000 


789 


0465 








.PAGE 




790 


0465 


A121 


A 


SAVE: 


ST 


0,$R 


791 


0466 


A521 


A 




ST 


1,$R+1 


792 


0467 


A921 


A 




ST 


2,$R+2 


793 


0468 


AD21 


A 




ST 


3,$R+3 


794 


0469 


4700 


A 




PULL 


3 


795 


046A 


4400 


A 




PULL 


0 


796 


046B 


A120 


A 




ST 


0, $R+5 


797 


046C 


4400 


A 




PULL 


0 


798 


046D 


A11F 


A 




ST 


0,$R+6 


799 


046E 


4400 


A 




PULL 


0 


800 


046F 


A11E 


A 




ST 


0,$R+7 


801 


0470 


4400 


A 




PULL 


0 


802 


0471 


A11D 


A 




ST 


0, $R+8 


803 


0472 


4400 


A 




PULL 


0 


804 


0473 


A11C 


A 




ST 


0,$R+9 


805 


0474 


8112 


A 




LD 


0,$R 


806 


0475 


2300 


A 




JMP 


(3) 


807 


0476 


4700 


A 


REST: 


PULL 


3 


808 


0477 


8118 


A 




LD 


0, $R+9 


809 


0478 


4000 


A 




PUSH 


0 


810 


0479 


8115 


A 




LD 


0,$R+8 


811 


047A 


4000 


A 




PUSH 


0 


812 


047B 


8112 


A 




LD 


0,$R+7 


813 


047C 


4000 


A 




PUSH 


0 


814 


047D 


810F 


A 




LD 


0,$R+6 


815 


047E 


4000 


A 




PUSH 


0 


816 


047F 


810C 


A 




LD 


0, $R+5 


817 


0480 


4000 


A 




PUSH 


0 


818 


0481 


4300 


A 




PUSH 


3 


819 


0482 


8104 


A 




LD 


0,$R 


820 


0483 


8504 


A 




LD 


1,$R+1 


821 


0484 


8904 


A 




LD 


2, $R+2 


82 2 


v *i O -J 




A 
n 








823 


0486 


0200 


A 




RTS 




824 


0487 






SRREG: 






825 


0487 


0491 


T 


$R: 


.=.+10 




826 


0491 








. ENDIF 




827 


0491 


007D 


A 


VESC: 


.WORD 


X'7D 


828 


0492 


000D 


A 


VCR: 


.WORD 


CR 


829 


0493 


000A 


A 


VLF: 


.WORD 


LF 


830 


0494 








.PAGE 




831 


0494 








. LOCAL 




832 


0494 


2995 


A 


LTYPEI : 


JSR 


LTTYT 


833 


0495 


7E59 


A 


PTTYT: 


.WORD 


07E59 


834 


0496 


6137 


A 


PUTC: 


AND 


0,VFF 


835 


0497 


29CD 


A 




JSR 


SAVE 


836 


0498 


3181 


A 




RCPY 


0,1 


837 


0499 


2DFB 


A 


TYPEA: 


JSR@ 


PTTYT 


838 


049A 


4F00 


A 




LI 


R3,0 


839 


049B 


0406 


A 




RIN 


6 


840 


049C 


5C08 


A 




SHL 


0,8 


841 


049D 


1204 


A 




BOC 


2 $1 


842 


049E 


4F38 


A 




LI 


R3 f TTYAD 


843 


049F 


0605 


A 




ROUT 


5 


844 


04A0 


29D5 


A 




JSR 


REST 
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845 


04A1 


2103 


A 




JMP 


$2+1 


846 


04A2 


29D3 


A 


$1: 


JSR 


REST 


847 


04A3 


0200 


A 




RTS 




848 


04A4 








. ENDIF 




849 


04A4 


8D02 


A 


$2: 


LD 


R3 , GTEMP 


850 


04A5 


4400 


A 




PULL 


R0 


851 


04A6 


271E 


A 




JMP 


@ESCEX(R3) 


852 


04A7 












853 


04A7 


04A8 


T 


GTEMP: 


. = .+1 




854 


04A8 








.PAGE 




855 


04A8 


4C0D 


A 


PCR: 


LI 


R0,CR 


856 


04A9 


2F07 


A 


PCR1 : 


JSR 


@LPUTC (R3) 


857 


04AA 


8324 


A 




LD 


R0,LCHAR(R 


858 


04AB 


0200 


A 




RTS 


0 


859 


04 AC 












860 


04AC 






PLFCR: 






861 


04AC 


29FB 


A 


PCRLF : 


JSR 


PCR 


862 


04 AD 


4C0A 


A 


PLF : 


LI 


R0 , LF 


863 


04AE 


21FA 


A 




JMP 


PCR1 


864 


04AF 








.PAGE 




865 


04AF 








. LOCAL 




866 


04AF 








OUTPUT 


R0 ACCORDIN 


867 


04AF 








FMT =0 


HEX 


868 


04AF 








FMT =1 


ASCII 


869 


04AF 












870 


0 4AF 






OUTW: 






871 


04AF 


4000 


A 




LI 


R1,0 


872 


04B0 


F725 


A 




SKNE 


Rl,FMT(R3) 


873 


04B1 


2109 


A 




JMP 


OUTHEX 


874 


04B2 












875 


04B2 






• OUTPUT 2 CHARS IN R0 


876 


04B2 












877 


04B2 






PUT2C: 






878 


04B2 


A107 


A 




ST 


R0 , $TEMP 


879 


04B3 


5CF8 


A 




SHR 


R0,8 


880 


04B4 


6119 


A 




AND 


R0,VFF 


881 


04B5 


2F07 


A 




JSR 


@LPUTC(R3) 


882 


04B6 


8103 


A 




LD 


R0 , $TEMP 


883 


04B7 


6116 


A 




AND 


R0,VFF 


884 


04B8 


2F07 


A 




JSR 


@LPUTC(R3) 


885 


04B9 


0200 


A 




RTS 


0 


886 


04BA 


04BB 


T 


$TEMP: 


. = .+1 




887 


04BB 












888 


04BB 






; OUTPUT R0 AS 


4 HEX CHAR 


889 


04BB 












890 


04BB 






PUT4H: 






891 


04BB 






0UT4K: 






892 


04BB 


4DFC 


A 


OUTHEX: 


LI 


Rl,-4 


893 


04BC 


A50C 


A 




ST 


Rl,$CNT 


894 


04BD 


A1FC 


A 


SI: 


ST 


R0 , $TEMP 


895 


04BE 


5CF4 


A 




SHR 


R0,12 


896 


04BF 


610D 


A 




AND 


R0,VF 


897 


04C0 


E10B 


A 




SKG 


R0 r V9 


898 


04C1 


C108 


A 




ADD 


R0,VC09 


899 


04C2 


C108 


A 




ADD 


R0 f VAM10 


900 


04C3 


2F07 


A 




JSR 


@LPUTC(R3) 


901 


04C4 


81F5 


A 




LD 


R0 , $TEMP 


902 


04C5 


5C04 


A 




SHL 


R0,4 


903 


04C6 


7902 


A 




ISZ 


$CNT 


904 


04C7 


21F5 


A 




JMP 


$1 


905 


04C8 


0200 


A 




RTS 


0 



;ESC CHAR 

; OUTPUT CR 
;R0 HAS LCHAR 



; OUTPUT CR/LF 
; OUTPUT LF 



; FIRST CHAR 



;GET CHAR 
; FORM HEX 
?VC09='0'-'A'+10 
;VAM9='A'-10 
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DEBUG 



906 04C9 04CA T $CNT: .=.+1 

907 04CA FFF9 A VC09: .WORD 

908 04CB 0037 A VAM10: .WORD 

909 04CC 0009 A V9: .WORD 

910 04CD 000F A VF: .WORD 

911 04CE 00FF A VFF: .WORD 



X'30-X'41+10 

X'41-10 

9 

X'F 
X'FF 



912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 



04CF 
04CF 
04CF 
04CF 
04D0 
04D1 
04D2 
04D3 
04D4 
04D5 
04D6 
04D7 
04D7 
04D8 
04D9 
04D9 
04D9 
04D9 
04D9 
04DA 
04DB 
04DC 
04DD 
04DE 
04DF 
04DF 
04DF 
04DF 
04E0 
04E1 
04E2 
04E3 
04E4 
04E5 
04E6 
04E7 
04E7 
04E7 
04E7 
04E7 
04E8 
04E9 
04EA 
04EA 
04EB 
04EC 
04ED 
04EE 



8722 
2F09 
2103 
C726 
A722 
0200 
C726 
2F09 

21FB 
271F 



8324 
F1B8 
0201 
F1B5 
0201 
0200 



E506 
2101 
0201 
E502 
0201 
0200 
03B9 
03CD 



.PAGE 
. LOCAL 

; TEST IF THE INCREMENT/DECREMENT OF CL REMAINS IN RANGE ALLOWED, 

RD0: LD R1,CL(R3) 

JSR @LRTEST (R3) 

JMP $2 ; IN R 

ADD Rl , DELTA (R3) 

ST Rl f CL(R3) 

RTS 0 

ADD Rl, DELTA (R3) 

JSR @LRTEST (R3) 
HAS TO BE IN R OR ERROR 

JMP $3 

JMP @EXPEX(R3) 



TEST CURRENT CHARACTER FOR LF,CR 



F148 
0201 
F145 
0201 
0200 



$3: 
$2: 



TCRLF: 



• TEST 
; SAVE 
RTEST: 



$1: 



REGAM1 
REGEND 



LD 

SKNE 

RTS 

SKNE 

RTS 

RTS 

.LOCAL 
IF Rl VALUE 
AREA 

SKG 

JMP 

RTS 

SKG 

RTS 

RTS 

. WORD 

.WORD 



R0 , LCHAR (R3) 

R0,VLF 

1 

R0,VCR 

1 

0 

IS IN REG 

Rl, REGEND 

$1 

1 

Rl , REGAMl 

1 

0 

REGA-1 
REGA+19 



? NOT FOUND 



;NOT REG SAVE 

;NOT REG SAVE 
;REG SAVE 



2F0A A 
2101 A 
0201 A 



960 04EF 

961 04EF 

962 04EF 

963 04EF 

964 04EF 

965 04EF 8324 A VALUE: 

966 04F0 F110 A 



TEST FOR LF,CR, COMMA, COLON 
. LOCAL 

TTERM: JSR @LTCRLF (R3) 

JMP $1 

RTS 1 
; R0 CONTAINS CHARACTER AS A 
$1: SKNE R0,VCOMMA 

RTS 1 

SKNE R0,VCOLON 

RTS 1 

RTS 0 

.PAGE 
.LOCAL 

GET STRING OR EXPRESSION 



; FOUND 
RESULT OF TLFCR 

; FOUND 

; FOUND 
;NOT FOUND 



LD 

SKNE 



R0 , LCHAR (R3) 
R0,VQU 
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967 


04F1 


2102 


A 






JMP 


PQUOTE 




968 


04F2 


2F0B 


A 






JSR 


@LEXPR(R3) 




969 


04F3 


0200 


A 






RTS 


0 




970 


04F4 








STRING 








971 


04F4 


4D00 


A 


PQUOTE : 


LI 


Rl f 0 




972 


04F5 


A540 


A 






ST 


Rl, RESULT 




973 


04F6 


2F08 


A 


$1: 


JSR 


@LGETC(R3) 




974 


04F7 






; POSITION LAST CHAR 




975 


04F7 


853E 


A 






LD 


Rl, RESULT 




976 


04F8 


F108 


A 






SKNE 


R0,VQU 




977 


04F9 


2105 


A 






JMP 


$2 




978 


04FA 


5D08 


A 


STSTR: 


SHL 


Rl, 8 




979 


04FB 


6506 


A 






AND 


R1,VFF00 


;R1 NEED RESULT 


980 


04FC 


3182 


A 






RXOR 


R0,R1 




981 


04FD 


A538 


A 






ST 


Rl, RESULT 




982 


04FE 


21F7 


A 






JMP 


$1 




983 


04FF 


2F0C 


A 


$2; 


JSR 


@LINPUT(R3) 


: POSITION TO CHAR PAST LAST QUOTE 


984 


0500 


0200 


A 






RTS 


0 




985 


0501 


0027 


A 


VQU: 


.WORD 


/256 




no c 


a c n o 


FF 00 


A 


VFF00: 


.WORD 


X'FF00 




987 


0503 
















988 


0503 








EVALUATE EXPR 


AND DETERMINE 




989 


0503 








IF VALID ADDR 






990 


0503 
















991 


0503 










. LOCAL 






992 


0503 






ADDR: 








993 


0503 


2F0B 


A 






JSR 


@LEXPR(R3) 




994 


0504 


0200 


A 






RTS 


0 




995 


0505 










.PAGE 






996 


0505 








INPUT: 


R0 




CURRENT ENTRY OF RANGE TABLE 


997 


0505 










Rl 




MAX RANGE TABLE ENTRY 


998 


0505 








OUTPUTS 


RPTR (RANGE TABLE ENTRY) 


UPDATED TO CURRENT ENTRY 


999 


0505 










TABLE UPDATED 




1000 


0505 










. LOCAL 






1001 


0505 


A321 


A 




RANGE: 


ST 


R0,RPTR(R3) 


: CURRENT 


1002 


0506 


A522 


A 






ST 


Rl , RMAX 


;MAX 


1003 


0507 


2F0C 


A 




MORER: 


JSR 


@LINPUT(R3) 


;NON/BLANK CHAR 


1004 


0508 


4E00 


A 






LI 


R2,0 




1005 


0509 


AB23 


A 






ST 


R2,RWORD(R3) 


; RESET REG LOC 


1006 


050A 


8B21 


A 






LD 


R2,RPTR(R3) 




1007 


050B 


E91D 


A 






SKG 


R2 , RMAX 


; EXCEED TABLE 


1008 


050C 


2101 


A 






JMP 


$0 




1009 


050D 


2720 


A 






JMP 


@OVREX(R3) 


;SIZE 


1010 


050E 






$0: 








1011 


050E 


2F0D 


A 






JSR 


@LRCHAR (R3) 


;TEST FOR 'R' 


1012 


050F 






» 






AND UPDATE RWORD 


1013 


050F 


2110 


A 






JMP 


RR 


; FOUND 


1014 


0510 






j NOT AI 


i 'r ' 






1015 


0510 


2F0F 


A 


$3: 


JSR 


@LADDR (R3) 




1016 


0511 


B721 


A 


$4: 


ST 


Rl , @RPTR (R3) 


; STORE RESULT 


1017 


0512 


F11F 


A 






SKNE 


R0,VCOLON 


•TEST FOR ':' SECOND HALF 


1018 


0513 


2109 


A 






JMP 


$2 




1019 


0514 


8B21 


A 


$1: 


LD 


R2,RPTR(R3) 


; SECOND 


1020 


0515 


A601 


A 






ST 


R1,1(R2) 


; 16 LOCATION 


1021 


0516 


4A02 


A 






AISZ 


R2,2 


; INCREMENT RANGE 


1022 


0517 


AB21 


A 






ST 


R2,RPTR(R3) 




1023 


0518 


F11A 


A 






SKNE 


R0,VCOMMA 


; FINAL RANGE 


1024 


0519 


21ED 


A 






JMP 


MORER 


rMORE RANGES 


1025 


051A 


2F0A 


A 






JSR 


@LTCRLF (R3) 




1026 


051B 


271F 


A 






JMP 


@EXPEX(R3) 


;NO 


1027 


051C 


0200 


A 






RTS 


0 


;YES 


1028 


051D 






; PROCESS SECOND 


PART OF RANGE 
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1029 


051D 


2F0C 


A 


$2: 


JSR 


@LINPUT(R3) 




1030 


051E 


2F0F 


A 




JSR 


@LADDR (R3) 




1031 


051F 


21F4 


A 




JMP 


$1 


; STORE SECOND 


1032 


0520 






; PROCESS R TO SEE IF ALL REGISTERS 


1033 


0520 






; GET 


NEXT PAST R 




1034 


0520 


2F0C 


A 


RR: 


JSR 


@LINPUT(R3) 




1035 


0521 


Fill 


A 




SKNE 


R0, VCOMMA 




1036 


0522 


2102 


A 




JMP 


RR1 


; COMMA YES 


1037 


0523 


2F0A 


A 




JSR 


@LTCRLF (R3) 




1038 


0524 


21EB 


A 




JMP 


$3 


; REGULAR 


1039 


0525 






; A COMPLETE REG 


DUMP REQUEST 




1040 


0525 


850E 


A 


RR1: 


LD 


Rl, REGADR 


• REG 0 


1041 


0526 


B721 


A 




ST 


Rl, @RPTR(R3) 




1042 


0527 


4913 


A 




AISZ 


Rl f 19 


;REG 19 


1043 


0528 


21EB 


A 




JMP 


$1 




1044 


0529 






; RANGE PERFORMS 


INPUT OF ALL 


CHAR IN RANGE 


1045 


0529 






; ESPECIALLY THE 


FIRST 




1046 


0529 


052A 


T 


RMAX: 


. = .+1 






1047 


052A 






; MAX 


ENTRY IS THE ENTRY BASE 


BEYOND END OF TAB] 


1048 


052A 








.PAGE 






1049 


052A 








. LOCAL 






1050 


052A 






; TEST 


LCHAR FOR 


'R' 




1051 


052A 






; IF EQUAL SET RWORD < REGADR 


AND EXIT AT RET+0 


1052 


052A 


8324 


A 


RCHAR: 


LD 


R0 , LCHAR (R3) 




1053 


052B 


F105 


A 




SKNE 


R0,VR 




1054 


052C 


2101 


A 




JMP 


$1 


'R' 


l a el t; 


a t; on 
v D /.u 


wzkJl 


A 




RTS 


1 




1056 


052E 


8105 


A 


$1: 


LD 


R0 , REGADR 


; UPDATE 


1057 


052F 


A323 


A 




ST 


R0 , RWORD (R3) 


; RWORD 


1058 


0530 


0200 


A 




RTS 


0 


;EXIT 


1059 


0531 


0052 


A 


VR: 


.WORD 


'R'/256 




1060 


0532 


003A 


A 


VCOLON : 


.WORD 


': 7256 




1061 


0533 


002C 


A 


VCOMMA : 


.WORD 


'r 7256 




1062 


0534 


03BA 


T 


REGADR: 


.WORD 


REGA 





ELSE EXIT AT RET+1 , 



1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 



0535 
0535 
0535 
0535 
0536 
0537 
0538 
0539 
053A 
053B 
053C 
053D 
053E 
053F 
053F 
053F 
0540 
0541 
0541 
0541 
0541 
0541 
0541 
0542 
0543 
0543 



0536 
0537 
0538 
8324 
4D00 
A5FA 
A5FB 
A5F9 
2928 A 
2104 A 



CURR: 
RESULT: 
OP: 
EXPR: 



PAGE 
LOCAL 

FIRST CHAR ASSUMED TO BE INPUT 
= .+1 



= .+1 
= .+1 

LD 

LI 

ST 

ST 

ST 

JSR 

JMP 



R0 , LCHAR (R3) 

Rl, 0 

Rl ,CURR 

R1,0P 

Rl, RESULT 

GETSYN 

VECTOR 



; CURRENT SYSTEM 

;EXPR RESULT 

; CURRENT OPERATOR 

; OPERATOR IS 

CURRENT SYATAX 
; OPERATOR + 

;GET NEXT SYN 



8324 A 
2925 A 



; ON FIRST ITEM BYPASS DUP SYN TEST 
ACHAR: 

LD R0, LCHAR (R3) 

ASYN: JSR GETSYN 

R2 HAS SYNTAX TYPE 
Rl HAS SPECIAL BASED ON SYN TYPE 
R0 HAS LCHAR 



F9F3 A SKNE 

271F A JMP 

VECTOR: 

C905 A ADD 



R2,CURR 
@EXPEX(R3) 

R2,0PADR 



;TEST FOR DUP 
; ERROR EXIT 
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DEBUG 



1089 


0544 


2200 


A 


JMP 


(R2) 




1090 


0545 


2104 


A 


OPVEC : JMP 


STOROP 


; 0 STORE OP 


1091 


0546 


2107 


A 


JMP 


PEROP 


; 1 PERFORM OP 


1092 


0547 


210E 


A 


JMP 


EXPEXT 


; 2 EXIT 


1093 


0548 


271F 


A 


JMP 


@EXPEX(R3) 


; 3 ERROR 


1094 


0549 


0545 


T 


OPADR: .WORD 


OPVEC 




1095 


054A 






; STORE NEW INTO 


CURRENT 




1096 


054A 


A5EC 


A 


STOROP: ST 


Rl,OP 




1097 


054B 






$2: 






1098 


054B 


D9FD 


A 


SUB 


R2 f OPADR 




1099 


054C 






1 VALUE IN R2 


HAS BEEN MODIFIED TO FORM ADDRESS SO CHANGE BACK 


1100 


054C 


A9E8 


A 


ST 


R2 , CURR 




1101 


054D 


21F1 


A 


JMP 


ACHAR 




1102 


054E 






; PERFORM OP 






1103 


054E 


81E8 


A 


PEROP: LD 


R0,OP 




1104 


054F 


4800 


A 


AISZ 


R0,0 


•TEST IF 0 


1105 


0550 


2103 


A 


JMP 


MINUS 




110b 


UDDl 


L DEi4 


A 


$4: ADD 


Rl, RESULT 




1107 


0552 


A5E3 


A 


ST 


Rl, RESULT 




1108 


0553 


21F7 


A 


JMP 


$2 




1109 


0554 


5101 


A 


MINUS: CAI 


Rl, 1 




1110 


0555 


21FB 


A 


JMP 


$4 




1111 


0556 






; EXPR EXIT — CANNOT BE OPERATOR 




1112 


0556 


8324 


A 


EXPEXT: LD 


R0 , LCHAR (R3) 




1113 


0557 


8723 


A 


$5: LD 


Rl,RWORD(R3) 




1114 


0558 


2F09 


A 


JSR 


@LRTEST (R3) 


', REG 


1115 


0559 


2105 


A 


JMP 


$10 


;YES-MUST BE 0-19 


1116 


055A 


C5DB 


A 


$6: ADD 


Rl, RESULT 




1117 


055B 


89D9 


A 


LD 


R2,CURR 




1118 


055C 


4A00 


A 


AISZ 


R2,0 


;TEST IF OPERATOR 


1 1 1 Q 


055D 


0203 


A 


RTS 


0 




1120 


0 55E 


271F 


A 


JMP 


@EXPEX(R3) 


?YES ERROR 


1121 


055F 






; A REG ITEM IS 0 


< R < 20 




1122 


055F 


89D6 


A 


$10: LD 


R2, RESULT 




1123 


0560 


E91B 


A 


SKG 


R2,V19 




1124 


0561 


2101 


A 


JMP 


$11 


; RESET > 19 


1125 


0562 


271F 


A 


JMP 


@EXPEX(R3) 


; ERROR 


1126 


0563 


E949 


A 


$11: SKG 


R2,VM1 


; >=0? 


1127 


0564 


271F 


A 


JMP 


@EXPEX(R3) 




1128 


0565 


21F4 


A 


JMP 


$6 




1129 


0566 






.PAGE 






1130 


0566 






; TO GET A VALID 


SYNTAX ITEM, INPUT R0 LAST CHAR, OUTPUT R0 NEW LAST 


1131 


0566 






; Rl NUM f OPERATOR TYPE, R2 SYNTAX 


ITEM. 


1132 


0566 






. LOCAL 






1133 


0566 


F113 


A 


GETSYN: SKNE 


R0,VPLUS 


;PLUS ? 


1134 


0567 


210E 


A 


JMP 


PLSCOD 


1135 


0568 


F112 


A 


SKNE 


R0,VMINUS 


; MINUS 


1136 


0569 


2108 


A 


JMP 


MINCOD 




1137 


056A 


2914 


A 


JSR 


GETNUM 




1138 


056B 


210C 


A 


JMP 


$2 


; FOUND 


1139 


056C 


2F18 


A 


JSR 


@LTTERM (R3) 


1140 


056D 


2102 


A 


JMP 


$4 




1141 


056E 


4E02 


A 


LI 


R2,2 


; FOUND 


1142 


056F 


0200 


A 


RTS 


0 


1143 


0570 


4E03 


A 


$4: LI 


R2,3 


;NON SYN 


1144 


0571 


0200 


A 


RTS 


0 


1145 


0572 


4D01 


A 


MINCOD: LI 


Rl,l 


;MIN OP 


1146 


0573 


2F0C 


A 


$10: JSR 


@LINPUT(R3) 


;MOVE SCANNER POSITION 


1147 


0574 


4E00 


A 


$1: LI 


R2,0 


;OP SYN 


1148 


0575 


0200 


A 


RTS 


0 




1149 


0576 


4D00 


A 


PLSCOD: LI 


R1,0 
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DEBUG 



1 1 

11JK/ 


0577 


1 1 PR 
£. J. r d 








JMP 


§ 1 0 

y X V 




1151 


0578 


4E01 


A 


$2: 


LI 


R2,l 


; OPERAND SYN 


1152 


0579 


0200 


A 






RTS 


0 




1153 


057A 


002B 


A 


VPLUS: 


.WORD 


'+7256 




1154 


057B 


002D 


A 


VMINUS: 


.WORD 


'-7256 




1155 


057C 


0013 


A 


V19: 


.WORD 


19 




1156 


057D 


002E 


A 


VDOT: 


.WORD 


'. 7256 




1157 


057E 


000F 


A 


V000F: 


.WORD 


X'F 




1158 


057F 










.PAGE 






1159 


057F 










. LOCAL 






1160 


057F 








; INPUT 


R0 CHAR 






1161 


057F 








; OUTPUT R0 LCHAR 




1162 


057F 








; RTS+1 


NOT FOUND 




1163 


057F 








; RTS +0 FOUND 






1164 


057F 








; PROCESS . IF PRESENT OR GOTO 


GETHEX 


1165 


057F 


F1FD 


A 


GETNUM : 


SKNE 


R0,VDOT 


* ✓ 
? • 


1166 


0580 


2103 


A 






JMP 


PCL 




1167 


0581 


290E 


A 






JSR 


GETHEX 




1168 


0582 


0200 


A 






RTS 


0 


; FOUND 


1169 


0583 


0201 


A 






RTS 


1 


;NOT FOUND 


1170 


0584 


8722 


A 


PCL: 


LD 


R1,CL(R3) 


1171 


0585 


2F09 


A 






JSR 


@LRTEST (R3) 




1172 


0586 


2101 


A 






JMP 


$2 


;IN REGISTER 


1173 


0587 


2103 


A 






JMP 


$1 


; FOUND AND NOT IN 


1174 


0588 






$2: 








J. ± I D 


B JOO 


n r 01 a 

U D V *i 








SUB 


Rl f REGA01 




1176 


0589 


8903 


A 






LD 


R2 , REGA01 




1177 


058A 


AB23 


A 






ST 


R2,RWORD(R3) 




1178 


058B 








IF DOT '. ' IS 


'R' THEN CL MUST BE 


1179 


058B 








0-19 


TILL END 


OF EXPR. THEN 


ADD RWORD. 


1180 


058B 


2F0C 


A 


$1: 


JSR 


@LINPUT(R3) 


; UPDATE SCANNER 


1181 


058C 


0200 


A 






RTS 


0 




1182 


058D 


03BA 


T 


REGA01: 


.WORD 


REGA 




1183 


058E 










.PAGE 






1184 


058E 








INPUT 


R0 LCHAR 






1185 


058E 








OUTPUT 


Rl RESULT 




1186 


058E 








RTS 0 


FOUND 






1187 


058E 








RTS \ NOT FOUND 






1188 


058E 










. LOCAL 






1189 


058E 


058F 


T 


CCNT: 


. = .+1 






1190 


058F 


0590 


T 


NUM: 


. = .+1 






1191 


0590 


4D00 


A 


GETHEX: 


LI 


Rl r 0 




1192 


0591 


A5FD 


A 






ST 


Rl f NUM 




1193 


0592 


4DFF 


A 






LI 


Rl,-1 




1194 


0593 


A5FA 


A 






ST 


Rl f CCNT 




1195 


0594 


E114 


A 


$1: 


SKG 


R0,V2F 




1196 


0595 


2106 


A 






JMP 


HEXEX 


;TEST A-F 


1197 


0596 


E113 


A 






SKG 


R0,V39 


1198 


0597 


2109 


A 






JMP 


P09 


; PROCESS 0-9 


1199 


0598 






r 


TEST FOR A-F 




1200 


0598 


E115 


A 


TAF: 


SKG 


R0 f V40 




1201 


0599 


2102 


A 






JMP 


HEXEX 


; DONE 


1202 


059A 


Elll 


A 






SKG 


R0 f V46 


1203 


059B 


2104 


A 






JMP 


PAF 


; A-F 


1204 


059C 








TEST RESULT AND 


EXIT 




1205 


059C 


85F2 


A 


HEXEX: 


LD 


Rl,NUM 




1206 


059D 


79F0 


A 






ISZ 


CCNT 




1207 


059E 


0200 


A 






RTS 


0 




1208 


059F 


0201 


A 






RTS 


1 


;NUM FOUND 


1209 


05A0 


4809 


A 


PAF: 


AISZ 


R0, 9 


; 41-46 > 4A > 4F 


1210 


0 5A1 


6 IDC 


A 


P09: 


AND 


R0,V000F 


;MASK OFF X'40' 



20 



DEBUG 



1211 


05A2 


85EC 


A 


LD 


Rl,NUM 




1212 


05A3 


79EA 


A 


ISZ 


CCNT 


;=-l 


1213 


05A4 


5D04 


A 


SHL 


Rl, 4 


;MULT BY 16 


1214 


05A5 


3100 


A 


RADD 


R0,R1 


; ADD NEW 


1215 


05A6 


A5E8 


A 


ST 


Rl r NUM 




1216 


05A7 


2F0C 


A 


JSR 


8LINPUT (R3) 




1217 


05A8 


21EB 


A 


JMP 


$1 




1218 


05A9 


002F 


A 


V2F: .WORD 


X'2F 




1219 


05AA 


0039 


A 


V39: .WORD 


X'39 




1220 


0 5AB 


0041 


A 


V41: .WORD 


X'41 




1221 


05AC 


0046 


A 


V46: .WORD 


X'46 




1222 


05AD 


FFFF 


A 


VM1: .WORD 


-1 




1223 


05AE 


0040 


A 


V40: .WORD 


X'40 




1224 


05AF 






.PAGE 






1225 


05AF 






.LOCAL 






1226 


05AF 






• PRINT THE ELEMENTS IN A SET OF 


RANGES . 


1227 


05AF 






; INPUT R2 BASE 


RANGE 




1228 


05AF 






; PTOP HAS 


TOP RANGE 




1229 


05AF 






PRANGE : 






1230 


05AF 


A90B 


A 


$1: ST 


R2, PBASE 




1231 


05B0 


8200 


A 


LD 


R0, (R2) 


;BASE LOC 


1232 


05B1 


8601 


A 


LD 


Rl, 1 (R2) 


•TOP LOC 


1233 


05B2 


2F11 


A 


JSR 


@LOUTPUT(R3) 


•OUTPUT CONTINUE 


1234 


05B3 


8907 


A 


LD 


R2, PBASE 




1235 


05B4 


8601 


A 


LD 


R1,1(R2) 




1236 


05B5 


A722 


A 


ST 


R1,CL(R3) 




1237 


05B6 










•UPDATE CT. AFTER OUTPUT 


1238 


05B6 










• TN PASE OP 

f 111 n LJ L J_j O W 


1239 


05B6 


4A02 


A 


AISZ 


R2,2 




1240 


05B7 


E902 


A 


SKG 


R2,PTOP 




1241 


0553 


21F6 


A 


JMP 


$1 




1242 


05B9 


0200 


A 


RTS 


0 


. donf 


1243 


05BA 


05BB 


T 


PTOP: .=.+1 




•TOP RANGE TO PRINT 


1244 


05BB 


05BC 


T 


PBASE: .=.+1 




•BASE RANGE TO PRINT 


1245 


05BC 






.PAGE 






1246 


05BC 






; FORMAT THE LOCATION IN R0 TO Rl 


AND OUTPUT 


1247 


05BC 


05BD 


T 


I: .=.+1 






1248 


05BD 


05BE 


T 


BADDR: .=.+1 






1249 


05BE 


05BF 


T 


TADDR: .=.+1 






1250 


0 5BF 


05C0 


T 


RCNT: .=.+1 






1251 


05C0 


0020 


A 


IBLANK 


' V256 




1252 


05C0 






; R0 BOTTOM ADDRESS 




1253 


05C0 






; Rl TOP ADDRESS 






1254 


05C0 


AlFC 


A 


OUTPUT: ST 


R0 , BADDR 




1255 


05C1 


A5FC 


A 


ST 


Rl, TADDR 




1256 


05C2 


2F06 


A 


NEWL: JSR 


@LPCRLF(R3) 




1257 


05C3 


81F9 


A 


LD 


R0, BADDR 




1258 


05C4 


2935 


A 


JSR 


PUTADR 


f x\ YJ tlriO riL/XV 


1259 


05C5 


4C08 


A 


LI 


R0 , LENG 


• 4 DP (TIT FIMQ 


1260 


05C6 


A1F8 


A 


ST 


R0,RCNT 


; REMAINING COLS 


1261 


05C7 


91F5 


A 


OLDL: LD 


R0,@ BADDR 


; OUTPUT CONTENTS 


1262 


05C8 


2F19 


A 


JSR 


@LOUTW(R3) 


;OF LOCATION 


1263 


05C9 


2F14 


A 


JSR 


@LPUTBLK (R3) 




1264 


05CA 






; DECREMENT REMAINING COL COUNT 




1265 


05CA 


7DF4 


A 


DSZ 


RCNT 




1266 


05CB 


3081 


A 


NOP 




; 0 REMAIN 


1267 


05CC 


4D00 


A 


LI 


R1,0 




1268 


05CD 


A5EE 


A 


ST 


R1,I 




1269 


05CE 






; I IS INDEX TO COUNT # OF DUP LICATES 


1270 


0 5CE 


89EE 


A 


LD 


R2 , BADDR 




1271 


05CF 


79EC 


A 


$5: ISZ 


I 





21 



DEBUG 



1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 



05D0 
05D1 
05D2 
05D3 
05D4 
05D5 
05D5 
05D5 
05D6 
05D7 
05D8 
05D9 
05DA 
05DB 
05DB 
05DB 
05DB 
05DB 
05DB 
05DB 
05DC 
05DD 
05DE 
05DE 
05DE 



85EB 
3900 
E5EB 
2101 
0200 



8200 
A51F 
951E 
A51D 
F11C 
21F4 



81E0 A 
E1E2 A 
2116 A 



LD 

RADD 
SKG 
JMP 
RTS 



Rl, I 

R2,R1 

R1,TADDR 

$2 

0 



; R1=BADDR+I 



; DONE - ALL REMAINING THE SAME 
; TEST FOR DUPLICATE 
$2: LD R0 f (R2) 

ST Rl,OTEMP 
LD Rl , @OTEMP 

ST Rl , OTEMP 

SKNE R0, OTEMP 

JMP $5 
R0 HAS VALUE ALREADY PRINTED 

ALL DUP FOUND 

DO THEY EXCEED # LEFT ON LINE 



LD 

SKG 

JMP 



R0,I 
R0 ,RCNT 
DOONE 



;NEED TO PRINT ALL 



NEED TO DECIDE HOW MANY LINES TO 
SKIP BECAUSE OF DUP 



1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 



05DE 
05DE 
05DF 
05E0 
05E1 
05E2 
05E2 
05E2 
05E2 
05E3 
05E4 
05E5 
05E5 
05E5 
05E5 
05E6 
05E7 
05E8 
05E9 
05EA 
05EB 
05EB 
05EC 
05ED 
05EE 
05EF 
05EF 
05F0 
05F1 
05F2 
05F3 
05F4 
05F4 
05F4 
05F4 
05F4 
05F5 



81DE A DUPFIL: LD R0,BADDR 

C1DF A ADD R0,RCNT 

4801 A AISZ R0,1 

A1DB A ST R0 , BADDR 



; (MAY BE ZERO) 



89D9 A 
D9DB A 
A9D7 A 



89D6 
D90C 
A9D4 
4A00 
2101 
21D7 

4C00 
E1CF 
2101 
21D3 

81CD 
C102 
A1CB 
21F2 
0008 
0008 



THE NEXT ADDRESS WILL BE AT LEAST ON NEXT LINE 



LD 

SUB 

ST 



R2,I 
R2 , RCNT 
R2,I 



BADDR MOVED UP SO I DECREMENTED 



$8: 



$10: 



INCBAD: 



VLENG : 
LENG 



LD 

SUB 

ST 

AISZ 

JMP 

JMP 

LI 
SKG 
JMP 
JMP 

LD 

ADD 

ST 

JMP 

.WORD 



JUST PRINT ONE 



79C8 A DOONE: ISZ 
21D1 A JMP 



R2 f I 

R2, VLENG 
R2 , 1 
R2, 0 
$10 
NEWL 

R0, 0 
R0,I 
INCBAD 
NEWL 

R0 , BADDR 
R0, VLENG 
R0 , BADDR 
$8 

LENG 
8 



BADDR 
OLDL 



;I <= 0 JMP TO NEWL 



; INCREM BASE ADDR 
; BASE IS UPDATED 
SO PRINT IT 



; LINE LENGTH 



22 



DEBUG 



1334 


05F6 


05F7 


T 


OTEMP: 


. = .+1 




1335 


05F7 












1336 


05F7 












1337 


05F7 












1338 


05F7 


4C20 


A 


PUTBLK: 


LI 


R0, I BLANK 


1339 


05F8 


2F07 


A 




JSR 


@LPUTC(R3) 


1340 


05F9 


0200 


A 




RTS 




1341 


05FA 








.PAGE 




1342 


05FA 








. LOCAL 




1343 


05FA 








R0 


HAS LOC 


1344 


05FA 


A10D 


A 


PUTADR: 


ST 


R0, ADRVAL 


1345 


05FB 


3181 


A 




RCPY 


R0,R1 


1346 


05FC 


2F09 


A 




JSR 


@LRTEST (R3) 


1347 


05FD 


2104 


A 




JMP 


$1 


1348 


05FE 


2F15 


A 


$2: 


JSR 


§LPUT4H(R3) 


1349 


05FF 


2F14 


A 




JSR 


@LPUTBLK (R3) 


1350 


0600 


2F14 


A 




JSR 


@LPUTBLK (R3) 


1351 


0601 


0200 


A 




RTS 


0 


1352 


0602 






; R VALUE 




1353 


0602 


D106 


A 


$1: 


SUB 


R0,REGA00 


1354 


0603 


A104 


A 




ST 


R0, ADRVAL 


1355 


0604 


4C52 


A 




LI 


R0,IR 


1356 


0605 


2F07 


A 




JSR 


@LPUTC (R3) 


1357 


0606 


8101 


A 




LD 


R0 , ADRVAL 


1358 


0607 


21F6 


A 




JMP 


$2 


1359 


0608 


0609 


T 


ADRVAL : 


. = .+1 




1360 


0609 


03BA 


T 


REGA00: 


.WORD 


REGA 


1361 


060A 








.PAGE 




1362 


060A 








. LOCAL 




1363 


060A 


0008 


A 




STKFUL 


= 8 


1364 


060A 


0001 


A 




IEN=1 




1365 


060A 


0009 


A 


TSTIEN= 


9 




1366 


060A 


000A 


A 


CYOV 




10 


1367 


060A 


000D 


A 


SELX 




13 


1368 


060A 


060B 


T 


$RET: 


. = .+1 




1369 


060B 


060C 


T 


$TEMP: 


. = .+1 




1370 


060C 


060D 


T 


IENST: 


. = .+1 




1371 


060D 


060E 


T 


SELST: 


. = .+1 




1372 


060E 






SAVER : SAVREG : 




1373 


060E 


191E 


A 




BOC 


TSTIEN, $2 


1374 


060F 


B13F 


A 




ST 


R0 , @REGA0 


1375 


0610 


4CFF 


A 




LI 


R0,-1 


1376 


0611 


A1FA 


A 


$3: 


ST 


R0 , IENST 


1377 


0612 


1801 


A 




BOC 


STKFUL, . +2 


1378 


0613 


2101 


A 




JMP 


. +2 


1379 


0614 


0000 


A 




HALT 




1380 


0615 


4400 


A 




PULL 


R0 


1381 


0616 


A1F3 


A 




ST 


R0 , $RET 


1382 


0617 


0080 


A 




PUSHF 




1383 


0618 


4400 


A 




PULL 


R0 


1384 


0619 


B13A 


A 




ST 


R0,@REG20 


1385 


061A 


4C01 


A 




LI 


R0,1 


1386 


061B 


58FE 


A 




ROR 


R0,2 


1387 


061C 


A1F0 


A 




ST 


R0, SELST 


1388 


061D 


4400 


A 




PULL 


R0 


1389 


061E 


48FF 


A 




AISZ 


R0,-1 


1390 


061F 


A1EB 


A 




ST 


R0 , $TEMP 


1391 


0620 


B52F 


A 




ST 


R1,@REGA1 


1392 


0621 


B92F 


A 




ST 


R2 , @REGA2 


1393 


0622 


BD2F 


A 




ST 


R3, @REGA3 


1394 


0623 


4D0F 


A 




LI 


R1,STSZ-1 



; YES 'R' 
;PUT BLANKS 



; REGISTER 
; VALUE 



;SET RESTORE TO LEAVE CPU DISABLED 



; HALT ON STACK FULL 
;SAVE SAVEREG RETURN 



; SAVE STATUS FLAGS 



;SAVE ADDR OF DEBUG CALL 
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DEBUG 



1395 


0624 


892E 


A 




LD 


R2 ,REGA4 


1396 


0625 


4400 


A 


$1: 


PULL 


R0 


1397 


0626 


A200 


A 




ST 


R0, (R2) 


1398 


0627 


4A01 


A 




AISZ 


R2, 1 


1399 


0628 


49FF 


A 




AISZ 


Rl,-1 


1400 


0629 


21FB 


A 




JMP 


$1 


140 1 


n c o 7v 


81E0 


A 




LD 


R0 , $TEMP 


1402 


062B 


8D05 


A 




LD 


R3,$4 


1403 


06 2C 


25DD 


A 




JMP 


@$RET 


1404 


062D 


0980 


A 


$2: 


PFLG 


I EN 


1405 


062E 


B120 


A 




ST 


R0 , @REGA0 


1406 


062F 


4C00 


A 




LI 


R0,0 


1407 


0630 


21E0 


A 




JMP 


$3 


1408 


0631 


021C 


T 


$4: 


.WORD 


DBASE 


1409 


0632 








.PAGE 




1410 


0632 








. LOCAL 




1411 


0632 


A11B 


A 


RESTOR: 


ST 


R0,$RET 


1412 


0633 


4E10 


A 




LI 


R2,STSZ 


1413 


0634 


4400 


A 


SI: 


PULL 


R0 


1414 


0635 


4AFF 


A 




AISZ 


R2,-l 


1415 


0636 


21FD 


A 




JMP 


$1 


1416 


0637 


4D10 


A 




LI 


Rl,STSZ 


1417 


0638 


8919 


A 


$2: 


LD 


R2,REGA3 


1418 


0639 


3600 


A 




RADD 


R1,R2 


1419 


063A 


8200 


A 




LD 


R0, (R2) 


1420 


063B 


4000 


A 




PUSH 


R0 


1421 


063C 


49FF 


A 




AISZ 


Rl,-1 


1422 


063D 


21FA 


A 




JMP 


$2 


1423 


063E 






f RESTORE LINE 


REG 


1424 


063E 


9115 


A 




LD 


R0,@REG20 


1425 


063F 


4000 


A 




PUSH 


R0 


1426 


0640 


0280 


A 




PULLF 




1427 


0641 


0A00 


A 




SFLG 


2 


1428 


0642 


81CA 


A 




LD 


R0,SELST 


1429 


0643 


1B01 


A 




BOC 


NEG, . +2 


1430 


0644 


0A80 


A 




PFLG 


2 


1431 


0645 


8108 


A 




LD 


R0 , $RET 


1432 


0646 


4000 


A 




PUSH 


R0 


1433 


0647 


9107 


A 




LD 


R0 , @REGA0 


1434 


0648 


9507 


A 




LD 


Rl , @REGA1 


1435 


0649 


9907 


A 




LD 


R2 , @REGA2 


1436 


064A 


9D07 


A 




LD 


R3 , @REGA3 


1437 


064B 


79C0 


A 




ISZ 


IENST 


1438 


064C 


0100 


A 




RTI 


0 


1439 


064D 


0200 


A 




RTS 


0 


1440 


064E 


064F 


T 


$RET: 


. = .+1 




1441 


064F 


03BA 


T 


REGA0 : 


.WORD 


REGA 


1442 


0650 


03BB 


T 


REGA1: 


.WORD 


REGA+1 


1443 


0651 


03BC 


T 


REGA2 : 


.WORD 


REGA+2 


1444 


0652 


03BD 


T 


REGA3: 


.WORD 


REGA+3 


1445 


0653 


03BE 


T 


REGA4 : 


.WORD 


REGA+4 


1446 


0654 


03CE 


T 


REG 20 : 


.WORD 


REGA+2 0 


1447 


0655 


0250 


T 




.END 


DEBUG 


POINTERS GENERATED 








0016 


04AD 


T 









;GET DEBUG RETURN ADDRESS IN R0 



;SET RESTORE TO ENABLE CPU ON EXIT 



;SAVE ADDRESS TO EXIT TO 
; CLEAR STACK 

:LIFO 



; RESTORE FLAGS 



; SET SELX FLAG 



; CLEAR SELX FLAG 

;INIT STACK FOR RTS/RTI 



; RESTORE CPU ENABLE 



0 ERRORS IN ASSEMBLY ****** 
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DEBUG 



$0. 




$02 




$0; 




$1" 




$1% 




$1& 




$1' 




$D 




$1* 




$1, 




1 


a a i ■> 


T 

J. 


(leap 


T 


Cj OCX? 

\o c. or 


1 




T 




T 

X 




T 






UJBD 


T 


fl "3 A 1 T 
DJll 1 


$1. 




$1/ 




$10 




$10 = 




$10> 




$10A 




$11= 




$14 




$143 




$15 


01 "3 1 O 

0 3 lo 


rp 

1 


id jot 


1 


0 3AEi 


m 

1 


Ci e; cc 
13 0 Or 


rp 
i 


CI C 1 "3 
v 0 / 3 


rp 

1 




1 


V DO O 


i 


pi 4 a n 




oi a t; o 


1 




$17 




$18 




$19 




$1; 




$1< 




$1> 




$1? 




$1@ 




$1A 




$1B 


(k A I? O 




04bA 


I 


(X At? c 

04r 6 


T 


Ck C 1 A 


T 


052E 


T 


Ck C 1 A 


T 




m 


v Dy 4 


rn 
1 


WDAr 


T 


0602 T 


$1C 




$1D 




$2" 




$2$ 




$2& 




$2) 




$2* 




$2. 




$2/ 




$22 


06 25 


T 


fit C O yl 

0634 


T 


0274 


T 


0297 


T 


02B6 


T 


02FA 


T 


0 JHF 


T 


0377 


T 


038E 


T 


0438 T 


$24 




$26 




$29 




$2; 




$2= 




$2> 




$2? 




$2A 




$2B 




$2C 


04A4 


T 


04D5 


T 


a aw? 


1 


\0OlU 


rp 
1 


054B 


T 


0578 


T 


0588 


T 


05D5 


T 


05FE 


T 


062D T 


$2D 




$32 




$36 




$3; 




$3C 




$4? 




$4= 




$4> 




$4C 




$52 


0638 


T 


043A 


T 


04D3 


T 


0510 


T 


0611 


T 


0511 


T 


0551 


T 


0570 


T 


0631 


T 


04 JD T 


$5= 




$5A 




$6- 




$62 




$6= 




$7- 




$72 




$8- 




$8A 




$9- 


0557 


T 


05CF 


T 


0354 


T 


043F 


T 


055A 


T 


0358 


X 


0441 


T 


0364 


T 


05E5 


T 


a o c l m 

0361 T 


$CNT5 


$INIT" 


$M3 




$R3 




$RET( 


$RETC 


$RETD 


$TEMP5 


$TEMPC 


ACHAR 


04C9 


T 


025B 


T 


0464 


T 


0487 


T 


02E4 


T 


060A 


T 


064E 


T 


04BA 


T 


060B 


T 


0b3r T 


ADDR 




ADHRUN 


ADRVAL 


ADS RUN 


AERADR 


AEREX 


AHRUNB 


ALTER 


APTOP 


ASRUNB 


0503 


T 


0011 


B 


0608 


T 


0010 


B 


0290 


T 


0291 


T 


0013 


B 


034B 


T 


0004 


A 


nil 1 O r> 

0012 B 


ASYN 




BADDR 


BLANK 


BOFFSE 


BS 




BSCODE 


CCNT 




CEND 




CFND 




CHAR 


0540 


T 


05BD 


T 


041D 


T 


0010 


A 


005F 


A 


03A2 


T 


058E 


T 


028F 


T 


0273 


T 


fi o a n m 
0 3AU 1 


CL 




CLCHAR 


CLEAR 


CODE 




CODEB 


CPAD 




CR 




CRCODE 


CTAB 




CTADR 


0022 


A 


033D 


T 


0296 


T 


0032 


A 


0033 


A 


025A 


T 


000D 


A 


03A6 


T 


0275 


T 


/i ""inn m 

029C T 


CURR 




CYOV 




DBASE 


DEBUG 


DEBUG1 


DEBUG2 


DELAY 


DELAY1 


DELTA 


DIA 


0535 


T 


000A 


A 


021C 


T 


0250 


T 


0210 


T 


0252 


T 


FFF5 


A 


FFF6 


A 


0026 


A 


0218 T 


DOONE 


DRBASA 


DRBASE 


DRMAX 


DRPTR 


DRSZ 




DRTAB 


DRTOP 


DUPFIL 


EA 


05F4 


T 


021B 


T 


0349 


T 


034A 


T 


0348 


T 


000A 


A 


0403 


T 


0382 


T 


05DE 


T 


0009 A 


EB 




EC 




ECHOA 


ELOOP 


ERR 




ESC 




ESCADR 


ESCEX 


EXPEX 


EXPEXT 


0016 


A 


0026 


A 


0423 


T 


0353 


T 


0294 


T 


0293 


T 


029B 


T 


001E 


A 


001F 


A 


0556 T 


EXPR 




FIND 




FMT 




FVALU 


GETC 




GETHEX 


GETNUM 


GETSYN 


GO 




GOLOC 


0538 


T 


0383 


T 


0025 


A 


0369 


T 


0422 


T 


0590 


T 


057F 


T 


0566 


T 


033E 


T 


0345 T 


GPCS 




GTEMP 


H7F 




HALT 




HBASE 


HBASEA 


HBASEB 


HCODE 


HCODEB 


HCONTU 


0018 


A 


04A7 


T 


041F 


T 


02B1 


T 


0029 


A 


0219 


T 


02B0 


T 


0030 


A 


0031 


A 


031B T 


HENT 




HEXEX 


HFND 




HMARK 


HMAX 




HOK 




HPTR 




HRBASA 


HRBASE 


HRET 


0027 


A 


059C 


T 


0302 


T 


0023 


A 


002A 


A 


02C4 


T 


0028 


A 


021A 


T 


002C 


A 


031A T 


HRMAX 


HRPTR 


HRSZ 




HRTAB 


HRUN 




HRUNB 


HSZ 




HTAB 




I 




IBLANK 


002D 


A 


002B 


A 


000A 


A 


03EF 


T 


02F1 


T 


0325 


T 


0008 


A 


03CF 


T 


05BC 


T 


0020 A 


IEN 




IENST 


IMP16 


INCBAD 


INPUT 


IR 




JMPI 




LADDR 


LALPHA 


LCHAR 


0001 


A 


060C 


T 


FFFF 


A 


05EF 


T 


0417 


T 


0052 


A 


0217 


T 


000F 


A 


0013 


A 


0024 A 


LECHOI 


LECOA 


LECOI 




LENG 




LEXPR 


LF 




LFCODE 


LGETC 


LHOK 




LINPUT 


0420 


T 


0001 


A 


0000 


A 


0008 


A 


000B 


A 


000A 


A 


03A5 


T 


0008 


A 


0016 


A 


000C A 


LOUTCL 


LOUTPU 


LOUTW 


LPCRLF 


LPRANG 


LPUT2C 


LPUT4H 


LPUTAD 


LPUTBL 


LPUTC 


001C 


A 


0011 


A 


0019 


A 


0006 


A 


0010 


A 


0005 


A 


0015 


A 


001A 


A 


0014 


A 


0007 A 



L RANGE LRCHAR LRD0 LRESTO LRTEST LTCRLF LTECHO LTTERM LTTYT LTYPA 
0017 A 000D A 001B A 0012 A 0009 A 000A A 0444 T 0018 A 042F T 0003 A 
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DEBUG 



LTYPEI 


LTYPI 


LVALUE 


MINCOD 


MINUS 


0494 T 


0002 A 


000E 


A 


0572 


T 


0554 T 


NULL 


NUM 


OFFSET 


OLDL 




OP 


041E T 


058F T 


0001 


A 


05C7 


T 


0537 T 


OUTCL 


OUTHEX 


OUTPUT 


OUTW 




OVER 


0336 T 


04BB T 


05C0 


T 


04AF 


T 


029E T 


PCHAR 


PCL 


PCR 




PCR1 




PCRLF 


002D A 


0584 T 


04A8 


T 


04A9 


T 


04 AC T 


PQUOTE 


PRANGE 


PTECHO 


PTOP 




PTTYT 


04F4 T 


05AF T 


0421 


T 


05BA 


T 


0495 T 


QMARK 


R0 


Rl 




R2 




R3 


003F A 


0000 A 


0001 


A 


0002 


A 


0003 A 


REGA 


REGA0 


REGA 00 


REGA01 


REGA1 


03BA T 


064F T 


0609 


T 


058D 


T 


0650 T 


REGEND 


REP LAC 


RESET 


REST 




RESTOR 


04E6 T 


0 2BD T 


02A3 


T 


0476 


T 


0632 T 


RSTRIA 


RTEST 


RUNB 




RWORD 


SAVE 


0015 B 


04DF T 


032B 


T 


0023 


A 


0465 T 


SELST 


SELX 


SFND 




SNAP 




SRREG 


060D T 


000D A 


039B 


T 


02D1 


T 


0487 T 


STSTR 


STSZ 


TA 




TADDR 


TAF 


04FA T 


0010 A 


0029 


A 


05BE 


T 


0598 T 


TTERM 


TTYAD 


TYPE 




TYPEA 


UCALL 


04E7 T 


0038 A 


03AB 


T 


0499 


T 


02E5 T 


V41 


V46 


V9 




VALUE 


VAM10 


05AB T 


0 5AC T 


04CC 


T 


04EF 


T 


04CB T 


VCR 


VCR0 


VDOT 




VECTOR 


VESC 


0492 T 


0368 T 


057D 


T 


0543 


T 


0491 T 


VM1 


VMINUS 


VOV 




VPLUS 


VQU 


05 AD T 


057B T 


02A2 


T 


057A 


T 


0501 T 



E196 4DC9 



MORER 


MOVE 


NEG 


NEWL 




NOTE 


0507 T 


036A T 


000B A 


05C2 


T 


039E T 


OPADR 


OPVEC 


OTEMP 


OUT 




OUT4H 


0549 T 


0545 T 


05F6 T 


025F 


T 


04BB T 


OVRADR 


OVREX 


P09 


PAF 




PBASE 


029D T 


0020 A 


05A1 T 


05A0 


T 


05BB T 


PEROP 


PHRET 


PLF 


PLFCR 


PLSCOD 


054E T 


0336 T 


04 AD T 


04AC 


T 


0576 T 


PUT2C 


PUT4H 


PUTADR 


PUTBLK 


PUTC 


04B2 T 


04BB T 


05FA T 


05F7 


T 


0496 T 


RANGE 


RCHAR 


RCNT 


RD0 




REG20 


0505 T 


052A T 


05BF T 


04CF 


T 


0654 T 


REGA2 


REGA 3 


REGA 4 


REGADR 


REGAM1 


0651 T 


0652 T 


0653 T 


0534 


T 


04E5 T 


RESULT 


RMAX 


RPTR 


RR 




RR1 


0536 T 


0529 T 


0021 A 


0520 


T 


0525 T 


SAVER 


SAVREG 


SAVRIA 


SCODE 


SCODEB 


060E T 


060E T 


0014 B 


002E 


A 


002F A 


SRUN 


SRUNB 


STKFUL 


STKSZ 




STOROP 


0306 T 


0328 T 


0008 A 


0010 


A 


054A T 



TB TC TCRLF TOFFSE TSTIEN 

0012 A 0070 A 04D9 T 0210 A 0009 A 

V000F V19 V2F V39 V40 
057E T 057C T 05A9 T 05AA T 05AE T 



VC09 VCOLON VCOM VCOMM VCOMMA 
04CA T 0532 T 001D A 0367 T 0533 T 

VF VFF VFF00 VLENG VLF 

04CD T 04CE T 0502 T 05F3 T 0493 T 

VR 

0531 T 
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h9 
»-3 

(-» 



TTY16P 



RFVISION-G 05/16/74 
TTY16P 00312D 10/15/74 



1 


0000 


2 


0000 


i 


0000 


4 


00 00 


j 


Q<A 1 0 

OVtiVJ 




XI VYM V 


7 


000 0 




55P10C1 
w x/ t/ w 


9 


3000 


10 


0000 


11 


0000 


l ? 


000 0 


1 3 


00 00 


14 


0030 


15 


00 00 


16 


33 30 


17 


303 0 


13 


0000 


19 


300 3 


23 


330 0 


21 


0000 


22 


030 0 


23 


0000 


24 


0000 


25 


00 00 


26 


0000 


«-i -» 
£ / 


000 3 


28 


0000 


29 


3000 


30 


0000 


■i i 

J X 


0000 
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0300 


33 
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34 


00 30 


J -J 


30 0 A 


J U 


CI 171 (71 51 

tj 'y v « 


37 


0030 


33 


0000 


39 


3000 


40 


3000 


41 


0300 


42 


033 0 


43 


0303 


44 


03 33 


45 


1030 


46 


30 30 


47 


0000 


43 


0000 


49 


3300 


50 


3330 



.TITLE TTY16P, '00312D 10/15/74' 
. ASECT 

TTY16P CONTAINS THE IMP-16P TELETYPE AND 
HIGH-SPEED PAPER TAPE READER I/O DRIVERS. 

THERE IS ONE MAIN PROGRAM: 

ABSTTY - ABSOLUTE PAPER TAPE LM LOADER 

SUBROUTINES ARE: 

PUTC - TRANSMITS A CHARACTER FROM BITS 0-7 OF 
ACCUMULATOR 0 (AC0) TO THE TELETYPE 

GETC - RECEIVES A CHARACTER FROM EITHER THE HIGH SPEED 
PAPER TAPE READER (IF ENABLED) OR 
TELETYPE, FOR TRANSFER TO BITS 0-7 OF AC0 

GECO - RECEIVES A CHARACTER FROM THE TELETYPE 
AND ECHOES IT ON THE TELETYPE PRINTER 

MESG - PRINTS A SERIES OF ASCII CHARACTERS ON THE TELETYPE 

PUT2C - PRINTS TWO CHARACTERS IN AC0 ON THE TELETYPE 

RESET - RESETS THE TELETYPE 

INTEST - TESTS FOR TELETYPE INPUT 

LDM - LOAD MULTIPLE - LOAD REGISTERS FROM MEMORY 
STM - STORE MULTIPLE - SAVE REGISTERS IN MEMORY 

DPLX IS NOT INCLUDED IN THIS REVISION 

SUBROUTINE LIMITATIONS AND CONVENTIONS: 

ALL REGISTERS ARE SAVED IN ALL SUBROUTINES, EXCEPT THAT 
REGISTER AC0 HAS THE CHARACTER RECEIVED (GETC, GECO). 

THE STACK IS PUSHED UP TO FIVE LEVELS DEEP 
DURING EXECUTION OF THESE ROUTINES. 

RALU FLAGS ARE NOT SAVED: SELECT FLAG IS CLEARED. 

INTEST - RETURN FROM SUBROUTINE IS AS FOLLOWS: 
RTS 0 - ATTEMPT TO INPUT FROM TELETYPE 
RTS 1 - NO INPUT FROM TELETYPE KEYBOARD 



ENTRY POINTS: 

ABSTTY 7E00 

GETC - 7E3B 

PUTC - 7E59 

GECO - 7E73 

PUT2C - 7ED3 



MESG 

RESET 

INTEST 

LDM 

STM 



- 7EC3 

- 7 EDA 

- 7EDF 

- 7EEA 

- 7EF2 



51 


0033 








.PAGE 


52 


3300 










53 


0333 








DEFINITIONS 


54 


0300 










55 


0033 


0030 


A 


AC3 


0 


56 


3030 


0001 


A 


AC1 


1 


57 


0033 


0002 


A 


AC 2 


2 


53 


0000 


0033 


A 


AC 3 


3 


59 


0000 










60 


0000 


0001 


A 


ZRO 


1 


61 


0003 


0002 


A 


POS 


2 



1 



TTY16P 



62 0000 

S3 0000 

64 0000 

65 0009 

66 0000 

67 0000 

68 0000 

69 0000 

70 0000 

71 0000 

72 0000 

73 0000 

74 0000 

75 0000 

76 0000 

77 7E00 

78 7E00 

79 7E00 

80 7E00 

81 7E00 

82 7E00 

83 7E00 

84 7E00 

85 7E00 

86 7E03 

87 7E00 

88 7E00 

89 7E00 

90 7E00 



0005 ft NfZRO 



0038 
0002 
0003 
0004 
0005 
0006 

0010 
0001 
0002 
0003 



7E00 A 



TTYAD 

READ 

SEND 

RDREN 

RESET 

INT 



A PRADR 

A PREAD 

A PSTART 

A PRESET 



7*8 

2 

3 

4 

5 

6 

2*8 
1 

2 
3 



,=07E00 



TELETYPE ADDRESS 
READ TTY COMMAND CODE 
SEND TO TTY COMMAND CODE 
READER ENABLE 
RESET TTY 
INTERRUPT STATUS 

PAPER TAPE READER ADDRESS 
PAPER TAPE READER EXPRESSIONS 



; ENTRY POINT 



******************************************* 
* 

* THIS PROGRAM FITS INTO 2 8X256-BIT PROMS ON THE 

* CARD READER/TELETYPE INTERFACE CARD: 



IMP 
NUMBER 



PROM 
NUMBER 



* 
* 
* 
* 

********************************************************************** 



IMP-16F/003A 4600312D 
IMP-16F/003B 4610312D 



ROM 
NUMBER 

4100312D 
4110312D 



BOARD 
CO-ORDINATE 

5G 
7G 



91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 



7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E00 
7E01 
7E02 
7E03 
7E04 
7E05 
7E06 
7E07 
7E08 
7E09 



. PAGE 'ABSTTY FOR THE IMP-16P' 
LOADS LM FROM 8 CHANNEL PAPER TAPE. 
TO ti DAD TAPES: 

1) TURN ON READER 

2) PRESS 'INITIALIZE' SWITCH ON THE IMP-16P 

3) PUT PAPER TAPE IN THE TAPE READER 

(HIGH SPEED READEP IF AVAILABLE, OR TTY READER) 

4) PRESS 'LOAD PROGRAM' SWITCH ON THE IMP-16P 

IF THE LOADER HALTS WITH THE PC SET TO 7E23 , 

A CHECKSUM ERROR HAS OCCURRED. CHECK THE TAPE AND 

PRESS 'RUN' WHEN IT IS READY TO READ AGAIN. 

(TO IGNORE THE ERROR, JUST PRESS 'RUN'). 

IF THE LOADER HALTS WITH THE PC SET TO 7E31 , 

THE TAPE IS FINISHED (THE END RECORD HAS BEEN READ) 

A) TO LOAD ANOTHER TAPE, GO BACK TO STEP 3. 

B) TO START EXECUTION, PRESS 'RUN'. 

C) TO START EXECUTION AT A NEW ENTRY POINT, 
SET EITHER AC 2 OR THE PC TO THE NEW 
ENTRY POINT, THEN PRESS 'RUN'. 



293A 


A 


ABSTTY: 


JSR 


GETC 






48F6 


A 




AISZ 


AC0,-2 


• 


LOOK FOR STX (START OF TEXT) 


21FD 


A 




JMP 


ABSTTY 






292E 


A 


TTY1 : 


JSR 


RDWD 




PROCESS RECORD CONTROL INFORMATION 


121F 


A 




BOC 


POS,TORS 




BRANCH IF TITLE OR SYMBOL RECORD 


5C01 


A 




SHL 


AC0,1 






1201 


A 




BOC 


POS, .+2 


* 

r 


BRANCH TO DATA RECORD , 


2123 


A 




JMP 


ENDREC 


* 


ELSE GO TO END RECORD 


5CFF 


A 




SHR 


AC0,1 






3381 


A 




RCPY 


AC0,AC3 


* 


RECORD BODY LENGTH IN AC 3 



2 



TTY16P 



127 


7E0A 


2927 


A 




JSR 


RDWD 






123 


7E0B 


3181 


A 




RCPY 


AC0,AC1 


7 


SAVE CHECKSUM 


129 


7E0C 


4000 


A 




PUSH 


AC0 






133 


7E0D 


5101 


A 




CAI 


AC1,1 




AC1 HAS -(CKSUM MODE WORD) 


131 


7E0E 


290D 


A 




JSR 


RDWDCK 


r 


SKIP ADDRESS MODE 


132 


7E0F 


290C 


A 




JSR 


RDWDCK 




GET LOAD ADDRESS 


133 


7E10 


3281 


A 




PCPY 


AC0,AC2 




LOAD ADDRESS IN AC 2 


134 


7E11 


290A 


A 




JSR 


RDWDCK 


• 


SKIP RELOCATION MODE WORDS 


135 


7E12 


2909 


A 




JSR 


RDWDCK 






136 


7E13 


3B00 


A 




RADD 


AC2,AC3 






137 


7E14 


5305 


A 




CAI 


AC3,l+4 




AC 3 HAS -(LAST ADDRESS - 1) 


133 


7E15 


2906 


A 


TTY2: 


JSR 


RDWDCK 




GET DATA WORD 


139 


7E16 


A200 


A 




ST 


AC0 , (AC2) 






140 


7E17 


4A01 


A 




AISZ 


AC2,1 


• 

» 


INCREMENT DESTINATION ADDRESS 


141 


7E18 


3831 


A 




RCPY 


AC2,AC0 






142 


7E19 


3C00 


A 




RADD 


AC3 , AC0 






143 


7E1A 


1204 


A 




BOC 


POS, TCKSUM 


• 

r 


IF DONE TEST CHECKSUM 


144 


7E1B 


21F9 


A 




JMP 


TTY2 






145 


7E1C 






J 










146 


7E1C 


2915 


A 


RDWDCK : 


JSR 


RDWD 


• 

t 


READ WORD AND ADD IT 


147 


7E1D 


3100 


A 




RADD 


AC0,AC1 


• 


TO THE CHECKSUM 


148 


7E1E 


0200 


A 




RTS 


0 






149 


7E1F 






J 










150 


7E1F 


4400 


A 


TCKSUM: 


PULL 


AC0 


* 

t 


GET CHECKSUM WORD 


151 


7E20 


11DF 


A 




BOC 


ZRO, ABSTTY 






152 


7E21 


4900 


A 




AISZ 


AC1,0 






153 


7E22 


0000 


A 




HALT 


* 


CHECKSUM ERROR 


154 


7E23 


21DC 


A 




JMP 


ABSTTY 






155 


7E24 






* 










156 


7E24 


6175 


A 


TORS: 


AND 


AC0 ,H3FFF ; 


IGNORE TITLE AND SYMBOL RECORDS 


157 


7E25 


3131 


A 




PCPY 


AC0 f ACl 






158 


7E26 


2933 


A 




JSR 


RDWD 






159 


7E27 


49FF 


A 




AISZ 


AC1,-1 






160 


7E28 


21FD 


A 




JMP 


.-2 






161 


7E29 


293 3 


A 




JSR 


RDWD 






162 


7E2A 


21D5 


A 




JMP 


ABSTTY 






163 


7E2B 






9 










164 


7E2B 






9 










165 


~1 n **\ -—i 

/ C£D 


2906 


A 


ENDREC: 


JSR 


RDWD 




SKIP CHECKSUM 


166 


7E2C 


2905 


A 




JSR 


RDWD 




SKIP ENTRY ADDRESS MODE 


167 


7E2D 


2904 


A 




JSR 


RDWD 




GET ENTRY ADDRESS 


168 


7E2E 


3281 


A 




RCPY 


AC0 , AC 2 




COPY ENTRY ADDRESS INTO AC 2 


169 


7E2F 


4F00 


A 




LI 


AC3,0 




LOAD DEVICE IS TTY 


170 


7E30 


0000 


A 




HALT 






(PRESS RUN TO EXECUTE) 


171 


7E31 


2200 


A 




JMP 


(AC2) 




JUMP TO LOADED PROGRAM 


17 2 


7E32 






? 










173 


7E32 






? 










174 


7E32 


4100 


A 


RDWD : 


PUSH 


AC1 ; 


READ A 16-BIT WORD INTO AC0 


175 


7E33 


2907 


A 




JSP 


GETC ; 


OTHER REGISTERS ARE UNDISTURBED 


176 


7E34 


5C08 


A 




SHL 


AC0,8 






177 


7E35 


4000 


A 




PUSH 


AC0 






178 


7E36 


2904 


A 




JSR 


GETC 






179 


7E37 


4500 


A 




PULL 


AC1 






180 


7E38 


3482 


A 




RXOR 


AC1,AC0 






181 


7E39 


4500 


A 




PULL 


AC1 






182 


7E3A 


0200 


A 




RTS 


0 






183 


7E3B 








.PAGE 


'GETC AND PUTC ROUTINES' 


184 


7E33 
















185 


7E3B 








READ 


TELETYPE CHARACTER INTO AC0 


186 


7E3B 
















187 


7E33 








NOTE: 


GETC READS FROM THE 


HIGH SPEED PAPER TAPE READER 



3 



TTY16P 



183 


7E3B 






189 


7E3B 






190 


7E3B 






191 


7E3B 






192 


7E3B 






193 


7E3B 


2160 


A 


194 


7E3C 


297 F 


A 


195 


7E30 


0402 


A 


196 


7E3E 


615A 


A 


197 


7E3F 


5DFF 


A 


198 


7E40 


3182 


A 


199 


7E41 


4AFF 


A 


200 


7E42 


21F9 


A 


201 


7E43 


2148 


A 


202 


7E44 






203 


7E44 


7E59 


A 


204 


7E59 






205 


7E59 






206 


7E59 






207 


7E59 






208 


7E59 


293A 


A 


209 


7E5A 


4000 


A 


210 


7E5B 


3181 


A 


211 


7E5C 


4C0C 


A 


212 


7E5D 


295F 


A 


213 


7E5E 


4E09 


A 


214 


7E5F 


4F38 


A 


215 


7E60 


0603 


A 


216 


7E61 


295A 


A 


217 


7E62 


4AFF 


A 


218 


7E63 


2101 


A 


219 


7E64 


2104 


A 


220 


7E65 


59FF 


A 


221 


7E66 


3481 


A 


222 


7E67 


0603 


A 


223 


7E68 


21F8 


A 


224 


7E69 


4CFF 


A 


225 


7E6A 


0603 


A 


226 


7E63 


2950 


A 


227 


7E6C 


4400 


A 


228 


7E6D 


2121 


A 


229 


7E6E 






230 


7E6E 


7E73 


A 



IF IT IS CONNECTED AND TURNED ON; OTHERWISE INPUT IS FROM 

THE TELETYPE READER. IF A CARD READER IS CONNECTED 

INSTEAD OF THE HIGH SPEED TAPE READER, IT MUST BE TURNED OFF 



GETC: 
LP1: 



PUTC: 



LP2: 



DONE 



WHEN 


NOT IN USE. 






JMP 


RDRIN 


J 


TRY HIGH-SPEED READER FIRST 


JSR 


DELAY 




DELAY ONE BIT TIME 


RIN 


READ 






AND 


AC 0, MASK 


; 


MASK UNWANTED BITS 


SHR 


AC1,1 


T 


SHIFT DATA 


RXOR 


AC0,AC1 


* 


ADD NEW BIT TO DATA 


AISZ 


AC2,-1 


t 


TEST TO SEE IF DONE 


JMP 


LP1 






JMP 


RETURN- 4 






.=07E59 






SEND 


CHARACTER IN AC0 


TO 


TELETYPE 


JSR 


SAV 


• 

r 


SAVE REGISTERS 


PUSH 


AC0 


. 

f 


ALSO SAVE CHARACTER 


RCPY 


AC0,AC1 






LI 


AC0, 12 






JSR 


DELAY+1 






LI 


AC2,9 


f 


SET COUNT TO 9 


LI 


AC 3 , TTYAD 






ROUT 


SEND 


* 


SEND START BIT 


JSR 


DELAY 


• 


DELAY 1 BIT TIME 


AISZ 


AC2,-1 


. 

f 


DECREMENT BIT COUNT 


JMP 


. + 2 






JMP 


DONE 






ROR 


AC1,1 


* 


SEND NEXT BIT 


RCPY 


AC1,AC0 






ROUT 


SEND 






JMP 


LP2 






LI 


AC0 r -l 




SEND STOP BIT 


ROUT 


SEND 






JSR 


DELAY 






PULL 


AC0 


. 


RESTORE AC0 


JMP 


RETURN-1 


• 

r 


RESET, RESTORE REGISTERS, RETURN 



.=07E73 



231 


7E73 








.PAGE 


'TELETYPE GET CHARACTER ROUTINE WITH ECHO ' 


232 


7E73 
















233 


7E73 








READ 


TELETYPE CHARACTER 


INTO AC0 (WITH ECHO) 


234 


7E73 
















235 


7E73 


2920 


A 


GECO: 


JSR 


SAV 




SAVE REGISTERS 


236 


7E74 


4F38 


A 




LI 


AC 3 ,TTYAD 






237 


7E75 


0605 


A 




ROUT 


RESET 


* 


RESET TELETYPE 


238 


7E76 


4E08 


A 




LI 


AC2,8 


r 


SET BIT COUNT TO 8 


239 


7E77 


0604 


A 




ROUT 


RDREN 


. 


ENABLE READER 


240 


7E78 


0402 


A 




RIN 


READ 






241 


7E79 


1201 


A 




BOC 


POS,.+2 


. 

i 


TEST FOR START BIT 


242 


7E7A 


21FD 


A 




JMP 


.-2 






243 


7E7B 


4C09 


A 




LI 


AC0,9 






244 


7E7C 


2940 


A 




JSR 


DELAY+1 


• 


DELAY 1/2 BIT TIME 


245 


7E7D 


0402 


A 




RIN 


READ 


• 

i 


TEST IF START BIT IS STILL 


246 


7E7E 


1201 


A 




BOC 


POS,.+2 


* 


BRANCH IF GOOD START BIT 


247 


7E7F 


21F5 


A 




JMP 


GECO+2 






248 


7E80 


0603 


A 


LP3: 


ROUT 


SEND 




ECHO BIT 


249 


7E81 


293A 


A 




JSR 


DELAY 


* 


DELAY ONE BIT TIME 


250 


7E82 


0402 


A 




RIN 


READ 






251 


7E83 


6115 


A 




AND 


AC0,MASK 


* 


MASK UNWANTED BITS 


252 


7E84 


5DFF 


A 




SHR 


AC1,1 


t 


SHIFT DATA 



4 



TTY16P 



9S 1 

i J J 


7F8S 


11 R 9 

-J X O c. 


ft 




RXOR 


AC0 , AC1 


* 


ADD NEW BIT TO DATA 


9 S4 

£ J *i 


7E86 


4 AFF 


ft 




AISZ 


AC2 ,-1 




TEST TO SEE IF DONE 


9^ 


7E87 


21 F8 


ft 




JMP 


LP3 






256 


7E88 


0603 


ft 




ROUT 


SEND 




ECHO LAST BIT 


9^7 


7F8Q 


2932 


ft 




JSR 


DELAY 


t 


DELAY INTO FIRST STOP BIT 


9SR 
6 JO 


7 E8A 


4CFF 


ft 




LI 


AC 0 t - 1 








7FRR 


0603 


ft 




ROUT 


SEND 


t 


SEND STOP BIT 


9fifl 

C.U '1 


/DO'- 


292F 


ft 




JSR 


DELAY 






9fi 1 


7 FRD 


RDFR 

JUL O 


A 




SHR 


AC1 , 8 




SHIFT DATA INTO RIGHT 8 BTT<? 

will L X LV n in In I Ks 1\ X VJ 11 X vj J> X X O 


96 9 


7 FRF 

# d r> u 


1481 

JIOl 


ft 




RCPY 


AC1 .AC0 


J 


COPY CHARACTER INTO AC0 


£. U J 


7 FR F 




ft 




ROUT 


RESET 






9fi 4 


7F90 


4fi00 

*t U Ki lw 


ft 


RETURN • 

IMj i U t\XN • 


PULL 


AC 2 




RESTORE REGISTERS 


96S 


7E91 


4^00 


ft 




PULL 


AC1 






266 


7E92 


4700 


ft 




PULL 


AC 3 






9fi7 


7F91 


0200 


ft 




RTS 


0 






268 


7 E94 






f 










269 


7E94 






t 










270 


7E94 


57 00 


ft 


SAV: 


XCHRS 


AC 3 




SAVE REGISTERS IN STACK 


271 


7E95 


4100 


A 




PUSH 


AC1 






272 


7E96 


4200 


ft 




PUSH 


AC 2 






273 


7E97 


0A80 


A 




PFLG 


2 


* 


CLEAR SELECT FLAG 


274 


7E98 


2300 


ft 




JMP 


(AC3) 






275 


7E99 
















276 


7E99 


8000 


ft 


MASK : 


• WORD 


0ft 0 0 0 






277 


7E9A 


3FFF 


ft 


H3FFF : 


. WORD 


03FFF 






278 


7E93 


7E9C 


ft 




. = . + 1 








279 


7E9C 






r 










280 


7E9C 








. PAGE 


'paper tape 


READER AND TELETYPE ROUTINE ' 


281 


7E9C 






f 










282 


7E9C 


29F7 


ft 


RDRIN : 


JSR 


SAV 




SAVE REGISTERS 


283 


7E9D 


4F10 


ft 




LI 


AC 3 . PRADR 




CHECK WHETHER HIGH SPEED TAPE READER 


284 


7E9E 


0401 


ft 




RIN 


PREAD 




IS ON-LINE 


285 


7E9F 


6119 


ft 




AND 


AC0 .BITl 2 






286 


7EA0 


110C 


ft 




BOC 


7, RO S 9 






287 


7EA1 


4F38 


ft 


SI • 

v x • 


LI 


AC1 TTY AH 


* 


NO HIGH-SPEED READER - USE TTY READER 


288 


7EA2 


4E08 


ft 


GRTC2 • 


LI 


AC 2 r 8 


* 


SET BIT COUNT TO 8 


239 


7EA3 


0605 


ft 




ROUT 


RESET 




RESET TELETYPE 


290 


7EA4 


0604 


ft 




ROUT 


RDREN 


> 


ENABLE READER 


291 


7EA5 


0402 


ft 




RTN 

rs x in 


READ 






292 


7EA6 


1201 


ft 




BOC 




1 


TEST FOR START BIT 


9Q1 


7FA7 


91 FS 


ft 




IMP 


pnoTM+ 1 

£\ U I\ X X\' » X 








7FAR 




ft 




r.T 

Li X 








9QR 


7FAQ 


9Q 1 1 


ft 






r>FT AV4- 1 


' 


DELAY FOR 1/2 BIT TIME 


296 


7EAA 


0402 


ft 




RIN 


READ 


1 


TEST IF START BIT IS STILL THERE 


297 


7EAB 


1290 


ft 




BOC 


pn<? . LPl 


t 


BRANCH IF GOOD START BIT 


9QR 


7 par 


91 Ffi 
a x r u 


ft 




JMP 




* 


NOISE - TRY AGAIN 


9QQ 


7EAD 






t 










300 


7EAD 


0401 


ft 


$2 : 


RIN 


PREAD 


* 


READ CHARACTER FROM HIGH SPEED TAPE R 


301 


7 EAE 


fil 01 


ft 




AND 


ACPI RTTl 1 






302 


7EAF 


15F1 


ft 




BOC 


N7. RO ^1 

LN u S\\J f y X 


t 


NOT THERE - USE TTY 


303 


7EB0 


0602 


ft 




ROUT 


PSTART 






304 


7EB1 


0603 


ft 




ROUT 


r ado 0 x 






1 PIS 


7FR 9 


0401 


ft 




RTM 

TAX IN 


PRFAn 






306 


7EB3 


6106 


ft 




AND 


APR RTTl 1 


1 


CHECK STATUS 


307 


7EB4 


15FD 


A 




BOC 


NZRO, .-2 




NO GOOD - KEEP TRYING 


308 


7EB5 


0401 


A 




RIN 


PREAD 




REREAD CHARACTER 


309 


7EB6 


5CFC 


A 




SHR 


AC0 f 4 






310 


7EB7 


6103 


A 




AND 


AC 0, RTBYT 




RETURN ONLY EIGHT BITS 


311 


7EB8 


21D7 


A 




JMP 


RETURN 






312 


7EB9 
















313 


7EB9 


1000 


A 


3IT12 : 


.WORD 


01000 






314 


7EBA 


2000 


A 


BIT13: 


.WORD 


02000 






315 


7EBB 


00FF 


A 


RTBYT: 


.WORD 


0FF 






316 


7EBC 
















317 


7EBC 


4C12 


A 


DELAY: 


LI 


AC0,18 


* 


DELAY SUBROUTINE (AC0) 



5 



TTY16P 



318 7EBD 5870 A 

319 7EBE 48FF A 

320 7EBF 21FD A 

321 7EC0 5CD8 A 

322 7EC1 0200 A 

323 7EC2 

324 7EC2 7EC3 A 



ROL AC0,112 

AISZ AC0,-1 

J.MP .-2 

SHR AC0,40 

RTS 0 

.=07EC3 



; GOOD ONLY AT STANDARD SYSTEM SPEED 



325 7EC3 

326 7EC3 

327 7EC3 

328 7EC3 

329 7EC3 

330 7EC3 

331 7EC3 

332 7EC3 

333 7EC3 

334 7EC3 

335 7EC3 

336 7EC3 

337 7EC3 

338 7EC3 

339 7EC3 

340 7EC3 

341 7EC3 

342 7EC3 

343 7EC3 

344 7EC4 

345 7EC5 

346 7EC6 

347 7EC7 

348 7EC8 

349 7EC9 

350 7ECA 

351 7ECB 

352 7ECC 

353 7ECD 

354 7ECE 

355 7ECF 

356 7ED0 

357 7ED1 

358 7ED2 

359 7ED3 

360 7ED3 

361 7ED3 

362 7ED3 

363 7ED3 
354 7ED4 

365 7ED5 

366 7ED6 

367 7ED7 

368 7ED8 

369 7ED9 

370 7ED9 



. PAGE 'MESSAGE PRINTING ROUTINE' 
MESSAGE PRINTING SUBROUTINE 



JSR 
.WORD 



MESG 
MSG 



MSG: .ASCII 'MESSAGE, 
.WORD 0 



JUMP TO SUBROUTINE 
MESSAGE ADDRESS 



MESSAGE TERMINATION 



NOTE: CARRIAGE RETURN AND LINE FEED PRECEDE THE MESSAGE. 
TO ABORT PRINTOUT, HIT THE BREAK KEY. 



5709 
4300 
4000 
8F00 
8111 
290A 
8300 
1104 
2913 
2102 
4B01 
21F9 
4400 
4700 
5700 
0201 



A 


MESG: 


XCHRS 


AC 3 


• 


GET RETURN ADDRESS 


A 




PUSH 


AC 3 






A 




PUSH 


AC0 


• 

# 


REGISTERS ARE SAVED 


A 




LD 


AC3 , (AC3) 


• 


GET MESSAGE ADDRESS 


A 




LD 


AC0,CRLF 


• 

f 


CR/LF FIRST 


A 


LI: 


JSR 


PUT2C 






A 




LD 


AC0 , (AC3) 






A 




BOC 


ZRO, MSGEND 


• 


CHECK IF DONE YET 


A 




JSR 


INTEST 




TEST FOR INTERRUPT 


A 




JMP 


MSGEND 






A 




AISZ 


AC3,1 






A 




JMP 


LI 






A 


MSGEND: 


PULL 


AC0 


f 


RESTORE REGISTERS 


A 




PULL 


AC 3 






A 




XCHRS 


AC 3 






A 




RTS 


1 


m 

1 


RETURN (SKIP OVER PARAMETER) 






PUT2C 


- SEND 2 CHARACTERS TO TELETYPE 








(LEFT AND 


RIGHT 


BYTES OF AC0) 


A 


PUT2C: 


PFLG 


2 






A 




ROR 


AC0,R 






A 




JSR 


PUTC 


* 


SEND LEFT CHARACTER 


A 




ROR 


AC0,8 






A 




JSR 


PUTC 


* 


SEND RIGHT CHARACTER 


A 




RTS 


0 






A 


CRLF: 


.WORD 


0DOA 




CARRIAGE RETURN AND LINE FEED 



371 7EDA 

372 7EDA 

373 7EDA 

374 7EDA 

375 7EDA 4300 

376 7EDB 4F38 

377 7EDC 0605 

378 7EDD 4700 



TRESET: 



RTN: 



. PAGE 'TELETYPE RESET AND INPUT TEST' 



TELETYPE RESET 



PUSH 
LI 

ROUT 
PULL 



AC3 

AC3 , TTYAD 
RESET 
AC 3 



5 



TTY16P 



379 


7EDE 


0200 


A 




RTS 


0 






380 


7EDF 
















3 81 


7EDF 
















382 


7EDF 








TELETYPE INPUT TEST 






383 


7EDF 
















384 


7EDF 








RTS 0 - 


INTERRUPT 






335 


7EDF 








RTS 1 - 


NORMAL RETURN 






336 


7EDF 
















387 


7EDF 


4300 


A 


INTEST: PUSH 


AC 3 






333 


7EE0 


4000 


A 




PUSH 


AC0 






339 


7EE1 


4F00 


A 




LI 


AC3,0 


J 


ZERO ADDRESS TO READ STATUS 


390 


7EE2 


0406 


A 




RIN 


INT 


t 


READ INTERRUPT STATUS 


391 


7EE3 


5C03 


A 




SHL 


AC0,8 


« 


TTY STATUS IS BIT 7 


392 


7EE4 


1202 


A 




30C 


POS,NINT 


• 


TEST FOR INTERRUPT 


393 


7EE5 


4400 


A 




PULL 


AC0 






394 


7EE6 


21F6 


A 




JMP 


RTN 


• 

i 


RETURN 


395 


7EE7 


4400 


A 


NINT: PULL 


AC0 




NO INTERRUPT 


395 


7EE8 


4700 


A 




PULL 


AC 3 






397 


7EE9 


0201 


A 




RTS 


1 







393 


7EEA 








. PAGE 


'LOAD/STORE MULTIPLE SUBROUTINES' 


399 


7EEA 














400 


7EEA 








LOAD MULTIPLE SUBROUTINE - LOAD REGISTERS FROM 


401 


7EEA 














402 


7EEA 








JSR 


LDM 


JUMP TO SUBROUTINE 


403 


7EEA 








.WORD 


X 


START OF SAVE AREA 


404 


7EEA 








(RETURN 


HERE) 




405 


7EEA 














406 


7EEA 














407 


7EEA 


4700 


A LDMs 


PULL 


AC 3 


7 GET STORAGE LOCATION 


403 


7EE3 


4300 


A 




PUSH 


AC 3 




409 


7EEC 


8F03 


A 




LD 


AC 3 , (AC3) 




410 


7EED 


8300 


A 




LD 


AC0,0(AC3) 


; LOAD REGISTERS 


411 


7EEE 


8701 


A 




LD 


AC1 f 1 (AC3) 




412 


7EEF 


8B02 


A 




LD 


AC2,2(AC3) 




413 


7EF0 


8F03 


A 




LD 


AC3,3(AC3) 




414 


7EF1 


0201 


A 




RTS 


1 




415 


7EF2 














416 


7EF2 














417 


7EF2 








STORE MULTIPLE SUBROUTINE - STORE REGISTERS IN 


418 


7EF2 














419 


7EF2 








JSR 


STM 


JUMP TO SUBROUTINE 


420 


7EF2 








.WORD 


X 


START OF SAVE AREA 


421 


7EF2 








(RETURN 


HERE) 




422 


7EF2 














423 


7EF2 








REGISTERS ARE UNALTERED 




424 


7EF2 














425 


7EF2 


5700 


A STM: 


XCHRS 


AC 3 


; GET BUFFER ADDRESS 


426 


7EF3 


4300 


A 




PUSH 


AC 3 




427 


7EF4 


3F00 


A 




LD 


AC3, (AC3) 




428 


7EF5 


A300 


A 




ST 


AC0,0(AC3) 


; STORE REGISTERS 


429 


7EF6 


A701 


A 




ST 


ACl f l(AC3) 




430 


7EF7 


AB02 


A 




ST 


AC2,2(AC3) 




431 


7EF8 


4400 


A 




PULL 


AC0 




432 


7EF9 


5400 


A 




XCHRS 


AC0 




433 


7EFA 


A303 


A 




ST 


AC0 r 3 (AC3) 


; STORE ORIGINAL AC 3 


434 


7EFB 


3300 


A 




LD 


AC0,0(AC3) 


; RESTORE AC0 


435 


7EFC 


8F03 


A 




LD 


AC3,3(AC3) 


; RESTORE AC 3 


436 


7EFD 


0201 


A 




RTS 


1 




437 


7EFE 




1 










433 


7EFE 


7E00 


A 




. END 


ABSTTY 





0 ERRORS IN ASSEMBLY ****** 



7 



TTY16P 



$1! $2! ABSTTY AC0 AC1 AC 2 AC 3 BIT12 BIT13 CRLF 
7EA1 A 7EAD A 7E00 A 0000 A 0001 A 0002 A 0003 A 7EB9 A 7EBA A 7ED9 A 

DELAY DONE ENDREC GECO GETC GETC2 H3FFF INT INTEST LI 
7E8C A 7E69 A 7E2B A 7E73 A 7E3B A 7EA2 A 7E9A A 0006 A 7EDF A 7EC8 A 

LDM LP1 LP2 LP3 MASK MESG MSGEND NINT NZRO POS 
7EEA A 7E3C A 7E61 A 7E80 A 7E99 A 7EC3 A 7ECF A 7EE7 A 0005 A 0002 A 

PRADR PREAD PRESET PSTART PUT2C PUTC RDREN RDRIN RDWD RDWDCK 
0010 A 0001 A 0003 A 0002 A 7ED3 A 7E59 A 0004 A 7E9C A 7E32 A 7E1C A 

READ RESET RETURN RTBYT RTN SAV SEND STM TCKSUM TORS 
0032 A 0305 A 7E90 A 7EBB A 7EDD A 7E94 A 0003 A 7EF2 A 7E1F A 7E24 A 

TRESET TTYl TTY2 TTYAD ZRO 
7EDA A 7E03 A 7E15 A 0038 A 0001 A 



2253 99B2 



3 



o 
o 



GENLDR 



PEVISION-G 01/02/74 
GENLDR 00123D 01/01/74 



1 


0000 


0001 


A 


GENL 


1 ; ASSEMBLF GENLDR 


2 


0000 


0000 


A 


DSKL 


0 


3 


0000 


0001 


A 


IMP16L = 


1 ; ASSEMBLE FOR IMP-I6L 


4 


0000 






.IF 


IMP16L 


5 


0000 






.IF 


GENL 


6 


0000 






.TITLE 


GENLDR, '00123D 01/01/74* 


7 


0000 






. END IF 




8 


0000 






.TSECT 




9 


0000 






.IF 


1-DSKL 


10 


0000 


0880 


T 


.=.+X»880 


11 


0880 






.LOCAL 




12 


0880 










13 


0880 






: SAVE INPUT DEVICE FLAG 


14 


0880 










15 


0880 


AC12 


B 


DSCLDR : ST 


R3 f INDE VF ;0=TTY, 1=CARD READER 


16 


0881 






.IF 


IMP16L 


17 


0881 










18 


0881 






; INITIALIZE LOADER FOP 16P/16L 


19 


0881 










20 


0881 


8D2D 


A 


SETPL: LD 


R3 tCPAD 


21 


0882 


0418 


A 


R IN 


GPCS 


22 


0883 


4801 


A 


AISZ 


R0,1 


23 


0884 


2C4C 


I 


JSR 


LINIT 


24 


0885 






. ENDIF 




25 


0885 










26 


0885 






? WRITE LOADER 


READY MESSAGE 


27 


0885 










28 


3885 


8443 


8 


LD 


Rl tHODOA; 


29 


0886 


2C4D 


I 


JSP 


outwd ; 


30 


0887 


9C4E 


I 


LD 


R3 1 T BL4 


31 


0888 


4E1D 


A 


LI 


R2»29 


32 


0889 


2C4F 


I 


JSR 


OUTANS 


33 


088A 






.IF 




34 


088A 










35 


088A 






; INITIALIZE LOADER STATE 


36 


088A 










37 


088A 


7817 


B 


ISZ 


STATE 


38 


088B 






. ENOIF 




39 


088B 










40 


088B 






; READ COMMAND 


FROM INPUT DEVICE SPECIFIED 


41 


088B 










42 


088B 


8012 


B 


RFADCM: LD 


RO, INOEVF 


43 


088C 


1102 


A 


BOC 


ZR0..+3 


44 


088D 


2C50 


I 


JSR 


RDCMDC ; C ARD READER 'INPUT 


45 


088E 


11 ni 


A 


JMP 


.+2 


46 


088F 


2C51 


I 


JSR 


ROC MOT ; TEL ETYPE KEYBOARD INPUT 


47 


0890 










48 


0890 






; PACK COMMAND 


CODE 2 CHARACTER S/ WORD 


49 


0890 










50 


0890 


8806 


B 


$3: LD 


R2,ACMD2 


51 


0891 






.ENDIF 


» 


52 


0891 


8C0C 


B 


LD 


R3, ATBL2 


53 


0892 


2911 




JSR 


$4 


54 


0893 


A200 


A 


ST 


RO, (R2) 


55 


0894 


290F 


A 


JSR 


$4 


56 


0895 


A201 


A 


ST 


RO* KR2) 


57 


0896 










58 


0896 






; LOCATE COMMAND IN TABLE AND JUMP TO COMMAND PROCESSOR OR INVCMD 


59 


0896 










60 


0896 


8200 


A 


$6: LD 


R0» (R2) 


61 


0897 


F300 


A 


SKNF 


RO, (R3) 


62 


0898 


2101 


A 


JMP 


.+2 


63 


0899 


2103 


A 


JMP 


.+4 



1 



GENLDR 



64 


089A 


8201 


A 




LO 


RO, KR2) 


65 


089B 


F301 


A 




SKNE 


RO, UR3) 


66 


089C 


2702 


A 




JMP 


32 (R3) 


67 


089D 


4B03 


A 




AISZ 


R3,3 


68 


089E 


21F7 


A 




JMP 


$6 


69 


089F 






. 






70 


089F 






; ERROR 


: INVALID OR UNRECOGNIZED COMMAND 


7 1 


089F 






• 






72 


089F 


4F01 


A 


INVCMD: 


LI 


R3, 1 


73 


08A0 


2C52 


I 




JSR 


OUTMSG 


74 


08A1 


4C00 


A 




LI 


R0,0 


75 


08A2 


A012 


B 




ST 


RO, I NDE VF ; NEXT COMMAND 


76 


08A3 


21F7 


A 




JMP 


READCM 


77 


08A4 






; 






78 


08A4 






; 


PACK A 


WORD FROM INPUT BUFFER 


7<? 


08A4 






• 






80 


08A4 


4200 


A 


$4: 


PUSH 


R2 


81 


08A5 


8816 


B 




LD 


R2, START 


82 


08A6 


82C0 


A 




LD 


RO, (R2) 


83 


08A7 


5C08 


A 




SHL 


RO, 8 


84 


08A8 


3181 


A 




RCPY 


RO.Rl 


85 


08A9 


8201 


A 




LD 


R0,1(R2 ) 


86 


08AA 


3400 


A 




RADD 


R1,R0 


87 


08AB 


4A02 


A 




AISZ 


R2,2 


88 


08AC 


A816 


B 




ST 


R2, START 


89 


08AD 


4600 


A 




PULL 


R2 


90 


08AE 


0200 


A 




RTS 


0 


91 


08AF 


0760 


A 


CPAD: 


.WORD 


0760 



92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 



08B0 
08B0 
08B0 
08B0 
08B0 
08B0 
08B0 
08B0 
08B0 
08BO 
08B0 
08B1 
08B2 
08B2 
08B2 
08B2 
08B3 
08B4 
08B4 
08B4 
08B4 
08B5 
08B5 
08B6 
08B6 
08B6 
08B6 



.PAGE 

;****************************************** ***************************** 

;* * 
;* OBS COMMAND * 
; * * 

;*********************************************************************** 

.LOCAL 



BASF SECTOR ORIGIN MUST BE SPECIFIED IN COMMAND RECORD 



2C53 I OBS: 
21ED A 



JSR 
JMP 



VALUE 
INVCMD 



704A B 
21EB A 



881F B 
A202 A 

21D4 A 



BASE SECTOR ORIGIN MUST BE <= X'OOFF 

SKAZ RO,HFFOO 
JMP INVCMD 

SAVE BASE SECTOR ORIGIN IN MAIN PROGRAM VECTOR OR OVERLAY VECTOR 



LD R2 , RLMVCT 

•ENDIF 

ST R0,BSO(R2) 



RETURN FOR NEXT COMMAND 
JMP READCM 



2 



GENLDR 



119 


08B7 






120 


0887 






121 


0 887 






12 7 


08B7 






123 


08B7 






124 


08B7 






125 


0 8B7 






126 


0 8B7 






127 


D8B7 






1 2 Q 
LC.O 


n or7 






1 £ ~ 


J O D ( 


C \^ -> D 


I 


1 30 


08B8 


2 1E6 


A 


1 3 1 

1 J L 


v O D ~ 






132 


08B9 






133 


08B9 






134 


08B9 


881F 


B 


135 


08BA 






1 0: A 


n Q O A 


A "> C\~i 


A 


137 


08BB 






138 


08BB 






139 


08BB 






140 


08BB 


21CF 


A 



• PAGE 

.******************************************************* **************** 
;* * 
;* OTS COMMAND * 
;* * 

;*********************************************************************** 

.LOCAL 

TOP SECTOR ORIGIN MUST BE SPECIFIED IN COMMAND RECORD 



JSR 
JMP 



VALUE 
INVCMD 



SAVE TOP SECTOR ORIGIN IN MAIN PROGRAM VECTOR OR OVERLAY VECTOR 



LD R2 » RLMVCT 

. FNDIF 

ST R0?TS0(R2) 



RETURN FOR NEXT COMMAND 
JMP READCM 



08BC 
08BC 
08BC 
08BC 
08BC 
08BC 
08BC 
08BC 
08BC 
08BC 
0 8BC 
08BD 
08BF 
08BF 
08BF 
08BF 
08BF 
08BF 



141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 

1 c r> inoc 



4C01 A 
A01C 8 
2102 A 



160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
1 7 6 
177 
178 
179 
180 
181 
182 



08BF 
08BF 
08BF 
08BF 
08C0 
08CI 
08C2 
08C2 
08C3 
0 8C4 
08C5 
08C5 
08C5 
08C5 
08C6 
08C7 
08C8 
08C9 
08C9 
08C9 
08C9 
08CA 
08CB 



4C00 A 
A01C B 
881F B 

8201 A 
A018 B 
8A00 A 



F818 B 
2109 A 
801C B 
1104 A 



82FF A 
6048 B 
FQ47 B 



.PAGE 

; *********************************************************************** 

;* * 
;* ER COMMAND * 
;* * 
************************************************************************ 

•LOCAL 

STHI AND STLO ARE FOUND IN MAIN PROGRAM VECTOR OR OVERLAY VECTOR 

FR: LI R0,1 ; SET FLAG TO PRINT ERRORS ONLY 

ST RO, TEMPI 

JMP SY1 

. *********************************************************************** 
;* * 
; * SY COMMAND * 
;* * 
. *********************************************************************** 

i rtr a i 

STHI AND STLO ARE FOUND IN MAIN PROGRAM VECTOR OR OVERLAY VECTOR 
SY: 
SYl: 



LI R0,0 

ST RO, TEMPI 

LD R2, RLMVCT 
• ENDIF 

LD R0,STL0(R2) 

ST RO, STLOW 

LD R2,STHI(R2) 



IF (R2) = STLOW, NO MORE ENTRIFS IN SYMBOL TABLE 



$1: SKNE 
JMP 
LD 

BOC 



R2, STLOW 
$4 

RO, TEMPI 
ZR0,$2 



; END OF SYMBOLS 
;PRINT SYMBOL 

IF SYMBOL IS MULTIPLY-DEFINED OR UNDEFINED, PRINT IT 



LD 

AND 

SKNE 



R0,-KR2) 

RO,HAOOO 

R0,H8000 



3 



GENLDR 



183 08CC 2101 A 

184 08CD 2C54 I $2: 
165 08CE 

186 08CE 

187 08CE 

188 08CE 4AF8 A 

189 08CF 21F5 A 

190 0800 8443 B $4: 

191 0801 2C4D I 

192 0802 21B8 A 



JMP 

JSR 



$3 

PRSYMB 



INCREMENT TO NEXT SYMBOL 



$3: 



AISZ 

JMP 

LD 

JSR 

JMP 



R2.-5 
$1 

R1,H000A 
OUT WO 
PEADCM 



193 0803 

194 0803 

195 08D3 

196 0803 

197 0803 

198 0803 

199 0803 

200 0803 

201 08D3 

202 0803 

203 08D3 4C 

204 0804 21 

205 08D5 

206 0805 

207 0805 

208 08D5 4C 

209 08D6 

210 0806 

211 0806 

212 08D6 AO 

213 0807 21 



.PAGE 

• *********************************************************************** 
;* * 
;* NLM AND LM COMMANDS * 
;* * 
************************************************************************ 

• LOCAL 



SET FLAG TO INHIBIT PRINTING LIMITS 



00 A NLM: 

01 A 



LI 
JMP 



R0,0 
$1 



SET FLAG TO PRINT LIMITS 
01 A LM: LI ROtl 

SAVE LIMITS FLAG AND RETURN FOR NEXT COMMAND 



13 B $l: 
B3 A 



ST 
JMP 



ROt LIMFLG 
READCM 



214 


08D8 






215 


08D8 






216 


0808 






217 


0808 






218 


0808 






219 


0808 






220 


08D8 






221 


0808 






222 


0808 






223 


0808 






224 


08D8 


4C00 


A 


225 


0809 


2101 


A 


226 


080A 






227 


080A 






228 


9 8DA 






229 


08DA 


4C01 


A 


230 


08DB 


A0D9 


B 


231 


08DC 


21AE 


A 


232 


080D 






233 


0800 






234 


08DD 






235 


08DD 






236 


0 80D 






237 


0800 






238 


08DD 






239 


0 8DD 






240 


0800 






241 


08DD 






242 


08DD 


4C01 


A 



.SPACE 3 

************************************************************************ 

;* * 

;* NSQ AND SQ COMMANDS * 
;* * 
• ****************************************** ****************** 
.LOCAL 

INHIBIT SEQUENCE CHECK 



JMP 



RO, 0 
$1 



PERFORM SEQUENCE CHECK (CARDS ONLY) 



LI 
ST 
JMP 



RO, 1 

RO,SEQCK 
READCM 



.PAGE 

; *********************************************************************** 

:* * 

;* CP AND TTY COMMANDS * 

;* * 
*************** **************************************************** *** )!c ^ 

• LOCAL 

SET FLAG FOR CARD READER INPUT 
:: LI R0,1 



4 



GENLDR 



243 08DE 2101 A JMP $1 

244 080F 

245 080F 

246 08DF 

247 080F 4C00 A TTY : LI ROtO 

248 08E0 

249 08E0 

250 08E0 

251 08E0 A012 B $1: ST RO.INDEVF 

252 08E1 21A9 A JMP READCM 



SET FLAG FOR TTY INPUT 



SAVE INPUT DEVICE FLAG AND RETURN FOR NEXT COMMAND 



253 


08E2 






.PAGE 






2 54 


08E2 






J******************************************* 


255 


08E2 






;* 




* 


256 


08E2 






;* CLR COMMAND 




* 


257 


08E2 






:* 




* 


258 


08E2 






****************************^ 


2 59 


08E2 






.LOCAL 






260 


08E2 












261 


08E2 






; INITIALIZE RLM VECTOR 




262 


08E2 












263 


08E2 


881E 


B 


CLR: LD 


R2t INVCT 




264 


08E3 


8C1F 


B 


LD 


R3 t RLMVCT 




265 


08E4 






. ENOlF 






266 


08E4 


4D0D 


A 


LI 


RltLVCT 




267 


08E5 


8200 


A 


LD 


RO, (R2) 




268 


08 E6 


A3 00 


A 


ST 


RO, (R3J 




269 


08E7 


4B01 


A 


AISZ 


R3,l 




270 


08E8 


4A01 


A 


AISZ 


R2, 1 




271 


08E9 


49FF 


A 


AISZ 


Rlt-1 




272 


08EA 


21FA 


A 


JMP 


.-5 




2 73 


08EB 






.IF 


GENL 




2 74 


08EB 


79 OC 


A 


ISZ 


CLRFLG 


;REMEMBER SO THAT SYMB TBL AREA CAN 


275 


08EC 










BE CLEARED LATER 


276 


08EC 






. END IF 






277 


08EC 












?78 


08EC 






; ZERO MEMORY 


RANGE I 




279 


08EC 












280 


08EC 


4C00 


A 


LI 


RO, 0 




281 


08ED 


8800 


B 


LD 


P2,L0W1 




282 


08EE 


2C55 


I 


JSR 


STORE 




283 


08EF 


4A01 


A 


AISZ 


R2,l 




2 84 


08F0 


E802 


B 


SKG 


R2.HIGH1 




285 


08F1 


21FC 


A 


JMP 


.-3 




286 


08F2 












287 


08F2 






I ZERO MEMORY 


RANGE 2 




288 


08F2 












289 


08F2 


8803 


B 


LD 


R2, L0W2 




290 


08F3 


2C55 


I 


JSR 


STORE 




291 


08F4 


4A01 


A 


AISZ 


R2, 1 




292 


08F5 


E805 


B 


SKG 


R2,HIGH2 




293 


08F6 


21FC 


A 


JMP 


.-3 




294 


08F7 












295 


08F7 






; RETURN FOR NEXT COMMAND 




296 


08F7 












297 


08F7 


2193 


A 


JMP 


READCM 




298 


08F8 






.IF 


GENL 




299 


08P8 


0000 


A 


CLRFLG: .WORD 


0 




300 


08F9 






. ENDIF 







5 



GENLDR 



301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
3 60 
361 
362 
363 
364 
365 
366 



08F9 
08F9 
08F9 
08F9 
08F9 
08F9 
08F9 
08F9 
08F9 
08F9 
08F9 
08F9 
08FA 
08FB 
08FC 
08F0 
08FD 
08FE 
08FF 
0900 
0900 
0901 
0902 
0903 
0904 
0905 
0906 
0907 
0908 
0909 
0 90A 
090A 
090A 
090A 
090B 
090C 
0900 
090E 
090F 
090F 
090F 
090F 
0910 
0911 
0912 
0913 
0914 
0915 
0915 
0915 
0915 
0916 
0917 
0918 
0919 
0919 
0919 
0919 
091A 
091B 
091C 
091D 
091E 
091F 
0920 
0921 



• PAGE 

«* * 
;* RLM COMMAND * 

• * 

• * 

•LOCAL 
INITIALIZE RLM VECTOR 







.IF 


GENL 




8013 B 


RLM: 


LD 


ROt L IMFL G 


;IF LIMITS FLAG SET, REINITIALIZE 


HOB A 




BOC 


ZR0,$1 


;RLM VECTOR 


881E B 




LD 


R2, INVCT 




8C1F B 




LD 


R3» RLMVCT 








.IF 


GENL 


• 


4A04 A 




AISZ 


R2t 4 


* DON • T RE I N IT FIR^T 4 UflRrK 


4B04 A 




AISZ 


R3.4 


4D07 A 




LI 


RltLVCT-6 








. END IF 




8200 A 




LD 


RO, (R2) 




A300 A 




ST 


R0»(R3> 




4B01 A 




AISZ 


R3,l 




4A01 A 




AISZ 


R2,l 




49FF A 




AISZ 


Ri.-l 




21FA A 




JMP 


.-5 




8CIF B 


$1: 


LD 


R3, RLMVCT 




7F0C A 




DSZ 


PTRP(R3) 




830C A 




LD 


ROt PTRP(R3) 




A30B A 




ST 


R0,PTRN(R3) 






; REAO 


1 RLM 


RECORD FROM TTY 


P&PFR TAPF RFAnPD nD r AD n n CAncn 


8012 B 


$2A : 


LD 


RO, INDEVF 




1102 A 




BOC 


ZR0t.+3 




2C56 I 




JSR 


RDRLMC 




2101 A 




JMP 


.+2 




2C57 I 




JSR 


RDRLMT 






; CALL 


LODREC 


TO PROCESS RLM 


RECORD 


8C1F B 




LD 


R3, RLMVCT 




2C58 I 




JSR 


LODREC 




2103 A 




JMP 


$2 


; ERROR RETURN 


2106 A 




JMP 


$3 


JTITLE RETURN 


2119 A 




JMP 


$4 


; END RETURN 


21F5 A 




JMP 


$2A 


; NORMAL RETURN 




ERROR 


RETURN FROM LODREC WITH ERROR CODE IN R3 (1 <- R3 <= 10) 


4B07 A i 


• 2: 


AISZ 


R3.ML 




2C52 I 




JSR 


OUTMSG 




0000 A 




HALT 






21F1 A 




JMP 


$2A 






PRINT 


TITLE 


RECORD IF LIMITS FLAG IS SET 


8013 B $ 


3: 


LD 


RO.LIMFLG 




11EF A 




BOC 


ZR0,$2A 




8443 B 




LD 


Rlf HODOA 




2C4D I 




JSR 


OUTWD 




8C07 B 




LD 


R3, AINBUF 




4B04 A 




AISZ 


R3.4 




4E06 A 




LI 


R2.6 




2C4F I 




JSR 


OUTANS 




8446 B 




LD 


RltH2020 





6 



GENLDR 



367 


0922 


2C4D 


I 


JSR 


OUT WD 




368 


0923 


8C07 


B 


LD 


R3 t AI NBUF 




369 


0 924 


4B07 


A 


AISZ 


R3, 7 




370 


0925 


9007 


B 


LD 


R0,3AINBUF 




371 


0926 


6041 


B 


AND 


ROtHOOFF 




372 


0927 


5C01 


A 


SHL 


RO, I 




373 


0928 


002A 


B 


SUB 


RO.HOOOA 




374 


0929 


3281 


A 


RCPY 


R0,R2 




375 


092A 


1101 


A 


BOC 


ZR0,.+2 




376 


092B 


2C4F 


I 


JSR 


OUTANS 




377 


092C 


21DD 


A 


JMP 


$2A 




378 


0920 












379 


0920 






; PRINT RLM LIMITS IF LIMITS 


FLAG IS SET 


3 80 


092D 






; 






381 


0920 


881F 


B 


$4: LD 


R2, RLMVCT 




382 


092E 






.IF 


GENL 




3 83 


092E 


8204 


A 


i n 


RO. PNITP T ( R 7 1 


; IF RLM ENTRY POINT IS NON-ZERO, 


384 


092F 


1101 


A 


BOC 


ZR0,$4A 




385 


0930 


A001 


B 


ST 


P 0» ENTY 


: SAVE VALUE FOR GO 


3 86 


0931 






.ENDIF 






3 87 


0931 


8013 


B 


$4A: LO 


RO.LIMFLG 




388 


0932 


HOC 


A 


BOC 


ZR0,$5 




389 


0933 


8446 


B 


LD 


R1,H2020 


; PRINT FOUR BLANKS 


390 


0934 


2C40 


I 


JSR 


OUTWO 




391 


0935 


2C40 


I 


JSR 


OUTWD 




392 


0936 


8C07 


B 


LD 


R3 f AI NBUF 


; PRINT SOURCE CHECKSUM 


393 


0937 


87 04 


A 


LD 


R1,4(R3) 




394 


0938 


2C59 


I 


JSR 


OUT HEX 




395 


0939 


8446 


B 


LD 


Rl ,H2020 


; PRINT FOUR BLANKS 


396 


093A 


2C4D 


I 


JSR 


OUTWD 




397 


093B 


2C40 


I 


JSR 


OUTWD 




398 


093C 


8705 


A 


LO 


Rl, 5(R3) 


J PRINT OBJECT CHECKSUM 


399 


0930 


2C59 


I 


JSR 


OUT HEX 




400 


093E 


2C5A 


I 


JSR 


PRLIMS 




401 


093F 


245B 


I 


$5: JMP 


READCM 




402 


0940 






• ENDIF 






403 


0940 






.PAGE 






404 


0940 






;************** 


********************************************************* 


405 


0940 






;* 




* 


406 


C940 






;* GO COMMAND 




* 


"tu r 








9 "* 




* 


408 


0940 






• *********************************************************************** 


409 


0940 






.LOCAL 






410 


0940 


881F 


B 


GO: LD 


R2, RLMVCT 


; GE T VECTOR ADDRESS 


411 


0941 


2C53 


I 


JSR 


VALUE 




412 


0942 






•ENDIF 






413 


0942 


2101 


A 


JMP 


• + 2 




414 


0943 


2107 


A 


JMP 


$1 




415 


0944 


8001 


B 


LD 


R 0, ENTY 




416 


0945 






• ENDIF 






417 


0945 


1505 


A 


BOC 


NZER0,$1 




418 


0946 


4F03 


A 


LI 


R3, 3 




419 


0947 


2C52 


I 


JSR 


OUT MSG 




420 


0948 


4C00 


A 


LI 


R0,0 




421 


0949 


A012 


B 


ST 


RO, INDEVF 




422 


094A 


245B 


I 


JMP 


READCM 




423 


094B 












424 


0 94B 






? ENTRY POINT FROM COMMAND RECORD REPLACES ENTRY POINT IN VECTOR 


425 


094B 












426 


094B 


3181 


A 


$1: RCPY 


R0,R1 




427 


094C 


881F 


B 


LD 


R2, RLMVCT 




428 


0940 






.ENDIF 






429 


0940 


A604 


A 


ST 


Rl, ENTPT (R2 ) 




430 


094F 












431 


094E 






; PRINT COMPOSITE LIMITS 




432 


094E 













7 



GENLDR 



433 


09 4E 


4200 


A 


$2: 


PUSH 


R2 




434 


094F 


2C5A 


I 




JSR 


PRL IMS 




435 


0950 


4600 


A 




PULL 


R2 




436 


0951 








.IF 


GENL 




43 7 


0951 






♦ 








438 


0951 








MOVE 


PSEUDO-BASE SECTOR 


TO ACTUAL BASE SECTOR 


439 


0951 






* 








440 


0951 


8114 


A 


$28: 


LD 


R0» $B0 




441 


0952 


A114 


A 




ST 


R0,$B1 




*42 


0953 


8404 


8 




LD 


R l.BSZ 


; END OF BASE SECTOR 


443 


0954 


4901 


A 




AISZ 


Rltl 




444 


0955 


4F00 


A 




LI 


R3,0 




445 


0956 


9110 


A 


$2A: 


LD 


ROt 3$B1 




446 


0957 


A3 00 


A 




ST 


ROt (R3) 




447 


0958 


790E 


A 




I SZ 


$B1 




448 


0959 


4B01 


A 




AISZ 


R3, 1 




449 


095A 


49FF 


A 




AISZ 


Rl t-1 


;TEST FOR END 


450 


095B 


21FA 


A 




JMP 


$2A 




451 


095C 


8F04 


A 




LD 


R3, ENTPT ( R2 ) 




452 


0950 


819A 


A 




LD 


ROtCLRFLG 




453 


095E 


1501 


A 




80 C 


NZERO, $3 


:IF BRANCH, CLEAR REMAINDER 


454 


095F 


2300 


A 




JMP 


( R3 ) 


;JUMP TO ENTRY POINT 


455 


0960 


8A01 


A 


$3: 


LD 


R2,STLO(R2) 


;CL FAR LOADER AREAS 


456 


0961 


3981 


A 




RCPY 


R2.R1 




457 


0962 


5101 


A 




CAI 


Rltl 




458 


0963 


C504 


A 




ADD 


R1,$CL 




459 


0964 


4CO0 


A 




LI 


R0,0 




460 


0965 


2502 


A 




JMP 


a$CL 


;JUMP TO •CLEAR* ROUTINE 



461 0966 .SPACE 2 

462 0966 0C43 T $80: .WORD PBS EC 

463 0967 0C43 T $B 1 : .WORD PBSEC 

464 0968 OFCl T $CL : .WORD CLEAR 

465 0969 • ENDIF 



466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

4 86 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 



0969 

0969 

0969 

0969 

0969 

0969 

0969 

0969 

0969 

0969 

0969 

096A 

096B 

096C 

096D 

096E 

096F 

0970 

0971 

0971 

0971 

0971 

0972 

0973 

0973 

0973 

0973 

0974 

0975 

0976 

0977 



.PAGE 

;*******************************^ 

; * * 

;* READ COMMAND FROM TELETYPE KEYBOARD INTO INBUF * 
; * 

* 

• ************** ************•****•*******************♦******♦***♦#******* 
• LOCAL 







; WRITE PROMPT 


CHARACTER ( 


8810 


B 


RDCMDT : LD 


R2, ACRDBUF 


A816 


B 


ST 


R2, START 


8443 


B 


LD 


Rl.HODOA 


2C4D 


I 


JSR 


OUT WD 


8030 


B 


LD 


R0,H002i 


2C5C 


I 


JSR 


OUTCH 


A200 


A 


ST 


RO, (R2) 


4A01 


A 


AISZ 


R2,l 






; READ AND ECHO 


CHA RACTER 


4C01 


A 


$l: LI 


R0,1 


2948 


A 


JSR 


READCH 






; TEST FOR SPECIAL FUNCTION 


F02B 


B 


SKNE 


RO.HOOOD 


2110 


A 


JMP 


$2 


F02A 


B 


SKNE 


RO, HOOOA 


2111 


A 


JMP 


$3 


F025 


B 


SKNE 


ROtHOOOO 



; CARRIAGE RETURN 
;line FEED 



8 



GENLDR 



497 


0978 


21F8 


A 




JMP 


$1 ; NULL 


498 


0979 


F03E 


B 




SKNE 


RO,H007F 


499 


097A 


21F6 


A 




JMP 


$1 tRUBOUT 


500 


097B 


F038 


B 




SKNE 


R0.H005F 


501 


097C 


210E 


A 




JMP 


$4 ; BACKSPACE 


5 02 


0970 


F03C 


B 




SKNE 


R0,H007D 


503 


097E 


2110 


A 




JMP 


$5 ;ESCAPE 


504 


097F 












505 


097F 






; IF 


MAXIMUM 


LINE SIZE EXCEEDED, IGNORE CHARACTER 


506 


097F 












507 


097F 


E808 


B 




SKG 


R2, ENDBUF 


508 


0980 


2101 


A 




JMP 


.+2 


509 


0981 


21EF 


A 




JMP 


$1 


510 


0982 












511 


0982 






; STORE CHARACTER IN BUFFER, INCREMENT POINTER, AND LOOP FOR 


512 


0982 












513 


0982 


A200 


A 




ST 


RO, (R2) 


514 


0983 


4A01 


a 




AISZ 


R2.1 


515 


0984 


21 EC 


A 




JMP 


$1 


516 


0985 












517 


0985 


• 




; OUTPUT LINE 


FEED AND TERMINATE LINE 


518 


0985 












519 


0985 


802A 


B 


$2: 


LD 


RO.HOOOA 


520 


0986 


2C5C 


I 




JSR 


OUTCH 


521 


0987 


210A 


A 




JMP 


$6 


522 


0988 












523 


0988 






; OUTPUT CARRIAGE RETURN AND TERMINATE LINE 


524 


0988 












525 


0988 


8028 


B 


$3: 


LD 


RO,HOOOD 


526 


0989 


2C5C 


I 




JSR 


OUTCH 


527 


C98A 


2107 


A 




JMP 


$6 


528 


098B 












529 


0988 






; BA 


CKSPACE 1 


CHARACTER. IF ENTIRE LINE DELETED, REPROMPT 


530 


098B 












531 


098B 


4AFF 


A 


$4: 


AISZ 


R2,-l 


532 


098C 


F810 


B 




SKNE 


R2 , ACRDBUF 


533 


0980 


2101 


A 




JMP 


$5 


534 


C98E 


21E2 


A 




JMP 


$1 


535 


098P 












536 


098F 






; DELETE ENTIRE LINE AND REPROMPT 


53^ 


098F 












538 


098F 


8443 


B 


$5: 


LD 


R1,H0D0A 


539 


0990 


2C4D 


I 




JSR 


OUTWD 


540 


0991 


21D7 


A 




JMP 


RDCMDT 


541 


0992 












542 


0992 






; TERMINATE LINE WITH EOR AND RETURN 


543 


0992 












544 


0992 


802P 


B 


$6: 


LD 


R0,H0020 


545 


0 993 


A200 


A 




ST 


RO, <R2> 


546 


3994 


8041 


B 




LD 


RO.HOOFF 


547 


0995 


A201 


A 




ST 


RO, KR2) 


548 


0996 


0200 


A 




RTS 


0 



549 0997 

550 0997 

551 0997 

552 0997 

553 0997 

554 0997 

555 0997 

556 0997 

557 0997 

558 0997 

559 0997 802C B RDRLMT: LD 

560 0998 2C5C I JSR 
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; * * 
;* READ RLM RECORD FROM 8-CHANNEL TTY PAPER TAPE READER INTO INBUF * 

;* * 
******** 

. LOCAL 

SEND »XON» TO READER 

R0,H0011 
OUTCH 



9 



GENLDR 



561 


0999 






» 






562 


0999 






* 


SEARCH FOR 'STX* C 


563 


0999 






; 






564 


C999 


4C00 


A 


$A: 


LI 


R0,0 


565 


099A 


2920 


A 




JSR 


READCH 


566 


09 9B 


F026 


B 




SKNE 


R0,H0002 


567 


099C 


2101 


A 




JMP 


.+2 


568 


099D 


21FB 


A 




JMP 


$A 


569 


099E 






; 






570 


099E 






; READ 


FIRST 


WORD AND EXTR 


571 


099E 






; 






572 


099E 


8807 


B 




LD 


R2.AI NBUF 


573 


099F 


290E 


A 




JSR 


$2 


574 


09A0 


A600 


A 




ST 


Rl, (R2) 


575 


09A1 


6441 


B 




AND 


R1,H00FP 


576 


09A2 


4A01 


A 




AISZ 


R2, 1 


577 


09A3 


C407 


B 




ADD 


Rl ,AINBUF 


578 


09A4 


4901 


A 




AISZ 


Rl, 1 


579 


09A5 


A511 


A 




ST 


R1,$T1 


580 


09A6 






; 






581 


09A6 






5 READ 


REMAINDER OF RLM RE( 


582 


09A6 






; 






5 83 


09A6 


2907 


A 


Si: 


JSR 


$2 


584 


09A7 


A600 


A 




ST 


Rl, (R2) 


585 


09A8 


4A01 


A 




AISZ 


R2,l 


586 


09A9 


E90D 


A 




SKG 


P2,$T1 


5 87 


09AA 


21 FB 


A 




JMP 


$1 


588 


09AB 






; 






589 


09AB 






: SEND 


•XOFF' 


AND RETURN 


590 


09AB 






; 






591 


09AB 


8020 


B 




LD 


R0,H0013 


592 


09AC 


2971 


A 




JSR 


OUTCH 


593 


09AD 


0200 


A 




RTS 


0 


594 


09AE 












595 


09AE 












596 


09AE 








.IP 


IMP16L 


597 


09AE 


2C5D 


I 


$2: 


JSR 


SAVE 


598 


09AF 


2D09 


A 


TGET1 : 


JSR3 


PTGET 


599 


09B0 


5C08 


A 




SHL 


R0,8 


600 


09B1 


A106 


A 




ST 


R0,$T2 


601 


09B2 








.IF 


TMP16L 


602 


09B2 


2006 


A 


TGET2: 


JSR3 


PTGET 


603 


09B3 


C104 


A 




ADD 


R0,$T2 


6 04 


09B4 


B05E 


I 




ST 


RO, SRREG+1 


60 5 


09B5 


2C 5F 


I 




JSR 


REST 


606 


09B6 


0200 


A 




RTS 


0 


607 


09B7 












608 


09B7 






; TEMPORARY 




609 


09B7 












610 


09B7 


0000 


A 


$T1 : 


.WORD 


0 


611 


09B8 


09B9 


T 


$T2: 


.=. + 1 





;STX CHARACTER 



;SAVE FIRST CHAR 



;BUILD FULL WORD 



612 09B9 

613 09B9 

614 09B9 

615 09B9 

616 09B9 

617 09B9 

618 09B9 

619 09B9 

620 09B9 7E3B 

621 09Bft 7E73 

622 09BB 2C5D 

623 09BC 1102 

624 09BD 2DFC 
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;**********************************************************************$ 

;* * 

;* READ 1 CHARACTER FROM TTY (KEYBOARD OR PAPER TAPE) INTO RO * 
;* * 

;****************************** ******** ******* ************************** 

.LOCAL 

.IF IMP16L 

PTGET: .WORD 07E3B 

PTECHO: .WORD 07E73 

READCH: JSR SAVE 

BOC 1 ,TGET3 

LECOl: JSR 3PTECH0 



10 



GENLDR 



625 09BE 2101 A 

626 09BF 2DF9 A TGET3 

627 09C0 B060 I 

628 09C1 2C5F I 

629 09C2 603E B 

630 09C3 0200 A 



JMP 


.+2 


JSR 


3PTGET 


ST 


ROtSRREG 


JSR 


REST 


AND 


R0,H007F 


RTS 


0 



631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 



09C4 
09C4 
0 9C4 
0 9C4 
09C4 
09C4 
09C4 
09C4 
09C4 
09C4 
09C4 
0 9C5 
09C6 
09C7 
0 9C7 
09C7 
09C7 
09C8 
09C9 
09CA 
09CA 
09C4 
09CA 
09CB 
09CC 



295F 
4C00 
AOOB 



8041 
8810 
A248 



8010 
A016 
0200 
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.*********************************************************************** 
• * * 

;* READ COMMAND FROM CARD READER INTO INBUF * 
;* * 
• ******************************************** *************************** 

.LOCAL 

READ 1 CARD AND CONVERT COLUMNS 1-72 TO ANSI 



A RDCMDC: JSR 



LI 
ST 



RDCARD 
R0,0 

ROtCRDFLG 



;IN READING COMMANDS, CRDFLG NOT USED 



TERMINATE RECORD WITH EOR CHARACTER 



LD 
LD 
ST 



RO, HOOFF 
R2, ACRDBUP 
R0,72(R2) 



INITIALIZE SCAN STARTING ADDRESS AND RETURN 



LO 
ST 
RTS 



RO, ACRDBUF 
R 0, START 



656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
6 37 



09CD 
09CD 
09CD 
09CD 
09CD 
09CD 
09CD 
Q9CD 
09CD 
09CD 
09CD 
09CE 
09CF 
0900 
09D0 
09D0 
09D0 
09D1 
09D2 
09D3 
09D4 
09D5 
09D6 
09D7 
09D8 
09D9 
09DA 
09DB 
09DC 
09DD 
09DD 
09DD 



2956 A 
8810 B 
A81C B 



8807 B 
4C11 A 
3800 
A11C 
2908 
A600 
4A01 
E918 
21 FB 
2C61 
4C01 
AOOB B 
0200 A 



.PAGE 

; *********************************************************************** 
«* * 

;* READ RLM RECORD FROM CARD READER INTO INBUF * 
i* * 

;**#********#**************************************#*****#*#************ 

. LOCAL 

READ 1 CARD AND CONVERT COLUMNS 1-72 TO ANSI 



RDRLMC: JSR 
LD 
ST 



RDC ARD 
R2, ACRDBUF 
R2, TEMPI 



PACK RLM RECORD 



$l: 



LD 
LI 

RADD 
ST 
JSR 
ST 

AISZ 

SKG 

JMP 

JSR 

LI 

ST 

RTS 



R2 , A INBUF 
RO, 17 
R2,R0 
R0,$T1 
$2 

Rl, (R2) 
R2,l 
R2,$T1 
$1 

CARDIN 
RO, 1 

RO, CRDFLG 
0 



;SET FLAG INDICATING NEW CARD READ 



SUBROUTINE: PACK 4 CHARACTERS/WORD 



11 



GENLDR 



688 

689 

690 

691 

692 

6 93 

694 

695 

6 96 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

73 5 

736 

737 

738 



0900 

090E 

09DF 

09E0 

09E1 

09P2 

09E3 

09E4 

09E5 

09E6 

09E7 

09E8 

09E8 

09E8 

09E8 

09E9 

09EA 

09EB 

09EC 

09ED 

09EE 

09EF 

09F0 

09F0 

09F0 

09 F0 

09F1 

09F1 

09F1 

09F1 

09F1 

09F1 

09F1 

09F1 

09P1 

09F1 

09FI 

09F2 

09F3 

09 F4 

09F5 

09F6 

09F7 

09F8 

09F9 

09PA 

09FB 

09FC 

09FD 

09FE 

09FF 



4000 
2904 
2903 
2902 
2901 
0200 
901C B 
290C A 
2102 A 
781C B 
0200 A 



4F04 A 
2C52 I 
0000 A 
4C00 A 
AOOB B 
4400 A 
4400 A 
2100 A 



$2 : 



$3: 



$4: 



LI 


R1»0 


JSR 


$3 


JSR 


$3 


JSR 


$3 


JSR 


$3 


RTS 


0 


LO 


R0,3TEMP1 


JSR 


ANSHEX 


JMP 


$5 


ISZ 


TEMPI 


RTS 


0 



ERROR — INVALID HEX CHARACTER 



$5: 



LI 

JSR 

HALT 

LI 

ST 

PULL 

PULL 
JMP 



R3,4 
OUTMSG 

R0,0 

ROtCROFLG 
RO 

RO 

RDRLMC 



TEMPORARY 
0000 A $Tl: .WORD 0 



CONVERT A CHARACTER FROM ANSI TO HEX 
INPUT CHARACTER IN RO 
HEX VALUE PACKED INTO Rl 



RETURNS : 
CALL+1 
CALL +2 



ERROR 
OK 



7449 B 

0200 A 
5D04 A 
F02F B 

0201 A 
D032 B 
11FD A 
1201 A 

0200 A 
E029 B 
2101 A 
48 F9 A 
3100 A 

0201 A 



. LOCAL 
ANSHEX: SKAZ 
RTS 
SHL 
SKNE 
$2: RTS 
SUB 
BOC 
BOC 
RTS 

$3: SKG 
JMP 
AISZ 

$4: R ADD 

RTS 
.IF 



RltHFOOO 
0 

Ri,4 

R0,H0020 

1 

R0,H0030 
ZR0,$2 
PZR0,$3 
0 

R0,H0009 
$4 

R0,-7 
R0,R1 
1 

IMP16L 



JOVERFLOW 



739 09FF 

740 09FF 

741 09FF 

742 09FF 

743 09FF 

744 09FF 

745 09FF 

746 09FF 

747 09FF 

748 09FF 

749 09FF 

750 09FF 03FB 

751 OAOO 2C62 

752 0A01 0A05 



.PAGE 
.LOCAL 

*************************************,(,************$$****#***** 

* * 

* INITIALIZATION ROUTINE FOR 16L * 

* * 

************** ******************** jjr*,^^ ****** ***** ****** ****** 



LTGET : 
LTECO: 
LCRDP : 



JSRI 
JSR 
• WORD 



OFFFB 

LTECHO 

LCRD 
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GENLDR 



753 


0A02 


0A8E 


T 


RCR01P: 


• WORD 


RCRD1 


754 


0A03 


6027 


B 


LOLCHK: 


AND 


RO, H0004 


755 


OA 04 


4F01 


A 


STATP: 


LI 


R3, STATUS 


756 


0A05 






• 
♦ 






757 


0A05 


0610 


A 


LCRO: 


ROUT 


CARDR 


758 


0A06 


1C01 


A 




BOC 


P0A,.+2 


759 


0A07 


21PD 


A 




JMP 


.-2 


760 


0A08 






? 






761 


0A08 


81F6 


A 


UNIT: 


LO 


ROt LTGET 


762 


0A09 


A1A5 


A 




ST 


RO.TGETl 


763 


OAOA 


A1A7 


A 




ST 


R0,TGET2 


764 


OAOB 


A1B3 


A 




ST 


ROf TGET3 


765 


OAOC 


81F3 


A 




LD 


RO, LTECO 


766 


OAOO 


A1AF 


A 




ST 


R0,LEC01 


767 


OAOE 


810E 


A 




LO 


RO, LTTYTI 


768 


OAOF 


Alll 


A 




ST 


RO , TTYT1 


769 


0A10 


81F2 


A 




LD 


RO, LOLCHK 


770 


0A11 


A178 


A 




ST 


RO.OLCHK 


771 


0A12 


81F1 


A 




LD 


RO, STATP 


772 


0A13 


A113 


A 




ST 


RO, STATCK 


773 


0A14 


4F03 


A 




LI 


R3,3 


774 


OA 15 


91EB 


A 


$L1 : 


LD 


R0»3LCRDP 


775 


0A16 


B1EB 


A 




ST 


R0,3RCRD1P 


776 


0A17 


79E9 


A 




ISZ 


LCRDP 


777 


0A18 


79E9 


A 




ISZ 


RCRD1P 


778 


0A19 


4BFF 


A 




AISZ 


R3,-l 


779 


0A1A 


21FA 


A 




JMP 


$L1 


780 


0A1B 


0200 


A 




RTS 




781 


OAK 








• ENDI F 





782 0A1C 

783 0A1C 

784 0A1C 

785 0A1C 

786 0A1C 

787 0A1C 

788 0A1C 

789 0A1C 

790 0A1C 

791 0A1C 

792 0A1C 

793 0A1C 7E59 

794 0A1D 2C63 

795 0A1E 6041 

796 0A1F 2979 

797 0A20 3181 

798 0A21 2DFA 

799 0A22 297B 

800 0A23 0200 

801 0A24 



.PAGE 

• *********************************************************************** 
« * 

;* OUTPUT 1 ANSI CHARACTER TO TTY PRINTER * 

;* * 
.************** ********************************************************* 

.LOCAL 

ON ENTRY: RO < — 1 ANSI CHARACTER (RIGHTMOST 8 BITS) 

.IF IMP16L 

A PTTYT : .WORD 07E59 

I LTTYTI: JSR LTTYT 

B OUTCH: AND R0,H00FF 

A JSR SAVE 

A RCPY R0,R1 

A TTYTl: JSR3 PTTYT ; PRINT CHARACTER 

A JSR REST 

A RTS 0 



802 0A24 .PAGE 

803 OA 24 ;*********************************************************************** 

804 0A24 ;* * 

805 0A24 ;* READ 1 CARD INTO INBUF AND CONVERT TO ANSI * 

806 0A24 5* * 

807 OA 24 ? *********************************************************************** 

808 0A24 .LOCAL 

809 0A24 800B B RDCARD: LD RO, CRDFLG ;HAS CARD ALREADY BEEN READ? 

810 0A25 1501 A BOC NZER0..+2 ;YES 

811 0A26 2961 A $1B: JSR CARDIN 

812 0A27 ; 

813 0A27 ; TEST FOR ERRORS AND LOOP UNTIL I/O COMPLETED 

814 0A27 : 

815 0A27 STATCK: 

816 0A27 2105 A $1A: JMP $1-1 



13 



GENLDR 



Ql 7 
81 f 


A A O Q 

U AZ8 


A A 1 A 
0410 


A 




R IN 


CARDR 




o 1 o 

818 


OA 29 


"7 A / A 

7040 


B 




SKAZ 


ROtHOOCO 




ft 1 Q 


A. AO A 

U Mi A 


3 1 en 

C I 3D 


A 

A 




JMP 


$7 




a O A 

82U 


A A O D 

OAZB 


702 8 


B 




SKAZ 


RO, H0008 




Oil 

OCX 


A A or 
UA aL 


O 1 C Q 

A 1 ro 


A 




JMP 


• -4 




o o o 
82 2 


0A2D 














fill 

oc 5 


0A2D 






; TRANSLATE TO 


ANSI AND RETURN 




oc** 


0A2D 






» 








O O c 

825 


0A2D 


8810 


B 




L0 


R2 T ACRDBUF 




O O L. 

826 


0A2E 


0 /"* Arw 

8C0D 


B 


$l: 


L0 


R3, ATBL3 




BIT 

OC I 


A A O C 

UA2r 


O O A A 

82U0 


A 

A 




LD 


ROt (R2) 




828 


0A30 


F300 


A 


$2: 


SKNE 


RO, (R3) 




829 


0A31 


2104 


A 




JMP 


$3 




830 


0A32 


4B01 


A 




AISZ 


R3, 1 




83 1 


0A33 


EC 0E 


B 




SKG 


R3, ETBL3 




832 


0A34 


21FB 


A 




JMP 


$2 




Q 1 O 
833 


A A O C 

0 A35 


2 1 4C 


A 




JMP 


$5 


; ERROR — INVALID CHARACTER 


O O- A 
8 34 


UA 36 


DC 00 


B 


$3: 


SUB 


R3 , ATBL3 




O "3 c 

835 


0A37 


4B20 


A 




AISZ 


P3, 020 




O O A 

83o 


0A38 


EC30 


B 




SKG 


R3,H0021 




Q -3 -7 


0A39 


2 1 04 


A 




JMP 


$4 




000 


A A O A 

UA3 A 


4B0E 


A 




AISZ 


R3, 00E 




010 


0A38 


EC34 


B 




SKG 


R3,H0039 




ft&fi 
0 *tu 


UA3V, 


3 1 A 1 

a 1 U 1 


A 




JMP 


$4 




DAI 


0 A3D 


4B07 


A 




AISZ 


R3, 007 




Oil 


A A 1 C 

UA3c 


A C AA 

Ac 00 


A 


$4: 


ST 


R3, (R2 ) 




ft 




A A A 1 


A 

A 




AISZ 


R 2t 1 




o*r*+ 


UAH-U 


cone 
t8 U8 


Q 

D 




SKG 


R2, ENDBUF 




845 


0A41 


21 EC 


A 




JMP 


$1 




846 


0A42 


8009 


B 




LD 


RO, SEQCK 


;DO WE PERFORM SEQUENCE CHECK? 


84 7 


A A /. O 

0A43 


1 12B 


A 




B0C 


ZR0,$FIN 


;no 


848 


0A44 


4AF8 


A 




AISZ 


R2,-8 




849 


A A / C 

0 A45 


8C0A 


B 




LD 


R3, NUMB 


; ADDRESS OF CURRENT NUMBER VECTOR 


oca 

8 50 


0A46 


8200 


A 


$CKSEQ: 


LD 


R0,0(R2 ) 


SEQUENCE CHECK CHAR-BY-CHAR 


851 


A A A "7 

UAH f 


C O A 1 

C301 


A 




SKG 


RO, 1( R3) 


hoc 


0A48 


O 1 AT 

21 01 


A 




JMP 


.+2 




853 


0A49 


2108 


A 




JMP 


$ SEQGT 




854 


0A4A 


4A01 


A 




AISZ 


R2,l 




OCR 

833 


0A4B 


4B01 


A 




AISZ 


R3, 1 




OCA 


A A A.C 


t8U8 


Q 

D 




SKG 


R2, ENDBUF 




OOl 


UA4U 


0 i c 0 
2 1 r 8 


A 

A 




JMP 


$CKSEQ 




O C O 

85 8 


0 A4E 


4F12 


A 




LI 


R3, 18 


; SEQUENCE FAILURE - WRITE MESSAGE 


OCA 

85 V 


a a a n 
0A4F 


2C52 


I 




JSR 


OUTMSG 




8 ou 


A A C A 

UA3U 


A A A A 
UU0U 


A 

A 




HALT 






8OI 


A A C 1 

U A3 1 


O 1 A C 

2 1 Or 


A 




JMP 


SSEQOK ; 




862 


OA52 






$SEQGT: 


; SEQUENCE NUMBER IS GREATER SO CHECK FOR BEING TOO GREAT 


863 


0 A52 


D301 


A 




SUB 


RO, KR3) ; 


TAKE DIFFERENCE OF CHARS 


ft 


A A K O. 

UA33 


C O A O 

r808 


B 




SKNE 


R2, ENDBUF; 


ARE WE ON THE LAST CHAR? 


0 a c 

8o5 


A A C / 

0A54 


2 1 07 


A 




JMP 


$SQG1; 


YES 


0 z. c 
800 


0 A55 


48FF 


A 




AISZ 


R0,-l; 


DIFFERENCE MUST BE i OR DIFF IS TOO 


867 


0A56 


2107 


A 




JMP 


$SEQER; 


X 


868 


0A57 


4A01 


A 




AISZ 


R2,l; 




869 


0A58 


4B01 


A 




AISZ 


R3,l; 




870 


0A59 


4C0A 


A 




LI 


R0,10; 


GET NEXT CHAR FROM CARD WITH BORROW 


87 1 


A A C A 

0 A5A 


f* O A A 

C200 


A 




ADD 


R0,0(R2) ; 


ADDED IN 


872 


0A5B 


21 F6 


A 




JMP 


$SEQGT; 




873 


A a cr 

OA 5C 






; WHEN 


LAST CHAP 


IS PROCESSED DIFFERENCE SHOULD BE LESS THAN 10 


O "7 / 

874 


A A C C 

0 A5C 






$SQGl: 








Q "7 C 

8 7 5 


0A5C 


E 02 A 


B 




SKG 


R0.H000A; 




O "7 A 

8 ( 0 


A A C A 

0 A 5D 


O 1 AO 

2 103 


A 




JMP 


$SEQ0K; 


ALL IS CLEAR 


877 


0A5E 






$SEQER : 


; SEQUENCE NUM INCREMENTED BY MORE THAN 10 SO THERE I S AN EF 


fl"7ft 


AA CC 

UA DC 


ac i ■a 
4r 1 3 


A 

A 




LI 


R3» 19; 


"DROP" 


879 


0A5F 


2C52 


I 




JSR 


OUTMSG; 




880 


0A60 


0000 


A 




HALT 






881 


0A61 






; PRINT 


SEQUE NCE 


NUMBER IF NOT 


A MULTIPLE OF TEN 


882 


0A61 


9008 


B 


SSEQ0K: 


LD 


R0,3ENDBUF; 


CHECK FOR LAST DIGIT OF 0 


883 


0A62 


F032 


B 




SKNE 


R0.H0030; 




884 


0A63 


210B 


A 




JMP 


$fin; 





14 



GENLDR 



885 


0A64 






; PRINT 


IDENTIFYING MESSAGE 


886 


0A64 


4F 14 


A 




L I 


R3 »20; 


887 


0 A65 


2C 52 


I 




JSP 


0UTMSG; 


888 


OA 66 


8446 


R 




L D 


R 1 1 H2020 ; 


889 


0A67 


2C40 


I 




J SR 


OUT wo ; 


890 


0A68 






• LOOP 


TO. PRINT 


CHARS IN NMBR 


891 

O 7 X 


0A68 


8C08 


B 




1 0 

L.U 


a-x. FNDBUF: 


AO? 


OA AQ 

USO7 


Anna 


A 

M 




1 T 

L 1 




O 7 o 


0 AA A 

U M O w 






*S OP : 


• 

» 






OA AA 

UM DM 




A 

M 




1 n 

uu 


R 0 . — 7 I R 3 1 : 


895 


0A6B 


29B2 


A 






OUTCH : 


O ? *-J 


0 AAf 


4R01 

~ U U 1 


A 




A TC7 
HI Ji 


R3 . 1 : 


O 7 1 


oa An 


4QFF 


A 

M 




A T S7 


R 1 • — 1 : 


898 


0 A6 E 


21 FB 


A, 




IMP 

u n r 


* SQ P : 


899 


0A6F 


4F08 




$FI Nt 


1 T 
L 1 


R^5 - 8 


900 


0A70 


CC0A 


r 




a nn 

H UU 


R "3 « Nl IMR 




0A71 


8808 


R 




L 0 


R2 . FNDBUF 


7U c 


OA 7 2 


8200 


^* 


* rr Aunu 


• 1 n 

• L. U 


RO. fR? i 

rsu ♦ \ r\£. 1 


qo 3 

7U 3 


U H 1 J 


a^ 00 

M 3 UU 


A 

M 




ST 


R O . f R ^ 1 


~U*T 


0 A74 
U h ' *t 


7H r 


A 
H 




A T C 7 

Alii 






0A7^ 


/. 0 c c 


A 




ATC7 
M 1 0 fa. 




j u 


0A7A 

UW f D 


FT TA 

JH 


n 
0 




O l\U 


. Ml IMR 


907 


0 A77 


2 1 01 

& X U X 


A 




IMD 




908 


0A78 


21 F9 

£ X ~ ~ 


A, 




IMP 

<J i"l r 


tec oMn\/ 
* 0 c w™ uv 


909 


0A79 


0200 


A 




OTC 




910 


0 A7A 


ooco 


A 


NMBR : 


.WORD 


0t0»0»0»0t0t0»0 




OA 7R 


0000 

U UU u 


A 










0A7C 


0000 


A 










0 A7n 

U M 1 U 


0 000 
u uuu 


A 
M 










0A7E 


0000 


A 










0A7F 


0000 
u uuu 


A 










0 A80 


0000 


A 










OA 81 

UM O X 


0000 


A 








P 1 1 

711 


n as? 

U Hut 












912 


0A82 






; ERROR 


— INVALID PUNCH 


913 


OA 8? 












914 


0A82 


4F05 


A 




LI 


R3»5 


7 X J 




t-\^ -J c 


T 

1 




JSR 


0UTMSG 


<31 ft 

71D 


0 AR4 


0000 
u u u u 


A 




HALT 




917 


0A85 


21 AO 

C X u 


A 




JMP 


$1B 


918 


OA 86 


£. 7 UU 


A 




JSR 


$6 


919 


0A87 


2 1 9F 
c x * ■ 


A 




JMP 


$1A 


~ £. U 


0A88 






* 






92 1 


0A88 






* 


READ A 


CARD - IF CARDRE 


92 ? 

~fa. C- 


0 A88 












923 


OA 88 


4F 01 


A 


CARDIN: 


LI 


R3, STATUS 


924 


0A89 


041 0 

U*T 1 U 


A 




R IN 


CARDR 


7 £ -J 


OAR A 








.IF 


IMP16L 




OA RA 

U M On 


AO? A 
0 u ^ 0 


n 

0 


OLCHK 5 


AND 


R0,H0002 


7t 1 


O A ft R 

U MO D 


1 1 (17 


A 
M 




BOC 


ZR0,$6 


92 8 


OA 8C 


8010 


R 




LD 


R0 f ACRDBUF 




OAan 

U M OU 


4F 0? 


A 




LI 


R3t READ 


93 0 


0 A8E 


3281 


A 


RCRDl : 


RCPY 


R0.R2 




OA 8F 


?n 0? 

Ufa. 


A 
M 




JSR3 


RDCRD 


932 


0A90 


7 1 FF 


A 




JMP 


.-1 


o'a -a 


n a qi 

U M 71 


O? OO 
Ufa UU 


A 




RTS 


0 


Q"a.4 
V OH 


oa q? 

UM 7t 




A 


pnrpn • 

rv U • 


• WORD 


07FD3 


935 


0A93 












pit 


UH 7J 






* ERROR 


— CARD 


READER OFFLINE, 


937 


0A93 












938 


0A93 


4F06 


A 


$6: 


LI 


R3,6 


939 


0A94 


2C52 


I 




JSR 


0UTMSG 


940 


0A95 


0000 


A 




HALT 




941 


0A96 


4F05 


A 




LI 


R3, RESET 


942 


OA 97 


0610 


A 




ROUT 


CARDR 


943 


0A98 


21EF 


A 




JMP 


CARDIN 


944 


OA 99 








.IF 


IMP16L 



;SAVE SEQUENCE NUMBER 



; PROCESS ERROR 
;C0NTINUE LOADING 



; READ CARD STANDARD 



15 



GENLDR 



945 


0A99 






946 


0A99 






947 


0A99 






948 


OA 99 






949 


0A99 






950 


0A99 






951 


OA 99 






952 


0A99 


A 109 


A 


953 


0A9A 


A509 


A 


954 


0A9B 


A909 


A 


955 


0A9C 


AD09 


A 


956 


0A9D 


0200 


A 


9 57 


0A9E 


8104 


A 


958 


0A9F 


8504 


A 


959 


OAAO 


8904 


A 


960 


0AA1 


8 004 


A 


961 


0AA2 


0200 


A 


962 


0AA3 






963 


0AA3 


0AA7 


T 



.PAGE 

• $ * 

;'* IMP-16L TELETYPE CONTROL ROUTINES * 
;* * 

.LOCAL 



SAVE: 



REST: 



SRREG : 
$R: 



ST 

ST 

ST 

ST 

RTS 

LO 

LO 

LO 

LO 

RTS 

.= .+4 



RO,$R 
R1,$R+1 
R2,$R+2 
R3,$R+3 

RO,$R 
Rl, $R+1 
R2,$R+2 
R3,$R+3 



964 


0AA7 








• PAGE 








OA A7 








i nr a i 


;IMP-16L GET CHARACTER AND ECHO ROUT INF 


966 


OA A7 


4F38 


A 


L f ci nu • 


1 T 

l_ 1 


R3t TTYAD ; PUT TTY ADDRESS IN R3 


967 


OA AR 


OAftO 


A 

M 




PF1 C 


2 




QAQ 


OAAQ 

\J rl M *7 




A 




r ni it 

IV UU 1 


5 ; 


RESET TTY 


969 


0 AAA 


4F08 


A 
M 




1 T 

I- 1 


R2,8 


{ SET COUNT TO 8 


Q70 
j f w 


OA AR 


04.0? 


A 
A 




DIM 


2 


; LOAD TTY DATA INTO R0(15) 


Q7 1 


nA»r 
UAAL 


r\ f. r\ a 


A 




oni it 
KUU ! 


4 ; 


ENABLE TTY READER 


07 *) 

~ 1 c 


OA An 


1 POT 


A 

A 




out 


2,. +2 


5 TEST FOR START BIT 


973 


OAAE 


21FC 


A 




J MP 


.-3 




974 


OAAF 


4C09 


A 




LI 


R0» EA : DELAY 1/2 BIT TIME 


975 


OABO 


03F6 


A 




JSRI 


DEL AY 1 




976 


0AB1 


58EA 


A 




ROR 


R0»EB ! 


DELAY COMPENSATION 


977 


0AB2 


0402 


A 




RIN 


2 


{ TEST IF START BIT IS STILL DOWN 


978 


0AB3 


1201 


A 




BOC 


2,. +2 


} BRANCH IF GOOD START 


979 


0AB4 


21F3 


A 




JMP 


LTECH0+1 


tFALSE START, RETURN 


980 


0AB5 


0603 


A 


$14: 


ROUT 


3 


; SEND BIT TO PRINTER 


981 


0AB6 


03F5 


A 




JSRI 


DELAY i 


DELAY ONE BIT 


982 


0AB7 


5826 


A 




ROL 


R0,EC 


; DELAY COMPENSATION 


983 


0AB8 


0402 


A 




RIN 


2 


LOAD DATA FROM TTY 


984 


0AB9 


6100 


A 




AND 


R0,$M i 


MASK UNWANTED BITS 


985 


0 ABA 


5 OFF 


A 




SHR 


Rl, 1 




986 


OABB 


3182 


A 




RXOR 


R0,R1 


; ADD NEW BIT TO DATA 


987 


OABC 


4AFF 


A 




AISZ 


R2,-l 


TEST IF DONE 


988 


OABD 


21 F7 


A 




JMP 


$14 


; NOT DONE, GET NEXT BIT 


989 


OABE 


0633 


A 




ROUT 


3 


SEND LAST DATA BIT 


990 


OABF 


03F5 


A 




JSR I 


DELAY 


; WAIT INTO THE FIRST STOP BIT 


991 


OACO 


4CFF 


A 




LI 


R0,-1 




992 


0AC1 


0603 


A 




ROUT 


3 


SEND STOP BIT 


993 


0AC2 


03 F5 


A 




JSRI 


DELAY 




994 


0AC3 


0605 


A 




ROUT 


5 




995 


0AC4 


50F8 


A 




SHR 


Rl,8 




996 


0AC5 


3481 


A 




RCPY 


R1,R0 ; PUT DATA IN L SB OF RO 


997 


0AC6 


0200 


A 




RTS 






998 


0AC7 


80C0 


A 


$M: 


.WORD 


X'8000 




999 


0AC8 


FFF5 


A 


DELAY 




0FFF5 




1000 


0AC8 


FFF6 


A 


0FLAY1 




0FFF6 





1001 


0AC8 






.PAGE 




1002 


0AC8 


4E09 


A LTTYT: 


LI 


R2,9 


1003 


0AC9 


0A80 


A 


PFLG 


2 


1004 


OACA 


4C00 


A 


LI 


R0,0 


1005 


OACB 


4F38 


A 


LI 


R3, TTYAD 


1006 


OACC 


0603 


A 


ROUT 


3 


1007 


OACD 


58FF 


A 


R OR 


RO, 1 


1008 


OACE 


2100 


A 


JMP 


$2 



TTY CHARACTER-TRANSMIT ROUTINE 



16 



GENLDR 



1009 


OACF 


03F5 


A 


$2: 


JSRI 


DELAY 


1010 


OADO 


5829 


A 




ROL 


ROt TA 


1011 


0AD1 


4AFP 


A 


$3: 


AISZ 


R2 f -1 


1012 


0 AD2 


2101 


A 




JMP 


$5 


1013 


0AO3 


21 04 


A 




JMP 


$7 


1014 


0A04 


59FF 


A 


$5: 


ROR 


Rl , 1 


1015 


0 A05 


3481 


A 




RCPY 


R It RO 


1016 


0AD6 


0603 


A 


$6: 


ROUT 


3 


1017 


0AD7 


21F7 


A 




JMP 


$2 


1018 


0AD8 


4CFF 


A 


$7: 


LI 


R0,-1 


1019 


0A09 


0603 


A 




ROUT 


3 


1020 


OADA 


03F5 


A 


$8: 


JSRI 


DELAY 


1021 


OAOB 


03F5 


A 




JSRI 


DELAY 


1022 


OAOC 


0200 


A 




RTS 




1023 


OADD 








• ENDIF 





1024 


OADD 






-PAGE 




1025 


OADD 






; ********************************************* ******* ****** ************* 


1026 


OADD 






* * 


* 


1027 


OADD 






;* OUTPUT ANSI 


STRING TO TTY PRINTER * 


1028 


OADD 






;* 


* 


1029 


OADD 






************************************************************* $*******#** 


1030 


OADD 






. LOCAL 




1031 


OADD 










1032 


OADD 






; ON ENTRY: 


R3 <— ADDRESS OF STRING 


1033 


OADD 








R2 < — H OF CHARACTERS IN STRING 


1034 


OADD 










1035 


OADD 


8 7 00 


A 


OUTANS: LD 


Rl, (R3) 


1036 


OADE 


0826 


B 


SUB 


R2,H0002 


1037 


OADF 


E825 


B 


SKG 


R2.H0000 


1038 


OAEO 


2103 


A 


JMP 


$1 


1039 


0AE1 


2918 


A 


JSP. 


OUT WD 


1040 


0AE2 


4B01 


A 


AISZ 


R3,l 


1041 


0AE3 


21F9 


A 


JMP 


OUTANS 


1042 


0AE4 


C826 


B 


$l: ADD 


R2,H0002 


1043 


0AE5 


5°F8 


A 


ROR 


Rl,8 


1044 


0AF6 


3481 


A 


RCPY 


R1,R0 


1045 


0AE7 


2C5C 


I 


JSR 


OUTCH 


1046 


0AE8 


4AFF 


A 


AISZ 


R2.-1 


1047 


0AE9 


21FB 


A 


JMP 


• -4 


1048 


OAEA 


0200 


A 


RTS 


0 



1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 



OAEB 
OAEB 
OAEB 
OAEB 
OAEB 
OAEB 
OAEB 
OAEB 
OAEB 
OAEB 
OAEB 
OAEC 
OAED 
OAEE 
OAEF 
OAFO 
0AF1 
0AF2 
0AF3 
0AF4 
0AF5 
0AF6 
0AF7 
0AF8 
OAF 9 



4E04 
3481 
5CF4 
5D04 
4830 
E034 
2101 
4807 
2C5C 
4AFF 
21 F6 
8901 
0200 
OAFA 



.PAGE 

;******************************************************* **************** 

;* * 

;* OUTPUT HEXADECIMAL WORD TO TTY PRINTER * 
;* * 

; ********************************************************** ************* 

.LOCAL 





; ON 


ENTRY: 


Rl < — HEXADECIMAL WORD 


A 


OUTHEX: ST 


R2,$R2 


A 




LI 


R2,4 


A 


$l: 


RCPY 


R 1,R0 


A 




SHR 


R0,12 


A 




SHL 


Rl,4 


A 




AISZ 


R0,030 


B 




SKG 


R0»H0039 


A 




JMP 


. + 2 


A 




AISZ 


RO, 007 


I 




JSR 


OUTCH 


A 




AISZ 


R2,-l 


A 




JMP 


$1 


A 




LD 


R2,$R2 


A 




RTS 


0 


T 


$R2 : 


.=. + 1 
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GENLDR 



1074 


OAFA 






1075 


OAFA 






1076 


OAFA 






1077 


OAFA 






1078 


OAFA 






1079 


OAFA 






1080 


OAFA 






1081 


OAFA 






1082 


OAFA 






1083 


OAFA 






1084 


OAFA 


3481 


A 


1085 


OAFB 


5CF8 


A 


1086 


OAFC 


2C5C 


I 


1087 


OAFD 


3481 


A 


1088 


OAFE 


2C5C 


I 


1089 


OAFF 


0200 


A 



.PAGE 

• ********#^ 

;* * 
;* OUTPUT 2 ANSI CHARACTERS TO TELETYPE KEYBOARD * 
•* * 

.LOCAL 

ON ENTRY: Rl <— 2 ANSI CHARACTERS 

OUTWD: RCPY R1,R0 

SHR R0»8 

JSR OUTCH 

RCPY R1,R0 

JSR OUTCH 

RTS 0 



1090 


0600 






1091 


OBOO 






1092 


OBOO 






1093 


OBOO 






1094 


OBOO 






109 5 


OBOO 






1096 


OBOO 






1097 


OBOO 






1098 


OBOO 






1099 


OBOO 






1 1 00 


OBOO 


0B01 


T 


1101 


0B01 


40 00 


A 


1 102 


0B02 


A41A 


B 


1103 


0B03 






11D4 


0B03 






1105 


0B03 






1106 


0B03 


A9FC 


A 


1107 


0B04 


88 16 


B 


1108 


0B05 


8200 


A 


1109 


0B06 


F02F 


B 


1110 


0B07 


2101 


A 


1111 


0608 


2107 


A 


1112 


0B09 


4A01 


A 


1113 


OBOA 


21 FA 


A 


1114 


OBOB 






1115 


OBOB 






1116 


OBOB 






1117 


OBOB 


2C64 


I 


1118 


OBOC 


2108 


A 


1119 


OBOO 


781A 


B 


1120 


OBOE 


4A01 


A 


1121 


OBOF 


8200 


A 


1122 


0B10 






1123 


0B10 






1124 


0B10 






1125 


0B10 


F02F 


B 


1126 


OBli 


2105 


A 


112 7 


0B12 


F041 


B 


1128 


0B13 


2103 


A 


1129 


0B14 


21F6 


A 


1130 


0B15 






1131 


0B15 






1132 


0B15 






1133 


OB 15 


4400 


A 


1134 


0B16 


2465 


I 


1135 


0B17 






1136 


0B17 






1137 


0B17 






1138 


0B17 


801A 


B 



.PAGE 

!* OBTAIN HEXADECIMAL VALUE FROM INPUT COMMAND * 
• * * 

; J****************************************** 

.LOCAL 

INITIALIZE VALFLG AND VALCNT 



$R2: .=.+1 
VALUE: LI 
ST 



R1,0 

PI, VALFLG 



IGNORE LEADING BLANKS 



$l: 



ST 


R2,$R2 


LD 


R2, START 


LO 


RO, (R2) 


SKNE 


R0,H0020 


JMP 


. + 2 


JMP 


$6 


AISZ 


R2,l 


JMP 


$1 



CHECK FOR VALID HEXADECIMAL CHARACTERS 



$3: 



JSR 

JMP 

ISZ 

AISZ 

LD 



ANSHEX 
$7 

VALFLG 
R2, 1 
RO, (R2) 



CHECK FOR BLANK OR EOR 
$6: 



SKNE 
JMP 
SKNE 
JMP 
JMP 



R0,H0020 
$8 

RO.HOOFF 

$8 

$3 



ERROR — INVALID COMMAND (INVALID HEX CHARACTER) 



$7: 



PULL 
JMP 



RO 

INVCMD 



RETURN +0 IF NO VALUE, +1 IF LEGAL VALUE; ELSE INVALID COMMAND 
$8: LD RO, VALFLG 



18 



GENLDR 



1139 


0B18 


89E7 


A 


LD 


R2,$R2 


1140 


0B19 


1501 


A 


BOC 


NZER0,.+2 


1141 


0B1A 


0200 


A 


RTS 


0 


1142 


081B 


3481 


A 


RCPY 


RltRO 


1143 


0B1C 


0201 


A 


RTS 


1 



1144 


0B1D 






1145 


0B1D 






1146 


0B1D 






1147 


0B1D 






1148 


0B10 






1149 


0B1D 






1150 


OB ID 






1151 


0B1D 






1152 


0B10 






1153 


0B1D 






1154 


0B1D 


A918 


A 


1155 


0B1E 


8443 


B 


1156 


0B1F 


29DA 


A 


1157 


0B20 


3B81 


A 


1158 


0B21 


4BFC 


A 


1159 


0B22 


4E06 


A 


1160 


0B23 


2989 


A 


1161 


0B24 


8446 


B 


1162 


0B25 


2 904 


A 


1163 


0B26 


890P 


A 


1164 


0B27 


8600 


A 


1165 


0B28 


29C2 


A 


1166 


0B29 


89 OC 


A 


1167 


0B2A 


8446 


B 


1168 


0B2B 


29CE 


A 


1169 


0B2C 


82FF 


A 


1170 


0B2D 


6048 


B 


1171 


0B2E 


F047 


B 


1172 


0B2F 


0200 


A 


1173 


0B30 


8438 


B 


1174 


0B31 


1501 


A 


1175 


0B32 


8439 


B 


1 176 


0B33 


3481 


A 


1177 


0B34 


2C5C 


I 


1178 


0B35 


0200 


A 


1 179 


0B36 






1180 


0B36 






1181 


0B36 






1182 


0B36 


0000 


A 



.PAGE 

; *******************************************************************$*£# 

:* * 

J* PRINT SYMBOL TABLE ENTRY * 

;* * 
******************************** **************************************** 
. LOCAL 



ON ENTRY: 



PRSYMB: 



ST 

LO 

JSR 

RCPY 

AISZ 

LI 

JSR 

LD 

JSR 

LD 

LD 

JSR 

LD 

LD 

JSR 

LD 

AND 

SKNE 

RTS 

LD 

BOC 

LD 

RCPY 

JSR 

RTS 



TEMPORARY 



R2 <— ADDRESS OF SYMBOL TABLE ENTRY 

R2, $T1 

R 1 1 HO DO A 

OUT WD 

R2.R3 

R3,-4 

R2,6 

OUTANS 

R1.H2020 

OUTWD 

R2 t $Tl 

Rl, <R2) 

OUTHEX 

R2,$T1 

R1»H2020 

OUTWD 

R0--HR2) 

RO,HAOOO 

R0,H8000 

0 

R1,H004D 

NZER0,.+2 

RltH0055 

Rlt RO 
OUTCH 
0 



.WORD 



1183 


0B37 






1184 


0B37 






1185 


0B37 






1186 


0B37 






1187 


0B37 






1188 


0B37 






1189 


0B37 






1190 


0B37 






1191 


0B37 






1192 


0B37 






1193 


0B37 


0000 


A 


1194 


0B38 


0000 


A 


1195 


0B39 


A811 


B 


1196 


0B3A 


A9FC 


A 


1197 


0B3B 


8443 


B 


1198 


0B3C 


29BD 


A 


1199 


0B30 


4CFC 


A 


1200 


0B3E 


A1F9 


A 


1201 


0B3F 


8C20 


B 



. PAGE 

*************************************************** ********************$ 

;* * 

;* PRINT LIMITS * 

;* * 
;****************************** *************** *********************** # *^ 

.LOCAL 



ON ENTRY: 



$VLOC: 
$CNTR: 
PRLIMS: 



.WORD 

. WORD 

ST 

ST 

LD 

JSR 

LI 

ST 

LD 



R2 <— ADDRESS OF VECTOR 



P2» AVECT 
R2f $VLOC 
Rl »HODOA 
OUTWD 
R0f-r4 
ROt $CNTR 
R3 1 BSEQ 



19 



GENLDR 



1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

12?7 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 



0B40 

0841 

0B42 

0B43 

0B44 

0B45 

0B46 

0B47 

0B48 

0B49 

0B4A 

0B4B 

0B4C 

OB 40 

0B4E 

0B4F 

0B50 

0B51 

0B52 

0B53 

0B53 

0B53 

0B53 

0B54 

OB 55 

0B56 

OB57 

0B58 

0B59 

0B5A 

0B5B 

0B5C 

0B5D 

0B5E 

0B5F 

0B5F 

OB 5F 

0B5F 

OB60 

0B61 

0B62 

0B63 

OB 64 

0B65 

0B65 

0B65 

0B65 

0B66 

0B67 

0B68 

0B69 

0B6A 



89^6 
8606 
F605 
2101 
2109 
2919 
89F0 
8606 
29A2 
8035 B 
2C5C I 
89EB 
8605 
299D 
4B02 
79F7 
79E6 
79E6 
21ED 



$1 



8811 B 
8204 A 
1501 A 
2105 A 
8C23 B 
2906 A 
8811 B 
8604 A 
298P A 
8443 B 
299C A 
0200 A 



8446 B 
299o A 
4E04 A 
2C4F I 
4BFF A 
0200 A 



4E09 A 
802F B 
2C5C 
4AFF 
21F0 
0200 



$2: 



LD 

LD 

SKG 

JMP 

JMP 

JSR 

LO 

LD 

JSR 

LD 

JSR 

LD 

LD 

JSR 

AISZ 

ISZ 

I SZ 

ISZ 

JMP 



R2,$VL0C 

R 1,BSL0(R2) 

R1,BSHI (R2) 

.+2 

$2 

$5 

R2,$VL0C 

R1,BSL0(R2) 

OUTHEX 

P0,H003A 

OUTCH 

R2.$VL0C 

R1,BSHI(R2) 

OUTHEX 

R3» 2 

$VLOC 

$VLOC 

$CNTR 

$1 



PRINT ENTRY POINT 

$4: LD R2,AVECT 

LD RO , ENTPT (R2 ) 

BOC NZER0..+2 

JMP $4A 

LD R3 « ENTEQ 

JSR $5 

LO R2t AVECT 

LD R1,ENTPT(R2» 

JSR OUTHEX 

$4A: LD Rlt HODOA 

JSR OUTWD 

RTS 0 



;cp-lf 



SUBROUTINE: PRINT BLANK, BLANK, CI, C2, C3, C4 (WHERE R3 ~ > CI) 



$5: 



LD 

JSR 

LI 

JSP 

AISZ 

RTS 



RUH2020 

OUTWD 

R2,4 

OUTANS 

R3,-l 

0 



SUBROUTINE: PRINT 9 BLANKS 



$6: 



LI 


R2,9 


LD 


R0,H0020 


JSR 


OUTCH 


AISZ 


R2,-l 


JMP 


.-2 


RTS 


0 



1254 0B6B 

1255 0B6B 

1256 0B6B 

1257 0B6B 

1258 0B6B 

1259 0B6B 

1260 0B6B 

1261 0B6B 

1262 0B6B 

1263 0B6B 

1264 0B6B 

1265 0B6B 

1266 0B6C 



4200 
E804 



1267 0B6D C903 



. PAGE 

;********* ***************************************** 

? * * 

;* SIMULATE LOAD INSTRUCTION * 

• * * 
. ****************************** ****************************************,„ 

.LOCAL 



ON ENTRY : 



R2 < — AODRESS OF WORD TO BE LOADED INTO RO 



LOAD 



.IF 

PUSH 

SKG 

ADD 



GENL 
R2 

R2,BSZ 
R2,BSPT 



;IF NOT IN PBASE SECTOR , 
;LOAD FROM PSEUDO-BS 



SKIP 



20 



GENLDR 



1268 


0B6E 


8200 


A 




LD 


RO, (R2) 


1269 


0B6F 


4600 


A 




PULL 


R2 


1270 


0B70 


0200 


A 




RTS 


0 


1271 


0B71 


0C43 


T 


BSPT: 


• WORD 


PBSEC ;P0INTER TO PSEUDO-BS 


1272 


0B72 


0FC5 


T 


LDEND: 


• WORD 


GLDRE-1 ; END OF LOADER 


1273 


0B73 








. END IF 




1274 


0B73 








• PAGE 




1275 


0B73 






************************************************************************ 


127 6 


OB 73 






;* 




* 


1277 


0B73 






;* SIMULATE STORE INSTRUCTION * 


1278 


0873 






;* 




* 


1279 


0B73 






• ************** ******************************************************* 


1280 


0B73 








.LOCAL 




1281 


OB 73 












1282 


0B73 






; ON ENTRY: 


RZ <— - ADURcbb UF WUKD TO BE STORED 


1283 


0B73 










K u N »»LlKu l u DC o luncu 


1284 


0B73 












1285 


0B73 








• 1 P 


C P M 1 • 


1286 


0B73 


E9FE 


A 


5 1 U K t • 


c u f 


K£»LUfc(NU • fclMU Ur LUAUbK 


1287 


0B74 


21 OA 


A 




J MP 


$2 


1288 


0B75 


E8 10 


3 




SKG 


K«£,nlLURt JUPPbR LIMIT UP MFMQRY 


1289 


0B76 


2102 


A. 




JMP 


• + 3 


1290 


0B77 


2110 


A 




JMP 


* 3 


1291 


0B78 


4700 


A 


$1 : 


PULL 


R3 


1292 


0B79 


4200 


A 




PUSH 


R2 


1293 


0B7A 


E804 


B 




SKG 


R2,BSZ tIF NOT IN PBASE SECTOR , SKIP 


1294 


0B7B 


C9F5 


A 




ADD 


R2,BSPT ;ST0RE INTO PSEUDO-BS 


1295 


0B7C 


A200 


A 




ST 


R0, <R2) 


1296 


0B7D 


4600 


A 




PULL 


R2 


1297 


0B7E 


0200 


A 




RTS 


0 


1298 


0B7F 


4300 


A 


$2: 


PUSH 


R3 


1299 


0B80 


8C1F 


B 




LD 


R3, RLMVCT 


1300 


0B81 


EB01 


A 




SKG 


R2,STLO(R3) 


1301 


0B82 


21F5 


A 




JMP 


$1 


1302 


0B83 


4F0F 


A 




LI 


R3,15 ; ILLEGAL AREA - SEND MESSAGE 


1303 


0B84 


2909 


A 




JSR 


0UTMSG ;AND DO NOT PERFORM STORE 


1304 


0B85 


0000 


A 




HALT 




1305 


OB 86 


4700 


A 




PULL 


R3 


1306 


0B87 




A 




RTS 


0 


1307 


0B88 


4300 


A 


$3: 


PUSH 


R3 




DP. ftQ 




A 

A 




LI 


R3.16 : EXCEEDED MEMORY SIIF - SEND MESSAGE 


i ■a no 


n RO A 
U Do A 




A 

« 




JSR 


0UTMSG ; AND DO NOT PERFORM STORE 


1 5 1 'J 


no QD 


UUUU 


A 
A 




HALT 






n ft ar 




A 

A 




PULL 


R3 




AnQn 


OZOU 


A 

A 




RTS 


0 




Ad oc 








• ENDIF 




1314 


0B8E 








.PAGE 




1315 


0 B8E 






.*************^**^c#^ J !«*** ******************* *************************** 5 j t ^ 


1316 


0B8E 






;* 




* 


1317 


0B8E 






;* OUTPUT MESSAGE TO TELETYPE PRINTER * 


1318 


0B8E 






;* 




* 


1319 


0B8E 






;**Q*********** **************** **************; 4t ********#*#^^ 


1320 


0B8E 








.LOCAL 




1321 


0B8E 












1322 


0B8E 






; ON ENTRY: 


R3 < — MESSAGE ADDRESS 


1323 


0B8E 












1324 


0B8E 


8443 


B 


0UTMSG: 


LD 


R1,H0D0A 


1325 


0B8F 


2C4D 


I 




JSR 


OUT WD 


1326 


0B90 


CC0F 


B 




ADD 


R 3, ATBL4 CALCULATE BASE A DDR OF MESSAGE 


1327 


0B 91 


8F00 


A 




LD 


R3,(R3J 


1328 


0B92 


8700 


A 




LD 


Rl, tR3) 


1329 


0B93 


2C4D 


I 




JSP 


0UTWD 


1330 


06 94 


8701 


A 




LD 


R1,1(R3J 


1331 


0B95 


2C40 


I 




JSR 


OUT WD 


1332 


08 96 


0200 


A 




RTS 


0 



21 



GENLDR 



1333 0B97 • PAGE 

1334 0B97 .**************************************************** ******************* 

1335 0B97 ;* * 

1336 0B97 ;* MESSAGES AND MESSAGE SEGMENTS * 

1337 0B97 :* * 

1338 OB 97 .*********************************************************************** 



1339 


0B97 








•SPACE 


5 


1340 


0B97 








• IF 


GENL 


1341 


0B97 


4745 


A 


MSGO: 


•ASCI I 


'GENERA 




0B98 


4E45 


A 










0B99 


5241 


A 










0B9A 


4C20 


A 










0B9B 


4C4F 


A 










0B9C 


4144 


A 










0B9D 


4552 


A 










0B9E 


2028 


A 










0B9F 


5245 


A 










OB AO 


562E 


A 










OBA 1 


4429 


A 










0BA2 


2052 


A 










0BA3 


4541 


A 










0BA4 


4459 


A 










0RA5 

\J U M J 


C C C \J 


A 








1342 


0BA6 








• ENOIF 




1 34^ 


0BA6 


4340 


A 


MSG 1 : 


. ASC 1 1 


' CMND ' 




0BA7 


4E44 


A 








1344 


0BA8 


454E 


A 


MSG3 1 


. ASC 1 1 


• emt • 




OR AQ 

UDA7 




A 








1345 


0 BAA 


4348 


A 


MSG5 ' 


.ASCII 


• CHAR * 




OBAB 


4152 


A 








1346 


OB AC 


5 04E 


A 


M SG6 J 


• ASC 1 1 


• PMCH ' 




OBAD 


4348 


A 








1347 


OBAE 


4352 


A 


MSG7S 


• ASC 1 1 


« CROR * 




ORAF 


4452 


A 








1348 


OBBO 


53 45 


A 


MSG 1 1 5 


A^f T T 


or w 




OBB 1 


5120 


A 








1349 


0BB2 


434B 


A 


MSG12 : 


. ASC 1 1 


1 CK SM 1 




0BB3 


5340 


A 








1350 


0BB4 


42 53 


A 


MSG13 : 


.ASC 1 1 


• BSOV ' 




0BB5 


4P56 


A 








1351 


0BB6 


5453 


A 


MSG 14: 


•ASCII 


' TSOV 




0 BB7 


4 F56 


A 








1352 


0BB8 


5359 


A 


MSG1 5 : 


ACT I T 

• MJtl 1 


* <s Y MR * 

Oi no 




0 BB9 


4042 


A 








1353 


0B3A 


4144 


A 


MSG16 : 


•ASCII 


* ADDR * 




OBBB 


4452 


A 








1354 


OBBC 


4558 


A 


MSG17: 


•ASCII 


' EXTN ' 




0B8D 


544E 


A 








1355 


OBBF 


4152 


A 


MSG18: 


.ASCII 


f AREA* 




OBBF 


4541 


A 








1356 


OBCO 


4045 


A 


MSG19: 


•ASCII 


•MEM » 




0BC1 


4020 


A 








1357 


0BC2 


5359 


A 


MSG20: 


•ASCII 


'SYST' 




0BC3 


5354 


A 








1358 


0BC4 


4E4D 


A 


MSG21 : 


•ASCII 


• NMBR* 




0BC5 


4252 


A 








1359 


0BC6 


4452 


A 


MSG22 : 


•ASCII 


* DROP 1 




0BC7 


4F50 


A 








1360 


0BC8 


5054 


A 


MSG23: 


•ASCII 


•PTCH 1 : 




0BC9 


4348 


A 








1361 


OBCA 


4253 


A 


MSl: 


•ASCII 


'BS =' 




OBCB 


203D 


A 








1362 


OBCC 


5453 


A 


MS2: 


•ASCII 


• TS =' 




OBCD 


203D 


A 









; SEQUENCE NUMBER ERROR 
; DROPPED CARD ERROR 
PATCH CARD FOUND MESSAGE 



22 



GENLDR 



1363 


08CE 


4153 


A 




OBCF 


2030 


A 


1364 


0BD0 


5054 


A 




0BD1 


5230 


A 


1365 


0BD2 


454E 


A 




0BD3 


543D 


A 


136 6 


OdUh 






1367 


0B04 






1368 


0BD4 






1369 


0B04 






1370 


OB04 






1371 


0B04 






1372 


0BD4 






1373 


0BD4 


0BE6 


T 


1374 


0BE6 


0C36 


T 


1375 


0C36 


087F 


T 




0C37 


087F 


T 




0C38 


0010 


A 




0C39 


0120 


A 




0C3A 


0000 


A 




0C3B 


0000 


A 




0C3C 


7FFF 


A 




0C3D 


0000 


A 




0C3E 


7FFF 


A 


1376 


0C 3F 


0000 


A 




0C40 


7FFF 


A 




0C41 


0100 


A 




0C42 


0100 


A 


1377 


0C43 






1378 


0C43 


OCAD 


T 


1379 


OCAD 






1380 


OCAD 


087F 


T 




OCAE 


087F 


T 




OCAF 


0010 


A 




OCBO 


0120 


A 




0CB1 


0000 


A 




0CB2 


0000 


A 




0CB3 


7FFF 


A 




0CB4 


0000 


A 




0CB5 


7FFF 


A 


1381 


0CB6 


0000 


A 




0CB7 


7FFF 


A 




0CB8 


0100 


A 




0CB9 


0100 


A 



MS3: .ASCII * AS =• 
MS5: .ASCII «PTR=» 
MS4: .ASCII 1 ENT= * 



• PAGE 

**************************************** ****** ************************** 

; * * 
;* NON-BSECT DATA * 
;* * 
• *********************************************************************** 



INBUF: 

CROBUF: 

VCTO: 



.SPACE 
.=.+18 
.=.+80 
.WORD 



; PACKED BUFFER FOR RLM RECORD 
; UNPACK ED BUFFER FOR CARD INPUT 
DSCLDR-l,DSCLDR-i,16,2 88,0,0,X«7FFF,0,X , 7FFF 



.WORO 0,X'7FFF, 0100,0100 



PBSEC: 



VCTl: 



.IF 

.=.+106 

.ENDIF 

.WORD 



GENL 



;PSEUDO-BASE SECTOR 



DSCLDR-1,DSCLDR-1,16,288,0,0,X , 7FFF,0,X» 7FFF 



WORD 0,X»7FFF, 0100, 0100 



1382 OCBA 

1383 OCBA 

1384 OCBA 

1385 OCBA 

1386 OCBA 

1387 OCBA 



.PAGE 

. ****************************** ************************* ****** <t *^j !tJjC3jt3!c3!e## 

;* * 

;* TABLE 2: STATE 1 COMMANDS * 

;* * 
• ************************************************************** JjtJJt^^^^^JjJ^ 



1388 OCBA .SPACE 

1389 OCBA 214F A TBL2: .ASCII 
OCBB 4253 A 



OBS« 



23 



GENLDR 



1390 


OCBC 


08B0 


T 


.WORD 


OBS 




1391 


OCBD 


214F 


A 


.ASCII 


1 OTS 


t 




OCBE 


5453 


A 








1392 


OCBF 


08B7 


T 


• WORD 


OTS 




1393 


OCCO 


2152 


A 


.ASCII 


• RLM 


i 




0CC1 


4C40 


A 








1394 


0CC2 


08F9 


T 


• WORD 


RLM 




1395 


0CC3 


2153 


A 


.ASCI I 


' SY* 






0CC4 


5920 


A 








1396 


0CC5 


08BF 


T 


• WORD 


SY 




1397 


0CC6 


2145 


A 


.ASCII 


» ER» 






0CC7 


5220 


A 








1398 


0CC8 


08BC 


T 


.WORD 


ER 




1399 


0CC9 


2143 


A 


.ASCII 


« CR' 






OCCA 


5220 


A 








1400 


OCCB 


08D0 


T 


• WORD 


CR 




1401 


OCCC 


2154 


A 


.ASCII 


• TTY 


■ 




OCCO 


5459 


A 








1402 


OCCE 


080F 


T 


• WORD 


TTY 




1403 


OCCF 


2143 


A 


.ASCII 


• CLR 


t 




OCOO 


4C52 


A 








1404 


0CD1 


08 E2 


T 


• WORD 


CLR 




1405 


0CD2 


2147 


A 


•ASCII 


• GO* 






0CD3 


4F20 


A 








1406 


0C04 


0940 


T 


• WORD 


GO 




1407 


0C05 


214C 


A 


•ASCII 


• LM' 






0CD6 


4020 


A 








1408 


0C07 


08D5 


T 


• WORD 


LM 




1409 


0CD8 


214E 


A 


.ASCII 


» NLM 


i 




0CD9 


4C40 


A 








1410 


OCDA 


0803 


T 


• WORD 


NLM 




1411 


OCOB 


2153 


A 


.ASCII 


• SO' 






OCOC 


5120 


A 








1412 


OCDD 


08DA 


T 


• WORD 


SEQ 




1413 


OCOE 


214E 


A 


.ASCII 


• NSQ 


i 




OCOF 


5351 


A 








1414 


OCEO 


0808 


T 


• WORD 


NSEQ 




1415 


0CE1 


5858 


A CM02: 


.ASCII 


'XXXX 


• 




0CE2 


5858 


A 








1416 


0CE3 


089F 


T 


.WORD 


INVCMD 



1417 0CE4 .PAGE 

1418 0CE4 

1419 0CE4 ;* * 

1420 0CE4 5* TABLE 3: EBCOIC TO ANSI CONVERSION TABLE * 

1421 0CE4 ;* * 

1422 0CE4 *************************************** 



1423 


0CE4 






.SPACE 


5 




1424 


0CE4 


0000 


A TBL3 : 


.WORD 


0000 


;SPACE 


1425 


CCE5 


0482 


A 


.WORD 


048 2; 


EXCLAMATION 


1426 


0CE6 


0200 


A 


. WORD 


0200; 


0 


1427 


0CE7 


0100 


A 


.WORD 


0100; 


1 


1428 


0CE8 


0080 


A 


. WORD 


0080; 


2 


1429 


0CE9 


0040 


A 


.WORD 


0040; 


3 


1430 


OCEA 


0020 


A 


.WORD 


0020; 


4 


1431 


OCEB 


0010 


A 


• WORD 


ooio; 


5 


1432 


OCEC 


0008 


A 


.WORD 


0008; 


6 


1433 


OCED 


0004 


A 


.WORD 


0004; 


7 


1434 


OCEE 


0002 


A 


• WORD 


0002; 


8 


1435 


OCEF 


0001 


A 


.WORD 


oooi; 


9 


1436 


OCFO 


0900 


A 


.WORD 


0900; 


A 12-1 



24 



GENLDR 



1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 



0CF1 
0CF2 
0CF3 
0CF4 
0CF5 
0CF6 
0CF7 
0CF8 
0CF9 
OCFA 
OCFB 
OCFC 
OCFD 
OCFE 
OCFF 
ODOO 
0D01 
0002 
00 03 
0004 
0D05 
0006 
0D07 
0D08 
0009 



0880 


A 


• WORD 


0880; 


Q 

D 


1 5—9 
1 C. £. 


0840 


A 


• WORD 


0840; 


L 


it J 


0820 


A 


• WORD 


0820; 


D 


12-4 


0810 


A 


• WORD 


0810; 


c 

c 




0808 


A 


.WORD 


0808; 


F 


12-6 


0804 


A 


.WORD 


0804; 


G 


12-7 


0802 


A 


.WORD 


0802; 


H 


12-8 


0801 


A 


.WORD 


0801; 


I 


12-9 


0500 


A 


.WORD 


0500; 


J 


11-1 


0480 


A 


.WORD 


0480; 


K 


11-2 


0440 


A 


.WORD 


0440; 


L 


11-3 


0420 


A 


. WORD 


0420; 


M 


11-4 


0410 


A 


.WORD 


0410; 


N 


11-5 


0408 


A 


• WORD 


0408; 


0 


11-6 


0404 


A 


.WORD 


0404; 


p 


1 1-7 


0402 


A 


.WORD 


0402; 


Q 


11-8 


0401 


A 


.WORD 


0401; 


R 


11-9 


0280 


A 


• WORD 


0280; 


c 
3 


u— c 


0240 


A 


• WORD 


0240; 


T 


0-3 


0220 


A 


.WORD 


0220; 


u 


0-4 


0210 


A 


.WORD 


0210; 


V 


0-5 


0208 


A 


.WORD 


0208; 


w 


0-6 


0204 


A 


.WORD 


0204; 


X 


0-7 


0202 


A 


.WORD 


0202; 


Y 


0-8 


0201 


A 


.WORD 


0201; 


z 


0-9 



1462 ODOA .PAGE 

1463 000 A 

1464 ODOA ;* * 

1465 ODOA ;* TABLE 4: ERROR MESSAGE ADDRESSES * 

1466 ODOA s* * 

1467 ODOA ***************^ 



1468 


ODOA 






.SPACE 


5 


1469 


ODOA 


OB 97 


T TBL4 s 


• WORD 


MSGO 


1470 


ODOB 


0BA6 


T 


.WORD 


MSG I 


1471 


ODOC 


0000 


A 


.WORD 


0 


1472 


OOOD 






.ENDIF 




1473 


ODOD 


0BA8 


T 


.WORD 


MSG3 


1474 


ODOE 


OBAA 


T 


• WORD 


MSG 5 


1475 


ODOF 


OBAC 


T 


• WORD 


MSG6 


1476 


0010 


OBAE 


T 


.WORD 


MSG 7 


1477 


0011 


0000 


A 


.WORD 


0 


1478 


0D12 






• ENDIF 




1479 


0D12 


OBBO 


T 


• WORD 


MSG11 


1480 


0D13 


0BB2 


T 


• WORD 


MSG12 


1481 


0D14 


0BB4 


T 


. WORD 


MSG13 


1482 


0D15 


0BB6 


T 


• WORD 


MSG 14 


1483 


0D16 


0BB8 


T 


.WORD 


MSG15 


1484 


0D17 


OBBA 


T 


• WORD 


MSG 16 


1485 


0D18 


OBBC 


T 


.WORD 


MSG 17 


1486 


0D19 


OBBE 


T 


.WORD 


MSG18 


1487 


0D1A 


OBCO 


T 


• WORD 


MSG 19 


1488 


0D1B 


0BC2 


T 


.WORD 


MSG20 


1489 


0D1C 


0BC4 


T 


• WORD 


MSG21 


1490 


0D1D 


0BC6 


T 


• WORD 


MSG22; 


1491 


0D1E 


0BC8 


T 


• WORD 


MSG23 ; 



;THIS MESSAGE NOT APPLICABLE 



INDEX 19 NOT 22 
INDEX 20 NOT 23 



25 



GENLDR 



1492 


001F 










.PAGE 




1493 


0D1F 






********** ************** ************************************************ 


1494 


0D1F 






;* 






* 


1495 


0D1F 






;* BSECT VARIABLES * 


1496 


0D1F 






;* 






* 


1497 


001F 






*************************************************** ********************* 


1498 


00 IF 










. BSECT 




1499 


0000 


0000 


A 


LOWl: 




.WORD 


0 


1500 


0001 










.IF 




1501 


0001 


0000 


A 


ENTY: 




• WORD 


0 ;N0N-ZER0 ENTRY POINT 


1502 


0002 


087F 


T 


HIGH1 




.WORD 


OSC LDR-1 


1503 


0003 


0FC6 


T 


L0W2: 




.WORD 


GLDRE 


1504 


0004 


0069 


A 


BSZ: 




.WORD 


105 ;ENO OF BASE SECTOR 


1505 


0005 










• ENDI F 




15 06 


0005 


3FFF 


A 


HIGH2 




.WORD 


X«3FFF 


1507 


0006 


0CE1 


T 


ACM 02 




.WORD 


CMD 2 


1508 


0007 


0B04 


T 


AINBUF: 


.WORD 


INBUF 


1509 


0008 


0C35 


T 


ENOBUF: 


.WORD 


CRDBUF+79 


1510 


0009 


0000 


A 


SEQCK 




.WORD 


0 


1511 


OOOA 


0A79 


T 


NUMB: 




.WORD 


NMBR-1 


1512 


0006 


0000 


A 


CRDFLG: 


.WORD 


0 


1513 


OOOC 


OCBA 


T 


ATBL2 




.WORD 


TBL 2 


1514 


OOOD 


0CE4 


T 


ATBL3 




.WORD 


TBL3 


1515 


OOOE 


0D09 


T 


ETBL3 




. WORD 


TBL3+37 


1516 


OCOF 


ODOA 


T 


ATBL4 




• WORD 


TBL4 


1517 


0010 


0BE6 


T 


ACRDBUF 


:. WORD 


CRDBUF 


1518 


0011 


0000 


A 


AVECT 




.WORD 


0 


1519 


0012 


0000 


A 


INDEVF: 


. WORO 


0 


1520 


0013 


0000 


A 


LIMFLG: 


.WORD 


0 


1521 


0014 


0000 


A 


PTRLO 




.WORD 


0 


1522 


0015 


0000 


A 


PTRHI 




.WORD 


0 


1523 


0016 


0000 


A 


START 




.WORD 


0 


1524 


0017 


0000 


A 


STATE 




.WORO 


0 


1525 


0018 


0000 


A 


STLOW 




.WORD 


0 


1526 


0019 


0000 


A 


VALCNT: 


.WORO 


0 


1527 


001A 


0000 


A 


VALFLG: 


.WORD 


0 


1528 


001B 


0000 


A 


WOCNT 


► 


• WORO 


0 


1529 


001C 


0000 


A 


TEMPI 




.WORD 


0 


1530 


001D 


3FFF 


A 


HICORE: 


.WORD 


16383 


1531 


001E 


0C36 


T 


INVCT: 


.WORD 


VCTO 


1532 


001F 


OCAD 


T 


RLMVCT: 


.WORO 


VCT1 


1533 


0020 


OBCA 


T 


BSEQ: 




.WORD 


MSI 


1534 


0021 


OBCC 


T 


TSEQ: 




.WORD 


MS2 


1535 


0022 


OBCE 


T 


ASEQ: 




• WORD 


MS3 


1536 


0023 


0B02 


T 


ENTEO 




.WORD 


MS4 


1537 


0024 


OBDO 


T 


PTREQ 




.WORD 


MS5 


1538 


0025 


0000 


A 


HOOOO 




.WORD 


0000 


1539 


0026 


0002 


A 


H0002 




. WORO 


0002 


1540 


0027 


0004 


A 


H0004 




.WORD 


0004 


1541 


0028 


0008 


A 


H0008 




. WORD 


0008 


1542 


0029 


0009 


A 


H0009 




. WORD 


X«9 


1543 


002A 


OOOA 


A 


HOOOA 




.WORD 


OOOA 


1544 


002B 


0000 


A 


HOOOO 




.WORD 


OOOD 


1545 


002C 


0011 


A 


H0011 




.WORD 


0011 


1546 


002D 


0013 


A 


H0013 




.WORD 


0013 


1547 


0G2E 


001F 


A 


H001F 




. WORO 


001F 


1548 


002F 


0020 


A 


H0020 




. WORO 


0020 


1549 


0030 


0021 


A 


H0021 




.WORD 


0021 


1550 


0031 


002F 


A 


H002F 




. WORO 


002 F 


1551 


0032 


0030 


A 


H0030: 




• WORD 


0030 


1552 


0033 


0037 


A 


H0037 




.WORD 


0037 


1553 


0034 


0039 


A 


H0039' 




. WORD 


0039 


1554 


0035 


003A 


A 


H003A: 




.WORD 


003A 


1555 


0036 


0040 


A 


H0040. 




.WORD 


0040 


1556 


0037 


0046 


A 


H0046: 




.WORD 


0046 


1557 


003 8 


0040 


A 


H004D: 




.WORD 


004D 


1558 


0039 


0055 


A 


H0055 




. WORO 


0055 


1559 


003A 


0059 


A 


H0059; 




.WORD 


0059 



GENLDR 



1560 


003B 


005F 


A 


H005F: 


• WORD 


005F 


1561 


003C 


0070 


A 


H007D: 


• WORD 


007D 


1562 


0030 


007E 


A 


H007E: 


.WORD 


007E 


1563 


003E 


007F 


A 


H007F: 


.WORD 


007F 


1564 


003F 


0080 


A 


H0080: 


. WORD 


0080 


1565 


0040 


OOCO 


A 


HOOCO: 


.WORD 


OOCO 


1566 


0041 


OOFF 


A 


HOOFF : 


.WORD 


OOFF 


1567 


0042 


0100 


A 


H0100: 


.WORD 


0100 


1568 


0043 


0O0A 


A 


HODOA : 


.WORD 


ODOA 


1569 


0044 


13FF 


A 


H13FF: 


.WORD 


X'13FF 


1570 


0045 


1F00 


A 


H1F00: 


.WORD 


X'IFOO 


1571 


0046 


2020 


A 


H2020: 


.WORD 


X«2020 


1572 


0047 


8000 


A 


H8000: 


• WORD 


X'8000 


1573 


0048 


AOOO 


A 


HAOOO: 


.WORD 


X'AOOO 


1574 


0049 


FOOO 


A 


HFOOO: 


.WORD 


X«FOOO 


1575 


004A 


FFOO 


A 


HFFOO: 


.WORD 


X'FFOO 


1576 


004B 


FFEE 


A 


HFFEE: 


.WORD 


X'FFEE 



1577 004C .PAGE 

1578 004C .****#*******#********************^ 

1579 004C :* * 

1580 004C ;* EQUATES * 

1581 004C ;* * 

1582 004C * ************************************************************ 



1583 


004C 










•SPACE 


1584 


004C 


0000 


A 


RO = 






1585 


004C 


0001 


A 


Rl = 


1 




1586 


004C 


0002 


A 


R2 = 


2 




1587 


004C 


0003 


A 


R3 = 


3 




1588 


004C 


0000 


A 


MO = 


0 




1589 


004C 


0001 


A 


Ml = 


1 




1590 


004C 


0002 


A 


M2 = 


2 




1591 


004C 


0003 


A 


M3 = 


3 




1592 


004C 


0004 


A 


M4 = 


4 




1593 


004C 


0005 


A 


M5 = 


5 




1594 


004C 


0006 


A 


M6 = 


6 




1595 


004C 


0007 


A 


M7 = 


7 




1596 


004C 


0008 


A 


M8 = 


8 




1597 


004C 


0009 


A 


M9 = 


9 




1598 


004C 


OOOA 


A 


M10 = 


10 




1599 


004C 


0007 


A 


ML = 


7 




1600 


0 04C 


0014 


A 


LDMS1 




20 


* s r\ * 

iOUl 


004C 


0009 


A 


LDMS2 




9 


1602 


004C 


OOOF 


A 


L0MS3 = 


15 


1603 


0 04C 


0009 


A 


LDMS4 




9 


1604 


004C 


0000 


A 


STHI 




0 


1605 


004C 


0001 


A 


STLO 




1 


1606 


004C 


0002 


A 


BSO = 


2 




1607 


004C 


0003 


A 


TSO = 


3 




1608 


004C 


0004 


A 


ENTPT 




4 


1609 


004C 


0005 


A 


BSHI 




5 


1610 


004C 


0006 


A 


BSLO 




6 


1611 


004C 


0007 


A 


TSHI 




7 


1612 


004C 


0008 


A 


TSLO 




8 


1613 


004C 


0009 


A 


ASHI 




9 


1614 


0 04C 


OOOA 


A 


ASLO 




10 


1615 


004C 


OOOB 


A 


PTRN 




11 


1616 


004C 


OOOC 


A 


PTPP 




12 


1617 


004C 


OOOD 


A 


LVCT 




13 


1618 


004C 


0028 


A 


LBST 




40 



27 



GENLDR 



1619 004C 0001 

1620 004C 0005 

1621 004C 000C 

1622 004C 0001 

1623 004C 0002 

1624 004C 0003 

1625 004C 0004 

1626 004C 0005 

1627 004C 0007 

1628 004C 0008 

1629 004C 0C08 

1630 004C 0010 

1631 004C 0018 

1632 004C 0018 

1633 004C 

1634 004C 

1635 004C 

1636 004C 

1637 004C 0029 

1638 004C 0012 

1639 004C 0070 

1640 004C 0009 

1641 004C 0016 

1642 004C 0026 

1643 004C 0038 

1644 004C 



A ZRQ = 1 
A NZERO = 5 
A POA = 12 
A STATUS = 1 
A READ = 2 
A READCK = 3 
A S ET ADR = 4 
A RESET = 5 
A WRITE = 7 
A TTYPE = 1*8 
A PT 

A CAR OR = 2*8 
A DISC = 3*8 
A GPCS 

.IF 

; IMP- 

A TA 
A TB 
A TC 
A EA 
A EB 
A EC 
A TTYAD 

• ENDIE 



1*8 



018 

IMP16L 

TTY CONSTANTS 

41 
18 
112 
9 

22 
38 
7*8 



1645 

1646 

1647 

1648 

1649 

1650 

16 51 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 



004C 
004C 
0D1F 
0D1F 
0D1F 
0D1F 
0D1F 
0D1F 
0D1F 
0D1F 
0D1F 
0D1F 
0D1F 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 
0D20 



.PAGE 
.TSECT 



*********** LODRFC *********** 



0002 A PZRO 

0003 A ODD 

0004 A BIT1 
OOOB A NZRO 

0005 A NEZ 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 



LODREC IMP-16 OBJECT RECORD PROCESSOR 
. LOCAL 

RELOCATES AND LINK-EDITS A SINGLE OBJECT RECORD OF AN IMP-16 
RELOCATABLE LOAD MODULE (RLM ) . RECORD FORMATS ARE DESCRIBED IN 
APPENDIX A OF ASSEMBLER USERS MANUAL. MAY BE CALLED AS MANY 
TIMES AS NECESSARY TO PROCESS ONE OR MORE RLM • S • 



2112 A LODREC: JMP 



LDR1 



0012 A 
0048 A 



JUMP CONDITIONS 
2 
3 
4 
11 



OUTPUT VECTOR CONTENTS 

SYMTOP=0 

SYMB0T=1 

BSL0C=2 

TSL0C=3 

ENTRY=4 

HIBAS=5 

L0BAS=6 

HIT0P=7 

L0T0P=8 

HIABS=9 

L0ABS=10 

INDC=11 

PB0T=12 

MRCDL=18 
0RCDL=72 



;TOP LIMIT OF SYMBOL TABLE 
; BOTTOM LIMIT OF SYMBOL TABLE 
? BASE SECTOR ORIGIN 
;TOP SECTOR ORIGIN 



;bottom pointer address 
;maximum input record length 



28 



GENLDR 



1684 


0020 


OOOC 


A 


VECL=12 




1685 


0D20 










1686 


0D20 






i PROGRAM EXITS 




1687 


0D20 










1688 


0020 


0000 


A 


ERR =0 


; ERROR 


1689 


0020 


0001 


A 


TITLE=1 


♦ TI TLE RECORD PROCESSED 


1690 


0D20 


0002 


A 


E0M=2 


• END OF RLM 


1691 


0D20 


0003 


A 


NRML=3 


; NORMAL 


1692 


0D20 










1693 


0020 






1 ERROR CODES 




1694 


0020 










1695 


0020 


0001 


A 


RSEQ=1 


; RECORD SEQUENCE 


1696 


0020 


0002 


A 


CKSUM=2 


; CHECKSUM 


1697 


0D2O 


0003 


A 


BS0V=3 


; BAS E SECTOR OVERFLOW 


1698 


0D20 


0004 


A 


TS0V=4 


:TOP SECTOR OVERFLOW 


1699 


0D20 


0005 


A 


SYM0V=5 


; SYMBOL TABLE OVERFLOW 


1700 


0020 


0006 


A 


AD0R=6 


> ADDRESS ING 


1701 


0020 


0007 


A 


XREF=7 


;REF NBR OF EXTERNAL NOT 


1702 


0D20 








;IN SYMBOL TABLE 


1703 


0020 


0008 


A 


AREA=8 


» LOADI NG IN ILLEGAL AREA 


1704 


0D20 


0009 


A 


C0RE=9 


•.EXCEEDED CORF SIZE 


1705 


0D20 


000A 


A 


SYST=10 


* SYSTEM MALFUNCTION 



1706 


0020 






1707 


0020 






1708 


0020 






1709 


0020 






1710 


0020 


0000 


A 


1711 


0D20 


0001 


A 


1712 


0020 






1713 


0D20 






1714 


0D20 






1715 


0D20 


0002 


A 


1716 


0D20 


0003 


A 


1717 


0020 


0004 


A 


1718 


0020 


0007 


A 


1719 


0020 






1720 


0D20 






172 1 


0020 






1722 


0D20 


0002 


A 


1723 


0D20 


0003 


A 


1724 


QD20 


0006 


A 


1725 


0020 


0007 


A 


1726 


0020 


00 OA 


A 


1727 


0D20 


OOOB 


A 


1728 


0020 


OOOE 


A 


1729 


0020 






1730 


0020 






1731 


00 20 






1732 


0D20 


0002 


A 


1733 


0D20 


0003 


A 


1734 


0020 


0004 


A 


1735 


0D20 


0005 


A 


1736 


0D20 


0006 


A 


1737 


0020 






1738 


0D20 






1739 


0D20 






1740 


0020 


0002 


A 


1741 


0D20 


0003 


A 


1742 


0D20 






1743 


0D20 






1744 


00 20 






1745 


0020 






1746 


0D20 


0D2B 


T 


1747 


0020 


0E29 


T 



• PAGE 

INPUT RECORD FORMAT 

RCDL=0 
CKSM=1 

FOR TITLE RECORD 

BSSIZ=2 
TSSIZ=3 
PNAM=4 
QCSTR=7 

FOR SYMBOL RECORD 

SREL0C=2 

SYM1=3 

VAL 1=6 

SYM2=7 

VAL2=10 

SYM3=11 

VAL3=14 

FOR DATA RECORD 

ILATYP=2 
ILA=3 
DTYP1=4 
0TYP2=5 
DAT A=6 

FOR END RECORD 



ENTYP=2 
ENTYAD=3 



; RECORD TYPE AND LENGTH 
;CH ECKSUM 



;base sector size 
;top sector size 
'.program name - 3 words 
;qual. char, string - 11 words 



RELOCATION DATA 
;NAME OF SYMBOL 1 

• t/Ai lie nc cvuoni 



I riD u i_ 



;NAME OF SYMBOL 2 
;VALUE OF SYMBOL 2 
; NAME OF SYMBOL 3 
;VALUE OF SYMBOL 3 



;load address relocation type 

;load address 

;data reloc word i 

; data reloc word 2 

; DATA 



; ENTRY ADDRESS RELOCATION TYPE 
'.ENTRY ADDRESS 



SYMBOL TYPES - RELOCATION INFO 

ABS=DO 
EXT=D3 



29 



GENLDR 



1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 



0D20 

0D20 

0020 

0D20 

0020 

0020 

0020 

0020 

0020 

0020 

0D20 

0D20 

0020 

0020 

0D20 

0020 

0020 

0020 

0020 

0020 

0020 

0021 

0D21 

0022 

0022 

0D23 

0024 

0025 

OD25 

0025 

0025 

0026 

0027 

0028 

0028 

0029 

0D29 

00 2 A 

002B 

0D2B 

00 2B 

002B 

002C 

0020 

0D2E 

0D2F 

0D30 

0D31 



. PAGE 



SYMBOL TABLE ENTRY FORMAT 



FFFC A 
FFFD A 
FFFE A 
FFFF A 
FFFF A 



0000 A 
0000 A 
0005 A 



0D21 T RTYP: 
S 

0000 A L STATE 



0D23 
0024 
0025 



0025 
0027 
0D28 



TEMP : 
TEMP2: 
TEMP3 : 



BASE: 

BSMAX: 

TSMAX: 



OOFP A BOTEXT 



0000 
0E2C 



0000 
0003 
0004 
0008 
001E 
0100 
2020 



EXTLIM: 
$RLADO: 



DO: 

$03: 

$D4: 

$D8: 

D30: 

0256: 

$BL ANKS : 



NAMl=-4 

NAM2=-3 

NAM3=-2 

REFNR=-1 

FLAGS=-1 



RCHAIN=0 

VALU=0 

SYMNWE=5 



JCHARS 1 AND 2 OF SYMBOL TAG 
;CHARS 3 AND 4 OF SYMBOL TAG 
;CHARS 5 AND 6 OF SYMBOL TAG 
;EXT. REFERENCE NUMBER (BITS 8-15) 
; FLAGS (BITS 0-7) 

BIT 0 DEFINEO 

BIT 1 INDIRECT PNTR GENERATED 
BIT 2 SYMBOL MULTIPLY DEFINED 

;CHAIN OF UNRESOLVED REFERENCES ( BI T 0=0) 

; SYMBOL ADDRESS (BIT0=1) 

;NBR OF WORDS PER ENTRY IN SYMB TABLE 



LOCAL VARIABLES 

RECORD TYPE OF RECORD BEING PROCESSED 
. = . + 1 

CURRENT LOADER STATE 

• WORD 0 

TEMPORARY WORKING LOCATIONS 
.=.+1 
. = .+1 
. = .+1 

common data area 

•word . ; base address 

.=•+1 ;base sector extent for current rlm 

.=.♦1 ;top sector extent for current rlm 

next available slot for indirect pointer 

• WORD 255 

LAST AVAILABLE SLOT FOR INDIRECT POINTER 



• WORD 
.WORD 



0 

RLTH 



CONSTANTS 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.ASCII 



0 
3 
4 
8 

30 
256 



1796 


0D32 






.PAGE 






1797 


0D32 












1798 


0032 






INI TIAL 


RECORD PROCESSING 


1799 


0032 












1800 


0D32 


A147 


A LORl: 


ST 


RO,$SVRO 


;save 


1801 


0033 


A547 


A 


ST 


R1,$SVR 1 


1802 


0D34 


A 947 


A 


ST 


R2, $SVR2 




1803 


0035 


AD47 


A 


ST 


R3, $SVR3 




1804 


0036 


89EE 


A 


LD 


R2» BASE 


;SAVE BASE ADDRESS OF COMMON AREA 


1805 


0D37 


4200 


A 


PUSH 


R2 


1806 


0D38 


8967 


A 


LD 


R2,INL0C 


;LOC OF INPUT BUFFER 


1807 


0D39 


8200 


A 


LD 


R0,RCDL(R2) 


;SPLIT RECORD LENGTH AND TYPE 


1808 


003A 


5C02 


A 


SHL 


R0,2 


1809 


0D3B 


5CFE 


A 


SHR 


R0.2 




1810 


0D3C 


Bl ED 


A 


ST 


RO t 3$RL ADO 




1811 


0D30 


8200 


A 


LD 


ROt RCDL ( R2 ) 




1812 


0D3E 


5802 


A 


ROL 


RO, 2 




1813 


0D3F 


61 EC 


A 


AND 


R0,$D3 





30 



GENLDR 



18 14 


0040 


A IDF 


A 




ST 


1815 


0041 


895E 


A 




LD 


1816 


0D42 


91E7 


A 




LD 


1817 


0D43 


AIDE 


A 




ST 


1818 


0D44 


8201 


A 




LD 


1819 


0045 


11 OB 


A 




BOC 


1820 


0046 


C9DB 


A 




ADD 


1821 


0D47 


4A01 


A 




A1SZ 


182 2 


0048 


0200 


A 


$25: 


SUB 


1 fl?3 

L O ~> 


0049 


4AFF 


A 




AISZ 


1824 


0D4A 


7007 


A 




DSZ 


18 2 5 


004B 


21FC 


A 




JMP 


1826 


004C 


1501 


A 




BOC 


1827 


0D40 


2103 


A 




JMP 


1828 


004 E 


4F02 


A 




LI 


1829 


0D4F 


4400 


A 




PULL 


1830 


0D50 


0200 


A 




PTS 


1831 


0 05 1 


89CF 


A 


$2 5 A: 


LO 


1832 


0D52 


81C0 


A 




LD 


1833 


0D53 


2922 


A 




JSR 


1834 


0054 


0D57 


T 




.WORO 


1835 


0055 


00 5B 


T 




. WORD 


1836 


0056 


0061 


T 




• WORD 


1837 


00 57 


1110 


A 


$10: 


BOC 


1838 


0058 


4F01 


A 


$11: 


LI 


1839 


0059 


4400 


A 




PULL 


1840 


005A 


0200 


A 




RTS 


1841 


0D5B 


3281 


A 


$12: 


RCPY 


1842 


0D5C 


2919 


A 




JSR 


1843 


0D50 


0D58 


T 




.WORD 


1844 


0D5E 


0D6C 


T 




• WORD 


1845 


0D5F 


0D6A 


T 




• WORD 


1846 


0060 


0066 


T 




• WORO 


1847 


0061 


48FE 


A 


$14: 


AISZ 


1848 


0062 


2101 


A 




JMP 


1849 


0D63 


2108 


A 




JMP 


1850 


0064 


1201 


A 




BOC 


1851 


0065 


21F2 


A 




JMP 


1852 


0066 


4C00 


A 


$20: 


LI 


1853 


0067 


2105 


A 




JMP 


1854 


0068 


4C01 


A 


$21 : 


LI 


185 5 


0069 


2103 


A 




JMP 


1856 


006A 


4C02 


A 


$22: 


LI 


1 O _? f 




7101 


A 




JMP 


1858 


0D6C 


8 1 B4 


A 


$23: 


LD 




0D6D 


A1B3 


A 


$24: 


ST 


1 QAn 


0D6E 


89B1 


A 




LD 


1861 


0D6F 


3881 


A 




RCPY 


1862 


0070 


852F 


A 




LD 


1863 


007 1 


2904 


A 




JSR 


1 864 


0D72 


0D7E 


T 




• WORD 


1865 


0073 


0DA3 


T 




• WORD 


1866 


0074 


0E3F 


T 




• WORD 


1 867 


0075 


0F70 


T 




• WORD 


1868 


0076 










1 869 


0076 








JUMP 


1870 


0076 










187 1 


0D76 


5400 


A 


SWITCH: 


XCHRS 


1872 


0D77 


3200 


A 




R ADD 


1873 


0078 


4400 


A 




PULL 


1874 


0D79 


2600 


A 




JMP 


1875 


0D7A 










1876 


007A 


0D7B 


T 


$SVR0: 


.=.+1 


1877 


007B 


0D7C 


T 


$SVRi: 


. = . + 1 


1878 


00 fC 


0D70 


T 


$SVR2: 


.=. + 1 


1879 


0070 


0D7E 


T 


$SVR3: 


. = . + 1 



ROt RTYP 




R2, INLOC 


;CHECK RECORD CHECKSUM 


R0t3$RLADD 




ROt TEMP 




ROtCKSM( R2) 




ZRO f $25A 


; IGNORE CHECKSUM 


R2t TEMP 


; TEMP CONTAINS RECORD LENGTH 


R2.1 




ROt (P2) 




R2 t -1 




TEMP 




$25 




NEZt.+2 


;CHECKSUM ERROR 


$25A 




R3tCKSUM 


CHECKSUM ERROR 


RO 




ERR 




R2? LSTATF 


:TEST RECORD SEQUENCE 


RO t RTYP 




SWITCH 




$10 


; STATE 0 


$ 12 


; STATE 1 


$14 


; STATE 2 


ZR0*$21 


;T ITLE RECORD LEGAL 


R3« RSEQ 


; RECORD SEQUENCE ERROR 


RO 




ERR 




R0*R2 




SWITCH 




$11 


; TITLE RECORD - ERROR 


$23 


; CONTINUE SAME STATE 


$22 


; CHANGE TO STATE 2 


$20 


; CHANGE TO STATE 0 


R0t-2 




.+2 




$23 


; NO CHANGE OF STATE 


PZP0»$20 


; END RECORD - CHANGE TO STATE 


$11 


; RECORD SEQUENCE ERROR 


R0»0 


;SET STATE 0 


$24 




RO * 1 


;SET STATE 1 


$24 




ROt 2 


;SET STATE 2 


$24 




R0» LSTATE 


;RETAIN CURRENT STATE 


ROtLSTATE 




R2 1 RTYP 




R2t RO 


:RECORD RELOC TYPE 


Rl t I NLOC 


• dacc m » n a t a per opnrF^^fiR • 


SWI TCH 




$TITL 


; TITLE RECORD 


$SYMB 


; SYMBOL RECORD 


$DAT 


; DATA RECORD 


$END 


; END RECORD 


TO CALL+1+(R2) 




RO 




R0,R2 




RO 




3(R2) 




-.REGISTER SAVF 


AREA 
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1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 



0D7E 

0D7E 

0D7F 

0D7E 

0D7E 

0D7F 

0080 

0081 

0082 

0D83 

0D84 

0D85 

0D86 

0D87 

0088 

0D89 

0D8A 

0D8B 

0D8C 

0D8D 

0D8E 

0O8F 

0090 

0D91 

0092 

0093 

0094 

0D95 

0D96 

0097 

0098 

0099 

0D9A 

0D9B 

0D9C 

0090 

0D9E 

0D9F 



• PAGE 



PROCESS TITLE RECORD 



8302 

E306 

A306 

830B 

A1A5 

8705 

F041 

A5A3 

8919 

8302 

C202 

C15A 

4600 

A201 

E305 

2105 

E203 

2102 

4F03 

0200 

A305 

8303 

E308 

A308 

4200 

8908 

C203 

C14A 

4600 

A202 

E307 

2101 

A307 

0201 



A $TITL: 
A 
A 
A 
A 
A 
B 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 

A $38: 
A $40: 



$34: 
$36: 



LD 

SKG 

ST 

LD 

ST 

LD 

SKNE 

ST 

LD 

LD 

ADD 

ADD 

PULL 

ST 

SKG 

JMP 

SKG 

JMP 

LI 

RTS 

ST 

LD 

SKG 

ST 

PUSH 

LD 

ADD 

ADD 

PULL 

ST 

SKG 

JMP 

ST 

RTS 



RO, BSL0C(R3) 
R 0 » LOBAS ( R3 ) 
R0,L0BAS(R3) 
RO, INDC(R3) 
R 0, BOTE XT 
R1,HIBAS(R3) 
RO »HOOFF 
R 1, EXTL I M 
R2, INLOC 
R0,BSLOC(P3) 
RO, BSSIZ(R2) 
R0,MIN1 
R2 

R0,BSMAX-BASE(R2) 
R0,HIBAS(R3) 

$36 ; ENOUGH SPACE AVAILABLE 

RO, B0TEXT~BASE<R2) ;CHECK INDIR. POINTER AREA 



;R3 CONTAINS PARAM VECTOR ADDRESS 
{TEST B/S ORIGIN AGAINST LIMIT 

UNITIALIZE IND POINTER START A DDR 



;HAS PNTR A DDR BEEN RESET? 
:YFS, RESET LIMIT VALUE 



{CHECK BSECT SPACE REQUIRED 
tBASE ADDRESS OF COMMON AREA 



$34 

R3,BS0V 
ERR 

R0,HIBAS(R3) 
R0,TSLOC (R3) 
R0,LOTOP(R3) 
R0,L0T0P(R3) 
R2 

R2, INLOC 

R0,TSSIZ(R2) 

RO.MINl 

R2 

R0,TSMAX-BASE(R2) 
R0,HIT0P(R3) 
$40 

R0,HITOP(R3) 
TITLE 



{SPACE AVAILABLE - RESET HIBAS 
;BSECT OVERFLOW 



{CHECK TSECT SPACE REQUIRED 
» TEST T/S ORIGIN AGAINST LIMIT 



{INITIALIZE FOR THIS RLM 
{ENOUGH SPACE A VA I LABLF 



1918 


ODAO 
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1919 


ODAO 






{ 






1920 


OOAO 






{ 


PROCESS 


SYMBOL RECORD 


1921 


ODAO 










1922 


ODAO 


OB 04 


T 


INLOC: 


• WORD 


INBUF 


1923 


0DA1 


0000 


A 


RELTYP : 


• WORD 


0 


1924 


0DA2 


2000 


A 


BIT2: 


• WORD 


X'2000 


1925 


00A3 


89FC 


A 


$SYMB: 


LD 


P2, INLOC 


1926 


0DA4 


A93C 


A 




ST 


R2, SYMNO 


1927 


0DA5 


9184 


A 




LD 


RO, 3$RL AOD 


1928 


00A6 


3800 


A 




RADO 


R2,R0 


1929 


0DA7 


48FE 


A 




AISZ 


R0,-2 


1930 


00A8 


A13A 


A 




ST 


RO, INLIM 


1931 


0DA9 


8202 


A 




LD 


R0,SREL0C(R2) 


1932 


ODAA 


A1F6 


A 




ST 


RO, RELTYP 


1933 


ODAB 


8203 


A 


$45 : 


LD 


RO, SYM1 (R2) 


1934 


ODAC 


1126 


A 




BOC 


ZRO ,$63 


193 5 


OOAO 


A137 


A 




ST 


RO, SYMN1 


1936 


ODAE 


8204 


A 




LO 


R0,SYM1+1 (R2) 


1937 


ODAF 


A136 


A 




ST 


R0,SYMN2 


1938 


OOBO 


8205 


A 




LD 


R0,SYM1+2(R2) 


1939 


0DB1 


A135 


A 




ST 


R0,SYMN3 


1940 


0DB2 


85EE 


A 




LD 


Rl, RELTYP 


1941 


0DB3 


5902 


A 




ROL 


Rl,2 


1942 


0DB4 


A5EC 


A 




ST 


Rl, RELTYP 


1943 


0DB5 


6573 


A 




AND 


R1,D3 


1944 


00B6 


293F 


A 




JSR 


SEARCH 


1945 


0D87 


210E 


A 




JMP 


$48 



; SYMBOL INDEX 



{RECORD DONE 



{RELOCATION TYPE 



{SEARCH SYMBOL TABLE 
{ SYMBOL TABLE OVERFLOW 
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GENLDR 



1946 


0DB8 


2110 


A 




JMP 


$55 


1947 


0DB9 


E53A 


A 




SKG 


R1,$TSREL 


1948 


QDBA 


2105 


A 




JMP 


$47 


1949 


00BB 


8025 


A 


$46 : 


LO 


R3, SYMNO 


1950 


ODBC 


8306 


A 




LD 


R0tVALl(R3) 


195 1 


00BD 


6AFF 


A 




OR 


RO, REFNR (R2 ) 


1952 


OOBE 


A2FF 


A 




ST 


R0,REFNR(R2 ) 


1953 


OOBF 


2100 


A 




JMP 


$60 


1 O t>A. 
1 , 3*r 




82F p 


A 


$47 : 


LD 


RO t FLAGS ( R2 ) 


1955 


00C 1 


1213 


A 




BOC 


PZR0,$65 


1 956 


0DC2 


86FF 


A 




LD 


Rlt FL AGS(R2) 


X ^ J I 




6DDE 


A 




OR 


Rl, BIT2 


1958 


0DC4 


A6FF 


A 




ST 


R1,FLAGS(R2) 


1959 


00C5 


2107 


A 




JMP 


$60 


1960 


0DC6 


4F 05 


A 


$48 : 


LI 


R3, SYMOV 


1961 


0DC7 


4400 


A 




PULL 


RO 




00C8 


0200 


A 




RTS 


ERR 


1963 


0DC9 








C VUQ Ql_ 


NOT FOUND 


1 964 


0DC9 


F55F 


A 


$55 : 


SKNE 


R It EXT 


1965 


00CA 


21 FO 


A 




JMP 


$46 


1966 


00CB 


29 10 


A 




JSR 


SYMBOL 


1 OA7 














1 Qftfi 
1 7 u o 


ODCC 


A200 


A 




ST 


ROt VALU(R2 ) 




nnrn 


8DAF 


A 


$60 : 


LD 


R3t $SVR 3 


1970 


ODCE 








CHECK 


FOR END OF RECORD 


1 971 


ODCE 


8912 


A 




LD 


R2t SYMNO 


1972 


ODCF 


4A04 


A 




AISZ 


R2t4 


1973 


0000 


A910 


4 




ST 


R2«SYMN0 


1974 


000 1 


E911 


A 




SKG 


R2t INLIM 


1975 


0002 


2108 


A 




JMP 


$45 


1976 


0DD3 


4400 


A 


$63: 


PULL 


RO 


1977 


0D04 


0203 


A 




RTS 


NRML 


1978 


0005 


2913 


A 


$65 • 


JSR 


SYMBOL 


1979 


0D06 












1980 


0DD6 


8600 


A 




LO 


Rl t RCHA IN( R2 ) 


1981 


0007 


A200 


A 




ST 


R0,RCHAIN(R2) 


1982 


0OD8 


F50B 


A 


$66 : 


SKNE 


Rl t MINI 


1983 


0009 


21F3 


A 




JMP 


$60 


1984 


ODOA 


4000 


A 




PUSH 


RO 


1985 


ODDP 


3681 


A 




RCPY 


R1,R2 


1986 


OOOC 


2C66 


I 




JSR 


LOAO 


1987 


ODDO 


3181 


A 




RCPY 


ROt Rl 


1988 


000E 


4400 


A 




PULL 


RO 


1989 


ODOF 


2C55 


I 




JSR 


STORE 


19°0 


ODEO 


21F7 


A 




JMP 


$66 


1991 


0OE1 


0000 


A 


SYMNO: 


.WORD 


0 


1992 


0DE2 


0000 


A 


$R3: 


• WORD 


0 


1993 


0DE3 


OBDF 


T 


INLIM: 


.WORD 


INBUF+11 


1994 


0DE4 


FFFF 


A 


MINI: 


. WORD 


-1 


1995 


0DE5 


0000 


A 


SYMNl: 


.WORD 


n 

>J 


1996 


0DE6 


0000 


A 


SYMN2 : 


.WORD 


0 


1997 


0DE7 


0000 


A 


SYMN3: 


.WORD 


0 



; SYMBOL NOT FOUND 

; SYMBOL FOUND 

; SYMBOL NOT EXTERNAL 



;REDUCE TO 8 BITS ONLY 
;SET REFNR=NEW SYMB REF NR 



EXISTING SYMBOL EXTERNAL 

; MARK SYMBOL MULTIPLY DEFINED 



; FIN I SHED THIS SYMBOL 
; SYMBOL TABLE OVERFLOW 



;NEW SYMBOL IS EXTERNAL 

; MARK SYMBOL DEFINED AND CALCULATE 

* VALUE 



; ALL SYM'BOLS PROCESSED ? 
;NOT DONE WITH RECORD 



;MARK SYMBOL DEFINED AND CALCULATE 
; VALUE 



; TEST FOR END OF CHAIN 
; END 



; INDEX INTO SYMBOL RECORD 
; TEMP SAVE FOR R3 

; END OF REFERENCE CHAIN 



1998 


0DE8 








.PAGE 






1999 


ODE 8 














2000 


0DE8 








SYMBOL 


- MARK SYMBOL 


DEFINED AND CALCULATE VALUE 


2001 


0DE8 














2002 


0DE8 


8000 


A 


BI TO: 


. WORO 


X'8000 


; SYMBOL DEFINED BIT 


2003 


0DE9 


82FF 


A 


SYMBOL: 


LD 


P0,FLAGS(R2) 


: MARK SYMBOL DEFINED 


2004 


ODEA 


69FD 


A 




OR 


RO, BITO 




2005 


ODEB 


A2FF 


A 




ST 


R0,FLAGS(R2) 




2006 


ODEC 


4C00 


A 




LI 


ROt 0 


CALCULATE VALUE FOR SYMBOL 


2007 


ODED 


F506 


A 




SKNE 


R1,$TSREL 




2008 


ODEE 


8303 


A 




LO 


R0,TSLOC(R3) 


; SYMBOL IS TSECT RELOCATABLE 


2009 


ODEF 


F505 


A 




SKNE 


Rlt $BSREL 




2010 


ODFO 


8302 


A 




LD 


R0tBSLOCCR3) 


; SYMBOL IS BSECT RELOCATABLE 
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GENLDR 



2011 00F1 80EF A LO R3.SYMNO :CURRENT SYMBOL NUMBER 

2012 0DF2 C306 A ADD R0,VAL1(R3) 

2013 0DF3 0200 A RTS 

2014 0DF4 0002 A $TSREL : • WORD 2 

2015 00F5 0001 A $BSREL : .WORD 1 



2016 

2017 

2018 

2019 

2020 

2021 

2 022 

2023 

2024 

2025 

2026 

2027 

2C28 

2029 

2030 

2031 

2032 

2 033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2 049 

2050 

2051 

2052 

2053 

2 054 

2055 

2056 

2057 

2058 

2059 

2 060 



0DF6 

0DF6 

0DF6 

0DF6 

0DF6 

0DF6 

0DF6 

0DF6 

0DP6 

0DF6 

0DF6 

0DF6 

0DF7 

0DF8 

0DF9 

ODFA 

OOFB 

OOFC 

ODFD 

ODFE 

ODFF 

OEOO 

0E01 

0E02 

0E03 

0E04 

0E05 

0E06 

0E07 

0E08 

0E09 

OEOA 

OEOB 

OEOC 

OEOD 

OEOE 

OEOF 

0E10 

0E11 

0E12 

0E13 

0E14 

0E15 

0E16 

0E17 



8B00 

PB01 

210F 

82 FC 

F1EA 

2101 

2107 

82FD 

F1E7 

2101 

2103 

82FE 

F1E4 

0202 

4AFB 

EB01 

2101 

21F1 

4AFB 

E92F 

0200 

AB01 

4A05 

81D7 

A2FC 

8196 

A2FD 

81D5 

A2FE 

4C00 

A2FF 

4CFF 

A200 

0201 



.PAGE 

SEARCH - SEARCH SYMBOL TABLE FOR MATCH. IF NO MATCH FOUND, 
MAKE NEW ENTRY. 









INPUT 


SYMBOL NAME IN SYMN1 * SYMN2 , SYMN3 • RETURNS ARE: 










CALL+1 SYMBOL 


TABLE OVERFLOW 










CALL+2 SYMBOL 


NOT FOUND - NEW ENTRY 










CALL+3 SYMBOL 


FOUND 


A 


< 


>EAPCH: 


LD 


R 2, SYMTOP ( R3) 




A 






SKNE 


R2 t SYMBOT ( R3) 


5 ANY ENTRIES IN TABLE? 


A 






J MP 


$NOFND 


;no 


A 


$TQP: 


LD 


RO, NAM1 (R2) 


?COMPARE SYMBOL NAMES 


A 






SKNE 


RO, SYMN1 




A 






JMP 


. + 2 




A 






JMP 


$OUT 


;N0 MATCH 


A 






LO 


R0,NAM2(R2) 




A 






SKNE 


RO, SYMN2 




A 






JMP 


.+2 




A 






JMP 


$OUT 


;N0 MATCH 


A 






LD 


RO, NAM3 (R2) 




A 






SKNE 


RO , SYMN3 




A 






RTS 


•j 


» TAKE 'SYMBOL MATCH' RETURN! 


A 


$OUT: 


AISZ 


R2,-SYMNWE 


;CURRENT ENTRY DOES NOT MATCH 


A 






SKG 


R2,SYMB0T(R3) 


•ARE WE DONE? 


A 






JMP 


$NOFND 


;YES - SYMBOL NOT FOUND 


A 






JMP 


$TOP 


;NOT DONE 


A 


$NOFND: 


AISZ 


R2,-SYMNWE 


;D0 WE HAVE SPACE FOP NEW ENTRY 


A 






SKG 


R2,S YMLIM 


A 






RTS 


0 


» SYMBOL TABLE OVERFLOW 


A 






ST 


R2, SYMBOT (R3) 


;YES - MAKE NEW ENTRY 


A 






AISZ 


R2, SYMNWE 




A 






LD 


R0,SYMN1 




A 






ST 


P0,NAMi(R2) 




A 






LD 


R0,SYMN2 




A 






ST 


R0,NAM2(R2) 




A 






LD 


RO, SYMN3 




A 






ST 


RO , NAM3 ( R2 ) 




A 






LI 


R0,0 




A 






ST 


R0,REFNR(R2) 




A 






LI 


R0,-1 


5 END OF CHAIN 


A 






ST 


R0,RCHAIN(R2) 




A 






RTS 


1 


;N0 MATCH - NEW ENTRY MADE 



2061 0E18 

2062 0E18 

2063 0E18 

2064 0E18 

2065 0E18 

2066 0E18 

2067 0E18 

2068 0E18 

2069 0F18 

2070 0E18 

2071 0E18 4600 

2072 0E19 4200 

2073 0F1A 8600 
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UNPACK RELOCATION FIELDS IN DATA RECORD INTO INDIVIDUAL 
WORDS. RO CONTAINS FIELDS TO BE UNPACKED. CALLING SEQUENCE: 



JSR UNPAK 
(NUMBER OF FIELDS) 
(DESTINATION) 
(NORMAL RETURN) 



A UNPAK : PULL R2 
A PUSH R2 

A LD R1,(R2) 



;PICK UP INPUT PARAMETERS 



34 



GENLDR 



2074 


0E1B 


A50B 


A 




ST 


Rl, $CNT 




2075 


0E1C 


8A01 


A 




LD 


R2,1(R2) 




2076 


0E1D 


A10A 


A 




ST 


ROi $FLD 




2077 


0E1E 


8109 


A 


$1 : . 


LD 


RO t $FLD 




2078 


0E1F 


5802 


A 




ROL 


R0,2 


;LOOK AT NEXT FIELD 


2079 


0E20 


A107 


A 




ST 


RO,$FLD 




2080 


0E21 


6107 


A 




AND 


R0,D3 


;STRIP OUT FIELD 


2081 


0E22 


A200 


A 




ST 


RO, (R2) 




2082 


0E23 


4A01 


A 




AISZ 


R2, 1 




2083 


0E24 


7D02 


A 




DSZ 


$CNT 


; FI NISHED? 


2084 


0E25 


21F8 


A 




JMP 


$1 


;N0 


2085 


0E26 


0202 


A 




RTS 


2 




2086 


0E27 


0E28 


T 


$CNT: 


.=. + 1 






2087 


0E28 


0E29 


T 


$FLD: 


. = . + 1 






2088 


0E29 
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2089 


0E29 














2090 


0E29 






• 


PROCESS 


DATA RECORD 




2091 


0E29 






; 








2092 


0E29 


0003 


A 


D3: 


• WORD 


3 




2 093 


0E2A 


0400 


A 


BIT5: 


.WORD 


X«0400 




2094 


0E2B 


0E2D 


T 


RELPNT: 


. WORD 


RELOC 




2095 


0E2C 






? 


RECORD 


LENG TH 




2096 


0E2C 


0E2D 


T 


RLTH: 


.=. + 1 






2097 


0E2D 






» 


AMOUNT 


OF CORF AVAILABLE 


2098 


0E2D 


0E39 


T 


RELOC: 


.=.+12 




* CONTAINS UNPACKED RELOC I FO 


2099 


0E39 






? 


LAST AVAILABLE LOCATION 


FOR SYMBOL TABLF ENTRY 

1 Ul> J 1 1 1 UU L 1 HULL Ull 1 n 1 


2100 


0E39 


0100 


A 


SYMLIM: 


• WORD 


X« 1 00 




2101 


0E3A 


0000 


A 


$TYPE: 


• WORD 


o 


:^avf RFrnRn PPI fir TYPF 


2102 


0E3B 


0001 


A 


BSREL: 


. WORO 


1 




2103 


0E3C 


0002 


A 


TSREl: 


• WORD 


2 




2104 


0E30 


OECB 


T 


$LDPNT: 


.WORD 


LDADR 




2105 


0E3E 


0025 


T 


$OBASE: 


. WORD 


BASE 




2106 


0E3F 


3681 


A 


$OAT: 


RCPY 


Ri,R2 


;Rl=LOC OF INPUT BUFFER 


2107 


0E40 


8202 


A 




LD 


RO, I LATYP ( R2 ) 


RELOCATE INITIAL LOAD ADDRESS 


2108 


0E41 


4D00 


A 




LI 


P 1,0 




2109 


0E42 


F1F8 


A 




SKNE 


RO, BSREL 




2110 


0E43 


8702 


A 




LD 


R1,BSL0C(R3I 


; BASE SECTOR RELOCATABLE 


2111 


0E44 


F1F7 


A 




SKNE 


RO, TSREL 




2112 


0E45 


8703 


A 




LD 


Rl,TSL0CiR3) 


;TOP SECTOR RELOCATABLE 


2113 


0E46 


C603 


A 




AOD 


R1,ILA(R2) 




2114 


0E47 


B5F5 


A 




ST 


R 1,3$LDPNT 




2115 


0E48 


A1F1 


A 




ST 


RO,$TYPE 


;SAVE REC RELOC TYPE 


2116 


0E49 


8204 


A 




LD 


R0,DTYPl(R2) 


;GET FIRST RELOC WD 


2117 


0E4A 


29C0 


A 




JSR 


UNPAK 




2118 


0E4B 


0008 


A 


$80: 


.WORD 


8 




2119 


0E4C 


0E20 


T 




.WORD 


RELOC 




2120 


0E4D 


81DE 


A 




LD 


RO, RLTH 




2121 


0E4E 


E1FC 


A 




SKG 


R0,$80 


; REQUIRES 2 RELOC WORDS 


2122 


0E4F 


2105 


A 




JMP 


$70 




2123 


0E5C 


8976 


A 




LD 


R2,$INPNT 




2124 


0E51 


8205 


A 




LD 


P0,DTYP2(R2) 


;GET SECOND RELOC WD 


2125 


0E52 


29C5 


A 




JSR 


UNPAK 




2126 


0E53 


0004 


A 


$4D: 


.WORD 


4 




2127 


0E54 


0E35 


T 




.WORD 


REL0C+8 




2128 


0E55 


8971 


A 


$70: 


LD 


R2, $INPNT 




2129 


0E56 


81D5 


A 




LD 


RO, RLTH 


; ADJUST RECORD LENGTH TO REFLECT 


2130 


0E57 


01FB 


A 




SUB 


RO, $40 


; NUMBER OF DATA WORDS 


2131 


0E58 


A1D3 


A 




ST 


RO , RLTH 




2132 


0E59 


C171 


A 




ADD 


RO, LDADR 


'.CALCULATE LAST ADDR IN RECORD 


2133 


0E5A 


A16B 


A 




ST 


RO, $DATEND 




2134 


0E5B 


81CF 


A 




LD 


RO, RELPNT 


CALCULATE RELOC INFO ADDRESS 


2135 


0E5C 


A16B 


A 




ST 


RO, RE LX 




2136 


0E5D 


810C 


A 


$72 : 


LD 


RO, $TYPE 


;CHECK LOAD ADDRESS AGAINST RANGES 


2137 


0E5E 


856C 


A 




LD 


Rl, LDADR 




2138 


0E5F 


5600 


A 




XCHRS 


R2 




2139 


0E60 


9900 


A 




LD 


R2,3$DBASE 


;GET BASE ADDRESS 



GENLDR 



2140 


0E61 


F1D9 


A 




SKNE 


RO.BSREL 




2141 


0E62 


2110 


A 




JMP 


$75 


; BASE SECTOR RELATIVE 


2142 


0E63 


1109 


A 




BOC 


ZR0,$74 


.ABSOLUTE 


214 3 


0E64 


E602 


A 




SKG 


R1,TSMAX-BASE(R2) ;TOP SECTOR RELATIVE 


2144 


0E65 


2104 


A 




JMP 


$73 


?LIMIT SET OK 


2145 


0E66 


A602 


A 




ST 


R1,TSMAX-BASE(R2) 


2146 


0E67 


E707 


A 




SKG 


R1,HIT0P(R3) 




2147 


0E68 


2101 


A 




JMP 


$73 




2148 


0E69 


A707 


A 




ST 


Rl t HlT0P(R3) 




2149 


0F6A 


E708 


A 


$73: 


SKG 


R1,L0T0P(R3) 




2150 


0E6B 


A708 


A 




ST 


R1,L0T0P{R3) 




2151 


0E6C 


210E 


A 




JMP 


$78 




2152 


0E6D 


E709 


A 


$74: 


SKG 


Rl,HIABS(R3) 




2153 


0E6E 


2101 


A 




JMP 


$74A 




2154 


0E6F 


A709 


A 




ST 


R1,HI ABS (R3) 




2155 


0E70 


E70A 


A 


$74A: 


SKG 


R It LOABS ( R3 ) 




2156 


0E71 


A70A 


A 




ST 


R1,L0ABS(R3) 




2157 


0E72 


2108 


A 




JMP 


$78 




2158 


0F73 


E601 


A 


$75: 


SKG 


R1,BSMAX-BASE(R2) 


2159 


0E74 


2104 


A 




JMP 


$76 




2160 


OE75 


A601 


A 




ST 


R It BSMAX-BASE (R2) 


2161 


0E76 


F705 


A 




SKG 


Rl.HIBAS (R3) 




2162 


0F77 


2101 


A 




JMP 


$76 




2163 


0E78 


A705 


A 




ST 


R1»HIBAS(R3) 




2164 


0E79 


E706 


A 


$76: 


SKG 


RltLOBAS (R3 ) 




2165 


0E7A 


A706 


A 




ST 


R1,L0BAS(R3) 




2166 


0E7B 






$78: 








2167 


0E7B 


814F 


A 


$78A: 


LO 


ROtLDADR 




216SI 


0E7C 


7148 


A 


$79: 


SKAZ 


RO»$FFOO 


;CHECK OVERLAP OF INDIRECT 


2169 


0E7D 


2108 


A 




JMP 


$80 


;0K 


2170 


0E7E 


E203 


A 




SKG 


ROt BOTE XT- BASE ( R2 ) 


2171 


0E7F 


2103 


A 




JMP 


.+4 




2172 


0E80 


4600 


A 




PULL 


R2 




2173 


0E81 


4F08 


A 


$79A: 


LI 


R3, AREA 


;LOAOING IN ILLEGAL AREA 


2174 


0E82 


0200 


A 




RTS 


ERR 




2175 


0E83 


E204 


A 




SKG 


P0,EXTLIM-BASE(R2) 


2176 


0E84 


2101 


A 




JMP 


$80 




217"> 


0F85 


A2 04 


A 




ST 


RO t EXTL IM-8ASE C R2 ) 


2178 


0E86 


4600 


A 


$80: 


PULL 


R2 




2179 


0E87 


9140 


A 




LD 


R0» 3REL X 




2180 


0F88 


1135 


A 




BOC 


ZR0,$84 


; ABSOLUTE 


2181 


0E89 


F1B1 


A 




SKNE 


POtBSREL 




2182 


0E8A 


2108 


A 




JMP 


$83 


;BASE SECTOR RELOCATABLE 


2183 


0E8B 


F19D 


A 




SKNE 


ROtEXT 




2184 


0E8C 


2112 


A 




JMP 


$86 


; EXTERNAL REFERENCE 


2185 


0E8D 


8206 


A 




LO 


ROt DATA ( R2 ) 


;TOP SFCTOR RELOCATABLE 


2186 


0F8E 


C303 


A 




ADO 


R0,TSL0C(R3J 


;TSECT ORIGIN 


2187 


0E8F 


E01D 


B 




SKG 


ROt HICORE 




2188 


0E90 


212E 


A 




JMP 


$85 




2189 


0E91 


4F09 


A 




LI 


R 3t CORE 


; EXCEEDED MEMORY SIZE 


2190 


0E92 


0200 


A 




RTS 


ERR 




2191 


0E93 


8606 


A 


$83: 


LO 


Rl t DAT A ( R2 ) 


; BASE SECTOR RELOCATABLE 






04QZ 


A 




LD 


R0,BSL0C(R3) 




2193 


0E95 


3400 


A 




R ADD 


RltRO 




2194 


0E96 


3182 


A 




RXOR 


RO, Rl 


JTEST FOR ADDRESS OVERFLOW 


2195 


0E97 


7520 


A 




SKAZ 


R1,$FF00 




2196 


0E98 


21E8 


A 




JMP 


$79A 




2197 


0E99 


757D 


A 


$83B: 


SKAZ 


R1.BIT8 




2198 


0E9A 


2101 


A 




JMP 


.+2 




2199 


0E9B 


2123 


A 




JMP 


$85 


;LEGAL RANGE — 0-127 


2200 


0E9C 


757D 


A 




SKAZ 


Rl tXRMASK 


;XR SPECIFIED? 


2201 


0E9D 


21E3 


A 




JMP 


$79A 




2202 


0E9E 


2120 


A 




JMP 


$85 




2203 


0E9F 


8606 


A 


$86: 


LD 


R 1 , DATA ( R2 ) 




2204 


0EA0 


6578 


A 




AND 


R1,D255 


;STRIP OUT REFERENCE NUMBER 


2205 


0EA1 






! 


SEARCH 


SYMBOL TABLE FOR 


MATCHING REFERENCE NUMBER 


2206 


0EA1 


4200 


A 




PUSH 


R2 


;SAVE VALUE OF R2 


2207 


0EA2 


8B00 


A 




LO 


R2, SYMT0P(R3) 



36 



GENLDR 



2208 


0EA3 


82FF 


A 


$87: 


LD 


RO,REFNR (R2 ) 


:STRIP OUT REFNR 


2209 


0EA4 


6174 


A 




AND 


R0,0255 


2210 


0EA5 


3482 


A 




RXOR 


R1,R0 


; MATCH FOUND 


2211 


0EA6 


1104 


A 




BOC 


ZR0t$88 


2212 


0EA7 


4AFB 


A 




AISZ 


R2,-5 




2213 


0EA8 


EB01 


A 




SKG 


R2,SYMBOT(R3) 




2214 


0EA9 


2111 


A 




JMP 


$89 


; SE ARCH COMPLETE - NO MATCH 


2215 


OFAA 


21F8 


A 




JMP 


$87 


; SEARCH NOT COMPLETE 


2216 


OEAB 


5700 


A 


$88: 


XCHRS 


P3 


; DATA POINTER TO R3, VECTOR 


2217 


OEAC 












;POINTER TO STACK 


2218 


OEAC 


8306 


A 




LO 


RO t DATA ( R3) 




2219 


OEAD 


7117 


A 




SKAZ 


ROt$FFOO 


; INSTRUCTION 


2220 


OEAE 


211D 


A 




JMP 


$90 


2221 


OEAF 


8200 


A 




LO 


RO, RCHAIN(R2) 


; DATA ITEM 


2222 


OEBO 


4200 


A 




PUSH 


R2 




2223 


0EB1 


8919 


A 




LD 


R2, LDADR 




2224 


0EB2 


2C55 


I 




JSR 


STORE 




•^22 5 


0 EB3 


4600 


A 




PULL 


R2 




2226 


0EB4 


82FF 


A 




LD 


ROt REFNR ( R2 ) 


; SYMBOL DEFINED 


2227 


0EB5 


1202 


A 




BOC 


PZR0,.+3 


2228 


0EB6 


2500 


A 




JMP 


a.+i 




2229 


0EB7 


OF 59 


T 


$88A: 


.WORD 


$101 




2230 


0EB8 


8512 


A 




LD 


Rl, LDADR 




2231 


0EB9 


A600 


A 




ST 


Rl, VALU(R2) 




2232 


OEBA 


25FC 


A 




JMP 


3$88A 


;REF NMBP OF EXT SYMB NOT IN SYMB TBL 


2233 


OEBB 


4F07 


A 


$89: 


LI 


R3, XREF 


2234 


OEBC 


4400 


A 




PULL 


RO 




2235 


OEBO 


02C0 


A 




RTS 


ERR 




2236 


OEBE 


8206 


A 


$84: 


LD 


ROt DATA (R2) 


;ABSOLUTE 


2237 


OEBF 


4200 


A 


$85 : 


PUSH 


R2 




2238 


OECO 


890A 


A 




LD 


R 2* LDADR 




2239 


0EC1 


2C55 


I 




JSR 


STORE 




2240 


0EC2 


4600 


A 




PULL 


R2 




2241 


0EC3 


2500 


A 




JMP 


a.+i 




2242 


0EC4 


0F5B 


T 




.WORD 


$102 




2243 


0EC5 


FFOO 


A 


$FFOO: 


. WORD 


X'FFOO 




2244 


0EC6 


0000 


A 


$DATEN: 


.WORD 


0 


; END OF RECORD 


2245 


0EC7 








CURRENT 


LOADING ADDRESS 




2246 


0EC7 


OB 04 


T 


$INPNT: 


. WORD 


INBUF 


;WILL CONTAIN ABS ADDR OF RELOC INFO 


2247 


0EC8 


0000 


A 


RELX: 


• WORD 


0 


2248 


0EC9 






• 






FOR DATA RECORD 


2249 


0EC9 


0002 


A 


02: 


• WORD 


2 




2250 


OECA 


0001 


A 


01: 


.WORD 


1 




2251 


OECB 


0000 


A 


LOAOR: 


.WORD 


0 




2252 


OECC 


82FF 


A 


$90: 


LD 


ROtREFNR (R2 ) 


; INSTRUCTION 


2253 


OECD 


1B6B 


A 




BOC 


NZP0,$98 


: SYMBOL DEFINED 


22 54 


OECE 


8306 


A 


$91 : 


LD 


ROtOATA (R3) 


;CHECK INSTRUCTION TYPE 


2255 


OECF 


5CF8 


A 




SHR 


R0,8 


;RIGHT-JUSTIFY UPPER HALF ONLY 


2256 


OEDO 


130C 


A 




BOC 


0DDt$92A 


ADDRESSING ERROR 


2257 


0ED1 


140B 


A 




BOC 


BIT1, $92A 


% ADDRESS ING ERROR 


2258 


0ED2 


E141 


A 




SKG 


R0,D127 




2259 


0ED3 


2105 


A 




JMP 


$92 


;NOT LOAD/STORE 


2260 


0ED4 


613B 


A 




AND 


RO, RMASK 


; LOAD/STORE - CLEAR R FIELD 


2261 


0ED5 


F141 


A 




SKNE 


ROtLDINST 




2262 


0EO6 


2109 


A 




JMP 


$93 


;0K 


2263 


0E07 


F140 


A 




SKNE 


RO ? STI NST 




2264 


0E08 


2107 


A 




JMP 


$93 


;0K 


2265 


0E09 


F13B 


A 


$92 : 


SKNE 


RO, JMPIN 




2266 


OEOA 


2107 


A 




JMP 


$94 


;0K 


2267 


OEDB 


F13A 


A 




SKNE 


RO, JSR IN 




2268 


OEDC 


2105 


A 




JMP 


$94 


;ok 


2269 


OEDD 


4F06 


A 


$92A: 


LI 


R3, ADDR 


ADDRESSING ERROR 


2270 


OEOE 


4400 


A 




PULL 


RO 


•.RESTORE STACK 


2271 


OEOF 


0200 


A 




RTS 


ERR 


; LOAD/STORE 


2272 


OEEO 


8131 


A 


$93: 


LD 


RO, $BIT3 


2273 


0EE1 


2101 


A 




JMP 


.+2 


;JUMP CLASS 


2274 


0EE2 


812E 


A 


$94: 


LD 


RO,$INDB 


2275 


0EE3 


6B06 


A 




OR 


RO, DATA(R3 ) 


;SET INDIRECT BIT 



37 



GENLDR 



2276 


0EE4 


4200 


A 




PUSH 


R2 


2277 


0EE5 


89E5 


A 




LD 


R2» LDADR 


2278 


0EE6 


2C55 


I 




JSR 


STORE 


2279 


0EE7 


4600 


A 




PULL 


R2 


2280 


0EE8 


82FF 


A 




LO 


ROt REFNR ( R2 ) 


2281 


0EE9 


7129 


A 




SKAZ 


RO t $1 NREF ;HAS IN D PNTR BEEN GENERATED 


2282 


OEEA 


2131 


A 




JMP 


$95 


2283 


OEEB 


4300 


A 




PUSH 


R3 ;NO-SAVE R3 


2284 


OEEC 


90 2E 


A 




LD 


R3,3IBASE 


2285 


OEED 


8703 


A 




LD 


R it BOTEXT-BASE( R3) 


2286 


OEEE 


E704 


A 




SKG 


R1,EXTLIM-BASE(R3) ;SPACE AVAILABLE 


2287 


OEEF 


211C 


A 




JMP 


$94A ;N0 - BSECT OVFLO 


2288 


OEFO 


4200 


A 




PUSH 


R2 


2289 


0EF1 


89D9 


A 




LD 


R2 * LDADR 


2290 


0EF2 


2C66 


1 




JSR 


LOAD 


2291 


0EF3 


4600 


A 




PULL 


R2 


2292 


0EF4 


6177 


A 




AND 


ROtXFFOO ;STRIP OFF DISPL FIELD 


2293 


0EF5 


3100 


A 




R ADD 


R0,R1 ♦ ADD ADDR OF IND POINTER 


2294 


0EF6 


3481 


A 




RCPY 


Rl » RO 


2295 


0EF7 


4200 


A 




PUSH 


R2 


2296 


0EF8 


89D2 


A 




LD 


R2 » LDADR 


2297 


0EF9 


2C55 


I 




JSR 


STORE 


2298 


OEFA 


4600 


A 




PULL 


R2 


2299 


OEFB 


8117 


A 




LD 


RO t $1 NREF ;SET 'POINTER GENERATED' FLAG 


2300 


OEFC 


6AFF 


A 




OR 


ROt REFNR ( R2 ) 


2301 


OEFO 


A2FF 


A 




ST 


RO t REFNR (R2 ) 


2302 


OEFE 


8600 


A 




LD 


R1,RCHAIN(R2) 


2303 


OEFF 


4000 


A 




PUSH 


RO 


2304 


OFOO 


3481 


A 




RCPY 


Rl t RO 


2305 


0F01 


42 00 


A 




PUSH 


R2 


2306 


0F02 


8B03 


A 




LD 


R2t BOTEXT-BASEt R3 ) 


2307 


0F03 


2C55 


I 




JSR 


STORE 


2308 


0F04 


4600 


A 




PULL 


R2 


2309 


OF 05 


4400 


A 




PULL 


RO 


2310 


0F06 


8703 


A 




LD 


R 1 1 BOTE XT-BASE ( R3) 


2311 


0F07 


7F03 


A 




DSZ 


B0TEXT-BASECR3) 


2312 


0F08 


4700 


A 




PULL 


R3 * RESTORE R3 


2313 


0F09 


IB4F 


A 




BOC 


NZR0t$101 ; SYMBOL DEFINED 


2314 


OPOA 


A600 


A 




ST 


R1,RCHAIN(R2) 


2315 


OFOB 


214D 


A 




JMP 


$101 


2316 


OFOC 


4700 


A 


$94A: 


PULL 


R3 ;BSECT OVERFLOW 


2317 


OFOD 


4400 


A 




PULL 


RO ; RESTORE STACK 


2318 


OFOE 


4F03 


A 




LI 


R3,BS0V 


2319 


OFOF 


02 00 


A 




RTS 


ERR 


2320 


0F10 


00F3 


A 


RMASK: 


. WORD 


X'F3 


2321 


0F11 


0400 


A 


$INOB: 


. WORD 


X»400 


2322 


OF 12 


1000 


A 


$BIT3 : 


. WORD 


X'lOOO 


2323 


0F13 


4000 


A 


$INREF: 


. WORD 


X«4000 


2324 


0F14 


007F 


A 


D127: 


• WORD 


127 


2325 


0F15 


0020 


A 


JMPIN: 


.WORD 


X«20 


2326 


0F16 


0028 


A 


JSRIN: 


• WORD 


X'28 


2327 


0F17 


0080 


A 


LDINST: 


• WORD 


X»80 


2328 


0F18 


0F17 


T 


BIT8 




LDINST 


2329 


0F18 


OOAO 


A 


STINST: 


• WORD 


X'AO 



2330 


0F19 








• PAGE 






2331 


0F19 








IND POINTER ALREADY GENERATED 


2332 


0F19 


OOFF 


A 


D255: 


• WORD 


255 




2333 


0F1A 


0300 


A 


XRMASK: 


• WORD 


X'300 




2334 


0F1B 


0025 


T 


IBASE: 


• WORD 


BASE 




2335 


0F1C 


1202 


A 


$95: 


BOC 


PZR0,$95A 


;EXT SYMBOL UNDEFINED 


2336 


0F1D 


2500 


A 




JMP 


a.+i 




2337 


0F1E 


0FA6 


T 




• WORD 


$110 




2338 


0F1F 


8A00 


A 


$95A: 


LD 


R2tRCHAIN(R2) 




2339 


0F20 


5700 


A 




XCHRS 


R3 


;VECTOR ADDR TO R3 


2340 


0F21 


E9F7 


A 


$96: 


SKG 


R2,0255 


;IF SKIP, THIS IS NOT 



36 



GENLDR 



5341 


0F22 


2101 


A 




JMP 


.+2 


7342 


0F23 


210E 


A 




JMP 


$97 


7343 


0 F24 


EB05 


A 




SKG 


R2,HIBAS(R3) 


73 44 

£ -3 " t 


0F25 


21X 


A 




JMP 


$97 


£ OtP 


0F7A 


5700 


A 


$96A: 


XCHRS 


R3 


734A 


0F27 


4200 


A 


$96B: 


PUSH 


R2 


2347 


0F28 


89A2 


A 




LD 


R2 » LD ADR 


734R 


0F29 


2C66 


I 




JSR 


LOAD 


734Q 


OF 2A 


31 81 


A 




RCPY 


ROt Rl 


73 50 


n p 7R 


4600 


A 




PULL 


R2 


7351 

C -J J L 


0F2C 


653F 


A 


$96C: 


AN0 


R1,XFF00 


73 5 7 


OF 2D 


3982 


A 




RX0R 


R2 tRl 


7353 

£ 3 3 3 


0 F2E 


3481 


A 




RCPY 


P 1»R0 


73 S4 


OF7 F 


R99R 


A 




L0 


R2» LDADR 


735^ 


0F3n 


2C 55 


I 




J SR 


STORE 


93 R A 


0 P3 1 


7177 


A 




JMP 


$101 




0F32 


2C66 


I 


$97 : 


JSR 


LOAD 


73 58 


0 F 3 3 


3281 


* 




RCPY 


R 0 « R 2 


73 59 


0F34 


1B01 


A 




B0C 


NZROt .+2 


2360 


0F35 


21EB 


A 




JMP 


$96 


236 1 


0F36 


4400 


A 




PULL 


R0 


£ ^ O *L 


0F37 


4F0A 


A 




L I 


R3 t SYST 


73 A3 


0F38 


0200 


A 




RTS 


ERR 




n P3Q 






m 
» 


INSTRUC 


TI0N REFERENCE 


7365 

*L -? XJ J 


0F39 


8200 


A 


$98 : 


LD 


ROt VALU (R2) 


2366 


0F3A 


El 09 


A 




SKG 


ROt 0127 


73 A7 


0F3B 


21 1 A 


A 




JMP 


$100 


73 AR 


OF 3T 


F 1 DC 


A 




SKG 


ROt 0255 


73 A3 


O F 3D 


C L L J 


A 




JMP 


$99 




0 F3F 


8306 


A 




LD 


R0 t DATA ( R3) 


7371 


0F3F 


610A 


A 




AND 


ROt XRMASK 


7377 


0 F40 


1580 


A 




B0C 


NEZ t $91 


2373 


0F41 


8200 


A 




LD 


ROtVALU (R2) 


2374 


0F42 


0188 


A 




SUB 


ROt LDADR 


73 75 


0F43 


01 86 


A 




SUB 


ROt Dl 


231 b 


OF 44 


E 126 


A 




SKG 


R0 t M129 


2377 


0 F45 


2188 


A 




JMP 


$91 


2378 


0F46 


E1C0 


A 




SKG 


ROt 0127 


2379 


0F47 


2102 


A 




JMP 


.+3 


2380 


0F48 


25 00 


A 




JMP 


a.+i 


23 81 


0F49 


0ECE 


T 




. WORD 


$91 


73P7 


0F4A 


A1 TF 


A 




AND 


ROt 0255 


£ J O J 


U ~ TO 




A 

M 




ADD 


R0 f $0256 


7 3 R4 

t JOT 


0 F4f 


8706 


A 




LD 


R It DATA ( R3) 


73 P5 


OF 40 


A5 1 F 

Q3iu 


A 




AND 


Pit XFFOO 


73 R A 


0 F4F 


3100 


A 




RADD 


ROtRI 


■33 P7 


O F4F 

U IT! 


34R 1 

JTO X 


A 




RCPY 


Rlt RO 


9 3R fl 


of ^ n 


qq i r 


A 




LD 


R2 ,3$A00R 


73 RQ 


O F5 1 


7T55 


I 




JSR 


STORE 




OP«^7 


7 1 OA 


A 




JMP 


$10 1 


1 


n p *%3 


R30A 


A 


$99 : 


LD 


R0tDATA(R3) 






A 1 T5 






AND 


ROt XRMASK 








A 




B0C 


NEZ t$103 A 




U r DO 


fl AOO 


A 
M 


ti 00: 


LD 


R 2 1 VALU( P 2 ) 


73Q 5 


OF57 


8706 


A 




LD 


Rlt DATA 1 R3 ) 


73 Q A 


0F5R 


71 03 


A 




JMP 


$96C 


"3 ■SOT 


O PR Q 


3 r UU 


A 


*i 0 1 : 


XCHR S 


R 3 


■33 OR 


OP R A 


OO 

HO \J\J 


A 




PULL 


R2 


9 3QQ 


0P5R 


0 1 1 1 
"ill 


A 


$ 102: 


LD 


R0t3$AD0R 


2400 


0F5C 


4801 


A 




AISZ 


RO, 1 


2401 


OF 50 


B10F 


A 




ST 


ROt 3$ ADDR 


2402 


0F5E 


4A01 


A 




AISZ 


R2. 1 


2403 


0F5F 


950F 


A 




LD 


Rlt 3$PDAT 


2404 


0F60 


5101 


A 




CAI 


Rl,l 


2405 


0F61 


3400 


A 




RADD 


R It RO 


2406 


0F62 


1501 


A 




B0C 


NEZ, .+2 


2407 


0F63 


0203 


A 




RTS 


NRML 



;L00K AT NEXT ELEMENT 
;IF SKIP, POINTER FOUND 
'.LOOK AT NEXT ELEMENT 
; DATA IX TO R3 



;THR0W AWAY BITS 8~15 



; ALL DONE 



SYMBOL DEFINED 

;LO0K AT SYMBOL VALUE 



;CHECK XR FIELD 



;XR NOT EQUAL TO ZERO 
CALCULATE REQD DISPLACEMENT FOR PC 
; ADDRESSING 



; SET XR = 1 

;THR0W AWAY OLD DISPLACEMENT 



;CHECK XR FIELD 

; ADDRESS ING ERROR 

;SET DISPL=SYMBOL VALUE 

;PICK UP DATA WORD 

; VECTOR PNTR TO R3 
; DATA PNTR TO R2 



;IF BRANCH, NOT DONE 
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GENLDR 



o /. A o 


Aril 


Q 1 AO 


A 
A 






DA atODCI 

KUt <W$r K tL 


t aao 


«r/ r 

Ur o 5 


TO Ui 


A 

A 




A T C 7 
A 1 i L 


on i 


2410 


0F66 


D 1 ^ T 

B107 


A 




ST 


R 0i a$PRE L 




A C L. "7 

Urof 




A 




PUS H 


RZ 


241 2 


0F68 


2 500 


A 




JMP 


a.+ 1 


2413 


0F69 


0E5D 


T 




• WORD 


$72 


2414 


0F6A 


0100 


A 


$0256: 


. WORD 


256 


2415 


0F6B 


FF7F 


A 


M129: 


.WORD 


-129 


2416 


0F6C 


FF00 


A 


XFF00: 


• WORD 


X'FFOO 


2417 


OF 60 


0ECB 


T 


$AD0R: 


.WORD 


LDADR 


2418 


0F6E 


0EC8 


T 


$PREL: 


.WORD 


RELX 


2419 


0F6F 


0EC6 


T 


$PDAT : 


.WORD 


$DAT EN 



i ADD AN ELEMENT TO THE STACK 
; CONTINUE 



2420 

2421 

2422 

242 3 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 



0F70 

0F70 

0F70 

0F70 

0F70 

0F71 

0P72 

0F73 

0F74 

0F75 

0F76 

0F77 

0F78 

0F79 

0F7A 

0F7B 

0F7C 

0P7D 

0F7E 

OF^F 

0F7F 

0>=80 

0F81 

0F82 

0F83 

0P84 

0F85 

0F86 

0F87 

0F88 

0F89 

0F8A 

0F8B 

0F8C 

0F8D 

OF 8D 

0F8E 

0F8F 

0F90 

0F91 

0F92 

0F93 

0F94 

0F95 

0F96 

0F97 

OF 98 

0F99 

0F9A 

0F9B 

0F9C 

0F9D 



.PAGE 



PROCESS END RECORD 



3681 
1B01 
8203 
8602 
F530 
2117 
F52C 
C302 
F52B 
C303 
A304 
4600 
8203 
4801 
A30C 

8201 
4801 
A302 
8202 
4801 
A303 
8 BOO 
82FF 
61E4 
A2FF 
4AFB 
EB01 
0202 
21F9 

8B00 
86FF 
6589 
3182 
F510 
2104 
4AFB 
EB01 
2108 
21F7 
82FF 
1B02 
4C00 
2101 
8200 
A304 
21DD 



$FND : 



$102A 



$103: 



$104: 
$105: 



$106: 



RCPY 
BOC 
LD 
LD 

SKNE 

JMP 

SKNE 

ADD 

SKNE 

ADD 

ST 

PULL 
LD 

AISZ 
ST 

RESET 
LD 

AISZ 

ST 

LD 

AISZ 

ST 

LD 

LD 

AND 

ST 

AISZ 
SKG 
RTS 
JMP 

SEARCH 

LD 

LD 

AND 

RXOR 

SKNE 

JMP 

AISZ 

SKG 

JMP 

JMP 

LD 

BOC 

L I 

JMP 

LD 

ST 

JMP 



; RELOCAT E ENTRY POINT 
; EXTERNAL SYMBOL 



R 1,R2 
NZRO, .+2 
ROt ENTYADt R2 ) 
R It ENTYP (R2) 
Rl, $EXT 
$104 

Rl, XBSREL 
R0,BSLOC(R3) 
Rl » XTSREL 
R0,TSL0C<R3) 
RO f ENTRY ( R3 ) 
R2 

RO t BOTEXT-BAS E ( R2 ) 
RO, 1 

P0,PB0T(R3) 
B/S AND T/S ORIGINS 
R0,BSMAX-BASE(R2) 
RO, 1 

R0,BSLOC(R3 ) 
RO, TSMAX-BASE (R2) 
R0,1 

R0,TSLOC(R3) 
R2, SYMTOP(R3! 
RO, REFNR(R2 ) 
RO, XFFOO 
RO, REFNR ( R2 ) 
R2,-SYMNWE 
R2,SYMB0T(R3) 
EOM 
$103 

SYMBOL TABLE FOR MATCHING REFNR 
R2,SYMT0P(R3) 



; CL EAR REFNR 'S TO ZERO 



R 1, REFNR { R2 ) 

R1,D255 

R0,R1 

R I, $ZERO 

$106 

R2,-5 

R2, SYMB0T(R3) 

$107 

$105 

RO, REFNR (R2 ) 
NZRO, .+3 
R0,0 
.+2 

R0,VALU(R2) 

R0,ENTRY(R3) 

$102A 



REFNR FROM SYMBOL TABLE 



;N0 MATCH 
;MATCH FOUND 



DONE - NO MATCH 



; SYMBOL DEFINED 

; UNDEFINED ENTRY POINT 

i-VALUE IS ENTRY POINT 
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GENLDR 



2472 


0F9E 


4F07 


A 


$107: 


LI 


R3.XREF 


2473 


0F9F 


0200 


A 




RTS 


ERR 


2474 


0FA0 


4F06 


A 


$103A: 


LI 


R3.ADDR -.ADDRESSING ERROR 


2475 


0FA1 


0200 


A 




RTS 


ERR 


2476 


0FA2 


0000 


A 


$ZERO: 


• WORD 


0 


2477 


0FA3 


0001 


A 


XBSREL: 


.WORD 


1 


2478 


0FA4 


0002 


A 


XTSREL: 


• WORD 


2 


2479 


0FA5 


0003 


A 


$EXT: 


.WORD 


3 


2480 


0FA6 






5 


PROCESS 


A DEFINED FXTERNAL SYMBOL 


2481 


0FA6 


8200 


A 


$110: 


LD 


R0,VALU(R2) ; SEARCH IND POINTER 


2482 


0FA7 


AD16 


A 




ST 


R3t $R3A 


2483 


0FA8 


9D17 


A 




LD 


R3,3$BAS2 ; GET BASE ADDRESS 


2484 


0FA9 


8B03 


A 




LD 


R2,B0TEXT-8ASE(R3) 


2485 


OFAA 


4A01 


A 




AISZ 


R2,l 


2486 


OFAB 


4000 


A 


$111: 


PUSH 


RO 


248 7 


OFAC 


4300 


A 




PUSH 


R3 


2488 


OFAD 


3B81 


A 




RCPY 


R2,R3 


2489 


OFAE 


2C66 


T 




JSR 


LOAD 


2490 


OFAF 


A10F 


A 




ST 


RO, $TMP 


2491 


OFBO 


4700 


A 




PULL 


R3 


2492 


0FB1 


4400 


A 




PULL 


RO 


2493 


0FB2 


F10C 


A 




SKNE 


ROt $TMP 


2494 


0FB3 


2107 


A 




JMP 


$112 ;FOUND POINTER 


2495 


0FB4 


4A01 


A 




AISZ 


P2,l 


2496 


0FB5 


F9B4 


A 




SKNE 


R2, $0256 


2497 


0FB6 


2101 


A 




JMP 


• +2 


2498 


0FB7 


21F3 


A 




JMP 


$111 


2499 


0FB8 


4400 


A 




PULL 


RO 


2500 


0FB9 


4F0A 


A 




LI 


R3,SYST ;POINTER NOT FOUND 


2501 


OFBA 


0200 


A 




RTS 


ERR 


2502 


OFBB 


8D02 


A 


$112: 


LD 


R3,$R3A 


2503 


OFBC 


2500 


A 




JMP 


a.+ i 


2504 


OFBD 


0F27 


T 




• WORD 


$96B 


2505 


OFBF 


OFBF 


T 


$R3A: 


. = . + 


1 


2506 


OFBF 


OFCO 


T 


$TMP: 


• = • + 


1 


2507 


OFCO 


0025 


T 


$BAS2: 


. WORD 


BASE 


2508 


OFCl 








• IF 




2509 


OFCl 








.PAGE 


'CLEAR MEMORY SUBROUTINE* 


2510 


OFCl 








.SPACE 


2 


2511 


OFCl 








ON ENTRY : RO = 0 


2512 


OFCl 






• 




Rl = NUMBER OF WORDS TO CLEAR 


2513 


OFCl 






• 




R2 = LOWEST ADDRESS TO CLEAR - ] 


2514 


OFCl 










R3 = ENTRY POINT 


2515 


OFCl 








• SPACE 


2 


2516 


OFCl 


4A01 


A 


CLEAR : 


AISZ 


R2, 1 


2517 


0FC2 


A200 


A 




ST 


R0» ( R2) 


2518 


0FC3 


49FF 


A 




AISZ 


Rlt-1 ;NOT ZEROED 


2519 


0FC4 


21FC 


A 




JMP 


.-3 ;NOT ZEROED 


2520 


0FC5 


2300 


A 




JMP 


(R3) ;NOT ZEROED 


2521 


0FC6 








•SPACE 


2 


2522 


0FC6 








• ENDIF 




2523 


0FC6 


08 80 


T 


GLORE : 


• END 


DSCLDR 



POINTERS GENERATED 

004C OA 08 T 

004D OAFA T 

004E OOOA T 

004F OADD T 

0050 09C4 T 

0051 0969 T 

0052 0B8E T 
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GENLDR 



0053 0B0L T 

0054 0B10 T 

0055 0B73 T 

0056 09CO T 

0057 0997 T 

0058 0D1F T 

0059 OAEB T 
005A 0B39 T 
005B 088B T 
005C 0A1E T 
0050 0A99 T 
005E 0AA4 T 
005F 0A9E T 

0060 0AA3 T 

0061 0A88 T 

0062 0AA7 T 

0063 0AC8 T 

0064 09F1 T 

0065 089F T 

0066 0B6B T 



****** 0 ERRORS IN ASSEMBLY ****** 



$1£ 
08C5 


T 


$1« 

0806 


T 


$1< 

080B 


T 


$1) 

08E0 


T 


$1 + 
0906 


T 


$1, 

094B 


T 


$1- 

0971 


T 


$1. 

09A6 


T 


$100A 
0F56 T 


$101A 
OF 59 T 


$102A 
0F5B T 


$102AA 
0F7B T 


$103A 
0F86 T 


$103AA 
OFAO T 


$104A 
0F80 T 


$105A 
0F8E T 


$106A 
0F97 T 


$107A 
0F9E T 


$ 10A 

0057 


T 


$11 

09D4 


T 


$110A 
0FA6 T 


$11 1A 
OFAB T 


$112A 
OFBB T 


$11A 
0058 


T 


$12A 
0D5B 


T 


$147 
0AB5 


T 


$14A 
0D61 


T 


$15 

0A2E 


T 


$18 

0AE4 


T 


$19 

OAED 


T 


$1; 

0B05 


T 


$1= 
0B40 


T 


$1? 
0B78 


T 


$1A 
0E1E 


T 


$1A5 
0A27 


T 


$IB5 
0A26 


T 


$2£ 

08CD 


T 


$2+ 

0915 


T 


$2, 

094E 


T 


$2- 

0985 


T 


$2. 

09AE 


T 


$20A 
0D66 


T 


$21 
0900 


T 


$21A 
0D68 


T 


$22 
09 F5 


T 


$2 2A 
0D6A 


T 


$23A 
006C 


T 


$24A 
006D 


T 


$25 
OA 30 


T 


$25A 
0048 


T 


$25AA 
0D51 


T 


$27 
OACF 


T 


$2= 
0B4E 


T 


$2? 
0B7F 


T 


$2A + 
090A 


T 


$2A, 

0956 


T 


$2B, 
0951 


T 


$3" 
0890 


T 


$3£ 
08CE 


T 


$3 + 
0919 


T 


$3, 

0960 


T 


$3- 

0988 


T 


$31 

09E3 


T 


$32 
09FA 


T 


$34A 
0092 


T 


$35 
0A36 


T 


$36A 
0093 


T 


$37 
0AD1 


T 


$38A 
0D9E 


T 


$3; 
OBOB 


T 


$3? 
0B88 


T 


$4" 

08A4 


T 


$4& 
08D0 


T 


$4+ 

0920 


T 


$4- 
098B 


T 


$4 OA 
0D9F 


T 


$41 

09E6 


T 


$42 
09FD 


T 


$45 
0A3E 


T 


$45A 
ODAB 


T 


$46 A 
OOBB 


T 


$47 A 

OOCO 


T 


$48A 
0DC6 


T 


$4= 
0B53 


T 


$4A + 

0931 


T 


$4A= 
0B5C 


T 


$40 A 
0E53 


T 


$5+ 

093F 


T 


$5- 

098F 


T 


$51 

09E8 


T 


$55 
0A82 


T 


$55A 
0DC9 


T 


$57 
0A04 


T 


$5= 
0B5F 


T 


$6" 
0896 


T 


$6- 

0992 


T 


$60A 
OOCO 


T 


$63A 
00D3 


T 


$65 
0A93 


T 


$65A 
0DD5 


T 


$66A 
0DD8 


T 


$67 
OA06 


T 


$6; 
0B10 


T 


$6= 
0B65 


T 


$70A 
0E55 


T 


$72A 
0E5D 


T 


$73A 
0E6A 


T 


$74A 
0E6D 


T 


$74AA 
0E70 


T 


$75 
0A86 


T 


$75A 
0E73 


T 


$76A 

0E79 


T 


$77 

0A08 


T 


$78A 
0E7B 


T 


$78AA 
0E7B 


T 


$79A 
0E7C 


T 


$79AA 
0E81 


T 


$7; 
0B15 


T 


$80 A 
0E86 


T 


$83A 
0E93 


T 


$83BA 
0E99 


T 


$84A 
OEBE 


T 


$85A 
OEBF 


T 


$86A 
0E9F 


T 


$87 
OADA 


T 


$87A 
0EA3 


T 


$88A 
OEAB 


T 


$88AA 
0EB7 


T 


$89A 
OEBB 


T 


$8; 

0B17 


T 


$80A 
0E4B 


T 


$90A 
OECC 


T 


$91 A 

OECE 


T 


$92A 
0ED9 


T 


$92AA 
OEDO 


T 


$93A 
OEEO 


T 


$94A 

0EE2 


T 


$94AA 
OFOC 


T 


$95A 
0F1C 


T 


$95AA 
0F1F 


T 
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$96A $96AA 
0F21 T 0F26 T 

$B1, $BAS2A 
096 7 T 0FC0 T 

$03A $D4A 
0D2C T 002D T 

$FLDA SINDBA 
0E28 T 0F11 T 

$PREL A $R29 
0F6E T 0AF9 T 

$SEQ05 $SQG15 
0A61 T 0A5C T 

$T1< $T2- 
0B36 T 09B8 T 

ACMD2 ACRDBU 
0006 B 0010 B 

4TBL3 ATBL4 
0000 B OOOF B 

BSEO BSHI 
0020 B 0005 A 

BSZ CARDIN 
0004 B 0A88 T 

CPAO CR 
08AF T 08DD T 

03 030 
0E29 T 002<= T 

EA EB 
0009 A 0016 A 

EOM ER 
0002 A 08BC T 

GPCS HOOOO 
0018 A 0025 B 

H001F H0020 
002E B 002F B 

H004D H0055 
0038 B 0039 B 

H0100 HOOOA 
0042 B 0043 B 

HIAES HIBAS 
0009 A 0005 A 



TNBUF INDC 
0B04 T OOOB A 

LCRD LCRDP 
0A05 T 0A01 T 

LEC01 LIMFLG 
09B0 T 0013 B 



$96BA 


$96C A 


0F27 T 


0F2C T 


$BIT3A 


J* D 1 A HI A 

$DL ANA 


0F12 T 


0031 T 


$D8 A 


$DATA 


0D2E T 


0E3F T 


$INPNA 


$1 NREA 


0EC7 T 


0F13 T 


$R2; 


$R 3A 


OBOO T 


0DE2 T 


$SQP5 


SSVROA 


0 A6 A T 


007A T 


$TI TLA 


$TMPA 


0D7E T 


OFBF T 


ADDR 


AINBUF 


0006 A 


0007 B 


AVECT 


BASE 


001 1 B 


0D25 T 


BSLO 


BSLOC 


0006 A 


0002 A 


CAR OR 


CKSM 


001 0 A 


0001 A 


CROBUF 


CRDFLG 


0BE6 T 


OOOB B 


OAT A 


DELAY 


0006 A 


FFF5 A 


EC 


ENOBUF 


0026 A 


0008 B 


ERR 


ETBL3 


0000 A 


OOOE B 


H0002 


H0004 


0026 B 


0027 B 


H0021 


H002F 


0030 B 


0031 B 


H0059 


nr. a c C 


003A B 


003B B 


H13FF 


HIFOO 


0044 B 


0045 B 


HICORE 


HIGH1 


0010 B 


0002 B 


INDEVF 


INLIM 


0012 B 


0DE3 T 


LOADR 


LDEND 


OECB T 


0B72 T 


UNIT 


LM 


0A08 T 


08D5 T 



$97A $9 8A 
0F32 T 0F39 T 

$BSPEA $CKSE5 
00F5 T 0A46 T 

$0ATE A $0BASA 
0EC6 T 0E3E T 

$L13 $LOPNA 
0A15 T 0E3D T 

$R3AA $R6 
OFBE T 0AA3 T 

$SVR1A $SVR2A 
0D7B T 007C T 

$TOPA $T SREA 
00F9 T 0DF4 T 

ANSHEX AREA 
09F1 T 0008 A 

BITO BIT1 
00E8 T 0004 A 

BSMAX BSO 
0026 T 0002 A 

CKSUM CLEAR 
0002 A 0FC1 T 

00 01 
002B T OECA T 

DELAY 1 DISC 
FFF6 A 0018 A 

ENTEQ ENTPT 
0023 B 0004 A 

EXT EXTLIM 
0E29 T 0D29 T 

H0008 H0009 
0028 B 00 29 B 

H0030 H0037 
0032 B 0033 B 

H007D H007E 
003C B 003D B 

H2020 H8000 
0046 B 0047 B 

HIGH2 HITOP 
0005 B 0007 A 



INLOC INVCMD 
ODAO T 089F T 

LDINST LDMS1 
0F17 T 0014 A 

LOABS LOAD 
OOOA A 0B6B T 



$99A $A. 
0F53 T 0999 T 

$CL, $CNTA 
0968 T 0E27 T 

$ENOA $E XT A 
0F70 T 0FA5 T 

$M7 $NOFNA 
0AC7 T 0E08 T 

$RLADA $SEQE5 
0D2A T 0A5E T 

$SVR3A $SYMBA 
0070 T 0DA3 T 

$TYPEA $VLOC= 
0E3A T 0B37 T 

ASEQ ASHI 
0022 B 0009 A 

BIT2 BIT5 
0DA2 T 0E2A T 

BSOV BSPT 

0003 A 0B71 T 

CLR CLPFLG 
08E2 T 08F8 T 

D127 D2 
0F14 T 0EC9 T 

DSCLDR DSKL 
0380 T 0000 A 

ENTRY ENTY 

0004 A 0001 B 

FLAGS GENL 
FFFF A 0001 A 

HOOOA HOOOD 
002A B 002B B 

H0039 H003A 
0034 3 0035 B 

H007F H0080 
003E B 003F B 

HAOOO HFOOO 
0048 B 0049 B 

IBASE I LA 
0F1B T 0003 A 



INVCT JMPIN 

001E B 0F15 T 

LDMS2 LDMS3 

0009 A OOOF A 

LOBAS LODREC 

0006 A 0D1F T 



$ ADDRA $B0, 
0F6D T 0966 T 

$CNTR= $D256A 
0B38 T 0F6A T 

$FF00A $FIN5 
0EC5 T 0A6F T 

$OUTA $PDAT A 
0E04 T 0F6F T 

$SEQG5 $SEQM5 
0A52 T 0A72 T 

$T1. $T11 
09B7 T 09F0 T 

$ZEROA ABS 
0FA2 T 0D2B T 

ASLO ATBL2 
OOOA A OOOC B 

BIT8 BOTEXT 
0F17 T 0D28 T 

BSREL BSSIZ 
0E3B T 0002 A 

CMD2 CORE 
0CE1 T 0009 A 

D255 D256 
0F19 T 0D30 T 

DTYP1 DTYP2 
0004 A 0005 A 

ENTYAD ENTYP 

0003 A 0002 A 

GLDRE GO 
0FC6 T 0940 T 

H0011 H0013 
002C B 002D B 

H0040 H0046 

0036 B 0037 B 

HOOCO HOOFF 
0040 B 0041 B 

HFFOO HFFEE 
004A B 004B B 

ILATYP IMP16L 
0002 A 0001 A 



JSRIN LBST 
0F16 T 0028 A 

LDMS4 LDR1 
0009 A 0D32 T 

LOLCHK LOTOP 
0A03 T 0008 A 
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GENLDR 



L0W1 




L0W2 




0000 


B 


0003 


B 


Ml 




M10 




0001 


A 


000 A 


A 


M9 




MINI 




000 9 


A 


0DE4 


T 


MSG1 




MSG11 




0BA6 


T 


OBBO 


T 


MSG 20 




MSG21 




0BC2 


T 


0BC4 


T 


NAM3 




NEZ 




FFFE 


A 


0005 


A 


ODD 




OLCHK 


0003 


A 


0A8A 


T 


PBSEC 




PNAM 




0C43 


T 


0004 


A 


PTPLO 




PTRN 




0014 


B 


OOOB 


A 


RCDL 




RCHATN 


0000 


A 


0000 


A 


READ 




READCH 


0002 


A 


09BB 


T 


REST 




RLM 




0A9E 


T 


08F9 


T 


SEOCK 


SETADR 


0009 


B 


0004 


A 


STHI 




STINST 


0000 


A 


0F18 


T 


SYM3 




SYMBOL 


OOOB 


A 


0DE9 


T 


SYMTOP 


SYST 




0000 


A 


OOOA 


A 


TEMP2 




TEMP3 




0D23 


T 


0D24 


T 


TSMAX 


TSO 




0D27 


T 


0003 


A 


VALl 




VAL2 




0006 


A 


OOOA 


A 


WDCNT 


WRITF 


001B 


B 


0007 


A 



LSTATE LTECHO 
0D21 T 0AA7 T 

M129 M2 
0F6B T 0002 A 

ML MRCDL 
0007 A 0012 A 

MSG12 MSG13 
0BB2 T 0BB4 T 

MSG22 MSG23 
0BC6 T 0BC8 T 

NLM NMBR 
08D3 T 0A7A T 

ORCDL OTS 
0048 A 08B7 T 

POA PRLIMS 
OOOC A 0B39 T 

PTRP PTTYT 
OOOC A 0A1C T 

RCRD1 RCRD1P 
0A8E T 0A02 T 

READCK READCM 
0003 A 088B T 

RLMVCT RLTH 
001F B 0E2C T 

SETPL SRELOC 
0881 T 0002 A 

STLO STLOW 
0001 A 0018 B 



SYMBOT SYMLIM 
0001 A 0E39 T 

TA TB 
0029 A 0012 A 

TGET1 TGET2 
09AF T 09B2 T 

TSOV TSREL 
0004 A 0E3C T 

VAL3 VALCNT 
OOOE A 3019 B 

XBSREL XFFOO 
0PA3 T 0F6C T 



LTECO LTGET 
OAOO T 09FF T 

M3 M4 
0003 A 0004 A 

MSI MS2 
OBCA T OBCC T 

MSG 14 MSG15 
0BB6 T 0BB8 T 

MSG3 MSG5 
0BA8 T OBAA T 

NRML NSEQ 
0003 A 0808 T 

OUTANS OUTCH 
OADD T OA IE T 

PRSYMB PT 
0B1D T 0008 A 

PZRO QCSTR 
0002 A 0007 A 

ROCARD RDCMDC 
0A24 T 09C4 T 

REFNR RELOC 
FFFF A 0E2D T 

RMASK RSEO 
OFIO T 0001 A 

SRREG START 
0AA3 T 0016 B 

STORE SWITCH 
0B73 T 0D76 T 



SYMN1 SYMN2 
00E5 T 0DE6 T 

TBL2 TBL3 
OCBA T 0CE4 T 

TGET3 TITLE 
09BF T 0001 A 

TSSIZ TTY 
0003 A 08DF T 

VALFLG VALU 
001A B 0000 A 

XREF XR MASK 
0007 A 0F1A T 



LTTYT LTTYTI 
0AC8 T 0A1D T 

M5 M6 
0005 A 0006 A 

MS3 MS4 
OBCE T 0BD2 T 

MSG16 MSG17 
OBBA T OBBC T 

MSG6 MSG7 
OBAC T OBAE T 

NUMB NZERO 
OOOA B 0005 A 

OUTHEX OUTMSG 
OAEB T 0B8E T 

PTECHO PTGET 
09BA T 09B9 T 

RO Ri 
0000 A 0001 A 

ROCMOT RDCRD 
0969 T 0A92 T 

RELPNT RELTYP 
0E2B T 0DA1 T 

RTYP SAVE 
0D20 T 0A99 T 

STATCK STATE 
0A27 T 0017 B 

SY SYl 
08BF T 08C1 T 



SYMN3 SYMNO 
0DE7 T 0DE1 T 

TBL4 TC 
ODOA T 0070 A 

TSEQ TSHI 
0021 8 0007 A 

TTY AD TTYPE 
003 8 A 0008 A 

VALUE VCTO 
OBOi T 0C36 T 

XTSREL ZRO 
0FA4 T 0001 A 



LVCT MO 
OOOD A 0000 A 

M7 M8 
0007 A 0008 A 

MS5 MSGO 
OBDO T 0B97 T 

MSG18 MSG19 
OBBE T OBCO T 

NAM1 NAM2 
FFFC A FFFD A 

NZRO OBS 
OOOB A 08B0 T 

OUTWD PBOT 
OAFA T OOOC A 

PTREQ PTRHI 
0024 B 0015 B 

R2 R3 

0002 A 0003 A 

RDRLMC RDPLMT 
09CD T 0997 T 

RELX RESET 
0EC8 T 0005 A 

SEARCH SEQ 
0DF6 T 080A T 

STATP STATUS 
0A04 T 0001 A 

SYM1 SYM2 

0003 A 0007 A 



SYMNWE SYMOV 
0005 A 0005 A 

TEMP TEMPI 
0D22 T 001C B 

TSLO TSLOC 
0008 A 0003 A 

TTYT1 UNPAK 
0A21 T 0E18 T 

VCT1 VECL 
OCAD T OOOC A 



2E3E 8585 
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o 



STTYIO 



REVISION-G 05/16/ 7k 
STTYIO 00158C 07/01/74 



1 0000 

2 0000 

3 0000 
k 0000 

5 0000 

6 0000 

7 0000 

8 0000 

9 0000 

10 0000 

11 0000 

12 0000 

i t nnnn 

A. J \JKIU\J 

lk 0000 

15 0000 

16 0000 

17 0000 

18 0000 

19 0000 

20 0000 

21 0000 

22 0000 

23 0000 
2k 0000 

25 0000 

26 0000 

27 0000 

28 0000 

29 0000 

30 onoo 

31 0000 

32 0000 

33 0000 

34 0000 

35 0000 

36 0000 

37 0000 

38 0000 

39 0000 
kO 0000 
U 0000 
k2 0000 
43 0000 
kk 0000 
kS 0000 
46 0000 
1*7 0000 
k8 0000 

49 0000 

50 0000 

51 0000 



.TITLE STTYIO/00158C 07/01/74' 

STTYIO CONTAINS THE JMP-16L/16P TELETYPE I/O DRIVERS. 
THERE ARE FIVE FUNCTIONS: 

SET PL - INITIALIZES STTYIO FOR 16L OR 16P AND 

RESETS THE TELETYPE 
INTEST - TESTS FOR TELETYPE INPUT 
PUTC - TRANSMITS A CHARACTER FROM BITS 0-7 OF 

ACCUMULATOR 0 (ACO) TO THE TELETYPE 
GETC - RECEIVES A CHARACTER FROM THE TELETYPE FOR 

TRANSFER TO BITS 0-7 OF ACO 
GECO - SAME AS GETC PLUS AN ECHO OF THE CHARACTER 



ON THE TELETYPE PRINTER 



PROGRAM USE: 



THE IMP-16L/16P USER MAY CALL THESE ROUTINES BY USING 
THE JSR@ INSTRUCTION. THE FOLLOWING ADDRESSES IN 
BASE PAGE ARE RESERVED FOR THIS PURPOSE. 



ADDRESS 
OOOB 
000C 
000D 
000E 
000F 



ROUTINE 
SETPL 
INTEST 
PUTC 
GETC 
GECO 



********** IMPORTANT NOTE ********** 

* * 

* THE USER MUST MAKE A CALL TO THE * 

* ROUTINE 'SETPL' PRIOR TO ANY * 

* CALL ON THE OTHER FOUR ROUTINES * 

* * 
************************************** 



PROGRAM LIMITATIONS AND CONVENTIONS 



1. SETPL - NONE 

2! INTEST - RETURN FROM SUBROUTINE IS AS FOLLOWS: 

RTS 1 - NO INPUT FROM TELETYPE KEYBOARD 
RTS 0 - ATTEMPT TO INPUT FROM TELETYPE 
KEYBOARD 

3. PUTC - BITS 0-7 OF ACO ARE TRANSMITTED TO TTY 

4. GETC - BITS 0-7 OF ACO RECEIVE CHARACTER FROM TTY 

5. GECO - SAME AS GETC PLUS AN ECHO OF THE CHARACTER 

ON THE TTY PRINTER 
REGISTERS AND FLAGS ARE SAVED IN ALL ROUTINES EXCEPT 
GETC AND GECO WHERE ACO IS ALTERED. THE STACK IS PUSHED 
THREE LEVELS DEEP DURING EXECUTION OF THESE ROUTINES. 



52 0000 .PAGE 

53 0000 ; 

5k 0000 0000 A RO » 0 

55 0000 0001 A Rl » 1 

56 0000 0002 A R2 - 2 

57 0000 0003 A R3 » 3 



1 



STTYIO 



58 


0000 


FFF5 


A DELAY 


3 


0FFF5 


59 


0000 


FFF6 


A DELAY1 


m 


0FFF6 


60 


0000 


FFFB 


a mrsR 


* 


OFFFB 


61 


0000 


OOOB 


A NEG 


3 


11 


62 


0000 












63 


0000 








TELETYPE DELAY COI 


6k 


0000 












65 


0000 






; THE FOLLOWING DELAY CON, 


66 


0000 






! SYSTEM SPEED, 


WHICH IS 


67 


0000 






OSCILLATOR. 




68 


0000 












69 


0000 












70 


0000 


0029 


A TA 




kl 


71 


0000 


0012 


A TB 


3 


18 


72 


0000 


0070 


A TC 




112 


73 


0000 


0009 


A EA 


S 


9 


71* 


0000 


0016 


A EB 


S 


22 


75 


0000 


0026 


A EC 




38 


76 


0000 


0038 


A TTYAD 


B 


7*8 


77 


0000 












78 


0000 












79 


0000 








TRANSFER VECTOR 


80 


0000 












81 


0000 








.ASECT 




82 


0000 


OOOB 


A 




.=0B 




83 


OOOB 


006A 


T 




.WORD 


SETPL 


8k 


OOOC 


001*3 


T 




.WORD 


INTEST 


85 


OOOD 


001U 


T 




.WORD 


PPUTC 


86 


OOOE 


0018 


T 




.WORD 


GETC 


87 


OOOF 


003F 


T 




.WORD 


PGECO 


88 


0010 










89 


0010 








.TSECT 




90 


0000 








.PAGE 




91 


oooo 












92 


0000 








TELETYPE TRANSMIT 


93 


onoo 












9k 


0000 


29UA 


A LPITC: 


JSR 


SAVE 


95 


0001 


3181 


A 




RCPY 


R0,R1 


96 


0002 


0A80 


A 




PFLG 


2 


97 


0003 


«*C30 


A 




LI 


R0,X'30 


98 


onok 


03F6 


A 




JSRI 


DELAY1 


99 


0005 


l»E09 


A 




LI 


R2,9 


100 


0006 


l*F38 


A 




LI 


R3, TTYAD 


101 


0007 


0603 


A 




ROUT 


3 


102 


0008 


03F5 


A LP1: 


JSRI 


DELAY 


103 


0009 


5829 


A 




ROL 


RO,TA 


10l| 


oonA 


l*AFF 


A 




AISZ 


R2,-l 


105 


OOOB 


2101 


A 




JMP 


.+2 


106 


OOOC 


210U 


A 




JMP 


DONE 


107 


OOOD 


59FF 


A 




ROR 


Rl,l 


108 


OOOE 


31*81 


A 




RCPY 


R1,R0 


109 


onoF 


0603 


A 




ROUT 


3 


110 


0010 


21F7 


A 




JMP 


LP1 


111 


0011 


l*CFF 


A DONE: 


LI 


R0,-1 


112 


0012 


0603 


A 




ROUT 


3 


113 


0013 


211*9 


A 




JMP 


RESTOR 


Ilk 


0011* 










115 


0011* 










116 


OOIU 


2936 


A PPUTC: 


JSR 


SAVE 


117 


0015 


2D01 


A 




JSR 


(aPPUTCA 


118 


0016 


21U6 


A 




JMP 


RESTOR 



2 



STTYIO 



119 0017 

120 0017 7E59 

121 0018 

122 0018 

123 ooi* 
12«* 0018 



A PPUTCA: .WORD 07E59 



GET CHARACTER ROUTINE 



125 0018 2932 A GFTC: 


JSR 


SAVE 


126 0019 2D02 A PGETC: 


JSR 


@ PGETCA 


127 001A A13C A 


ST 


RO, REG 


128 001B 211*1 A 


JMP 


RESTOR 


129 001C ; 






130 001C 7E3B A PGETCA: 


.WORD 


07E3B 


131 001D 


.PAGE 




132 001D 






133 001D 


GET CHARACTER ANC 


131* 001D ; 






135 001D 29 2D A LGECO: 


JSR 


SAVE 


136 001E 1*F38 A 


LI 


R3,TTYA0 


137 001F 0A80 A 


PFLG 


2 


13* 0020 0605 A 


ROUT 


5 


139 0021 l*E08 A 


LI 


R2,8 


11*0 0022 060ft A 


ROUT 


1* 


HI 0023 0M2 A 


RIN 


2 


lft2 0021* 1201 A 


BOC 


2, .+2 


11*3 0025 21FD A 


JMP 


.-2 


lftl* 0026 «*C09 A 


LI 


RO,EA 


11*5 0027 03F6 A 


JSRI 


DELAY1 


11*6 0028 58EA A 


ROR 


RO,EB 


11*7 0029 0402 A 


RIN 


2 


li*8 002A 1201 A 


BOC 


2,. +2 


11*9 002B 21FI* A 


JMP 


LGECO+3 


150 002C 0603 A LP3: 


ROUT 


3 


151 002D 03F5 A 


JSRI 


DELAY 


152 002E 5826 A 


ROL 


RO,EC 


153 002F 01*02 A 


RIN 


2 


151* 0030 610D A 


AND 


RO,MASK 


155 0031 5DFF A 


SHR 


Rl,l 


156 0032 3182 A 


RXOR 


R0,R1 


157 0033 UAFF A 


AISZ 


R2,-l 


158 0031* 21F7 A 


JMP 


LP3 


159 0055 0603 A 


ROUi 


3 


160 0036 03F5 A 


JSRI 


DELAY 


161 0037 l*CFF A 


LI 


R0,-1 


162 0038 0603 A 


ROUT 


3 


163 0039 03F5 A 


JSRI 


DELAY 


161* 003A 0605 A 


ROUT 


5 


165 003B 5DF8 A 


SHR 


R1,S 


166 003C 31*81 A 


RCPY 


R1,R0 


167 003D 21DC A 


JMP 


PGETC+1 


168 003E 






169 003E 80O0 A MASK: 


.WORD 


X'8000 


170 003F ; 






171 003F ; 






172 003F 290B A PGECO: 


JSR 


SAVE 


173 001*0 2D01 A 


JSR 


@ PGECOA 


171* 001*1 21D8 A 


JMP 


PGETC+1 


175 001*2 ; 






176 001*2 7E73 A PGECOA: 


.WORD 


07E73 


177 001*3 


.PAGE 
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STTYIO 



178 0W»3 

179 001*3 

180 001*3 

181 001*3 

182 001*3 

183 001*3 
181* 001*3 

185 OOUi* 

186 001*5 

187 0046 

188 001*7 

189 001*8 

190 00W 

191 00«*A 

192 00l*B 

193 00t*B 
191* 00l*B 

195 00l*B 

196 00l*B 

197 00l*C 

198 OOUD 

199 00t*E 

200 00l*F 

201 0050 

202 0051 

203 0052 
201* 0053 

205 0051* 

206 005U 

207 0055 

208 0056 

209 0057 

210 0057 

211 005B 

212 005C 

213 oo«;n 
211* 005D 

215 005E 

216 005F 

217 0060 

218 0061 

219 0062 

220 0063 

221 0061* 

222 0065 

223 0066 
221* 0067 
225 006* 



2907 
<*F00 
01*06 
5C08 
1201 
2111* 
2913 
0201 



A10B 
A50B 
A90B 
ADOB 
0080 
1*1*00 
A10A 
l*C01 
58FF 



A INTEST: 

A 

A 

A 

A 

A 

A 

A 



SAVE: 



A106 A 
8101 A 
0200 A 

005B T REG: 
005C T SELECT: 
0050 T FLAGS: 



TELETYPE INPUT TEST 

RTS 1 - NORMAL RETURN 
RTS 0 - ATTEMPT TO INPUT 

JSR SAVE 

LI R3,0 

RIN 6 

SHL R0,8 

BOC 2,. +2 

JMP RESTOR 

JSR RESTOR 

RTS 1 



SAVE/RESTORE REGISTERS AND FLAGS ROUTINE 

ST R0,REG 

ST R1,REG+1 

ST R2,REG+2 

ST R3,REG+3 
PUSHF 

PULL RO 

ST RO, FLAGS 

LI R0,1 

ROR RO 2 

IF SEL FLAG SET, SELECT WILL BE NEGATIVE 
ST 
LD 
RTS 



85FA 
89FA 
8DFA 
81FB 
1*000 
0280 
OAOO 
81F6 
1B01 
0A80 
81EF 
0200 



RFSTOR: 



RO, SELECT 
RO, REG 



.«.+!* 
.=.♦1 
,».+l 

LD 
LD 
LD 
LD 

PUSH 

PULLF 

SFLG 

LD 

BOC 

PFLG 

LD 

RTS 



R1,REG+1 
R2,REG+2 
R3,REG+3 
RO, FLAGS 
RO 



RO, SELECT 

NEG,.+2 

2 

RO, REG 



;IF SELECT NEGATIVE, SET SEL FLAG 



226 


0069 


.PAGE 




227 


0069 ; 






228 


0069 ; 


TELETYPE SYSTEM 


229 


0069 ; 






230 


0069 0018 A GPCS 


m 


018 


231 


0069 0760 A CPAD: 


.WORD 


0760 


232 


006A ; 






233 


006A 29E0 A SETPL: 


JSR 


SAVE 


231* 


006B 8DFD A 


LD 


R3,CPAD 


235 


006C 01*18 A 


RIN 


GPCS 


236 


006D 1*801 A 


AISZ 


R0,1 


237 


006E 2103 A 


JMP 


LINIT 


238 


006F l*F38 A RST: 


LI 


R3,TTYAD 



k 



STTYIO 



239 0070 0605 A ROUT 

2U0 0071 21EB A JMP 
2hl 0072 ; 
21*2 0072 ; 

21*3 0072 8106 A UNIT: LD 

2hk 0073 AOOD A ST 

21*5 007k 8105 A LD 

2W 0075 A1A3 A ST 

247 0076 810i» A LD 

2l*S 0077 AOOF A ST 

249 0078 21F6 A JMP 

250 0079 ; 

251 0079 0000 T LPUTCA: .WORD 

252 007A 03FB A LGETCA: JSRI 

253 007B 001D T LGECOA: .WORD 

254 007C ; 

255 007C .END 



****** o ERRORS IN ASSEMBLY ****** 



CPAD DELAY DELAY1 DONE EA EB EC FLAGS GETC GPCS 
0069 T FFF5 A FFF6 A 0011 T 0009 A 0016 A 0026 A 005C T 0018 T 0018 A 

INTEST LGECO LGECOA LGETCA LIN IT LP1 LP3 LPUTC LPUTCA MASK 
0043 T 001D T 007B T 007A T 0072 T 0008 T 002C T 0000 T 0079 T 003E T 

NEG PGECO PGECOA PGETC PGETCA PPUTC PFUTCA RO Rl R2 
OOOB A 003 F T 0042 T 0019 T 001C T 0014 T 0017 T 0000 A 0001 A 0002 A 

R3 REG RESTOR RST SAVE SELECT SET PL TA TB TC 
0003 A 0057 T 005D T 006F T 004B T 005B T 006A T 0029 A 0012 A 0070 A 

TTYAD TTYSR 
0038 A FFFB A 



1A1A D091 



5 

RESTOR 



RO, LPUTCA 
R0,0D 
RO, LGETCA 
RO, PGETC 
RO, LGECOA 
RO,OF 
RST 

LPUTC 
TTYSR 
LGECO 



5 



EDIT16 



969 


052E 


3481 


A 




RCPY 


970 


052F 


7044 


B 




SKAZ 


971 


0530 


2102 


A 




JMP 


972 


0531 


4D64 


A 




LI 


973 


0532 


0201 


A 




RTS 


974 


0533 


6432 


B 


$12: 


AND 


975 


0534 


5CFC 


A 




SHR 


976 


0535 


1103 


A 




BOC 


977 


0536 


490A 


A 




AISZ 


978 


0537 


48FF 


A 




AISZ 


979 


0538 


21FD 


A 




JMP 


980 


0539 


4900 


A 


$12A: 


AISZ 


981 


053A 


0201 


A 




RTS 


982 


053B 


2450 


B 




JMP 


983 


053C 


12F0 


A 


$13: 


BOC 


984 


053D 


0200 


A 




RTS 


985 


053E 








.PAGE 


986 


053E 








.LOCAI 


987 


053E 










988 


053E 


885B 


B 


KBREAD: 


LD 


989 


053F 


2103 


A 




JMP 


990 


0540 


885A 


B 


CRREAD: 


LD 


991 


0541 


2101 


A 




JMP 


992 


0542 


885C 


B 


PTREAD : 


LD 


993 


0543 


A81F 


B 


PTR1: 


ST 


994 


0544 


29E1 


A 




JSR 


995 


0545 


4D00 


A 




LI 


996 


0546 


A427 


B 




ST 


997 


0547 


8C01 


B 




LD 


998 


0548 


ACI6 


B 




ST 


999 


0549 


EC0C 


B 


$1: 


SKG 


1000 


054A 


2101 


A 




JMP 


1001 


0546 


210D 


A 




JMP 


1002 


054C 


2C1F 


B 




JSR 


1003 


054D 


210D 


A 




JMP 


1004 


054E 


7816 


B 




ISZ 


1005 


054F 


8C09 


B 




LD 


1006 


0550 


2910 


A 




JSR 


1007 


0551 


8C16 


B 




LD 


1008 


0552 


7C27 


B 




DSZ 


±00y 




ZIPS 


A 




JMP 


1010 


0554 


885C 


B 


$7: 


LD 


1011 


0555 


F81F 


B 




SKNE 


1012 


0556 


2958 


A 




JSR 


1013 


0557 


7822 


B 


$7A: 


ISZ 


1014 


0558 


247A 


I 




JMP 


1015 


0559 










1016 


0559 


2904 


A 


$3: 


JSR 


1017 


055A 


8C16 


B 




LD 


1018 


055B 


FC01 


B 


$3A: 


SKNE 


1019 


055C 


2458 


B 




JMP 


1020 


055D 


21F6 


A 




JMP 


1021 


055E 










1022 


055E 


2C57 


B 


BUFULL: 


JSR 


1023 


055F 


0805 


T 




.WORD 


1024 


0560 


0200 


A 




RTS 


1025 


0561 








.PAGE 


1026 


0561 










1027 


0561 


AC25 


B 


STBUF: 


ST 


1028 


0562 


4F48 


A 




LI 


1029 


0563 


4E00 


A 




LI 



1,0 

0, HFF 
$12 
1,100 
1 

1, H0F 
0,4 

ZRO,$12A 

1,10 

0,-1 

.-2 

1,0 

1 

@TYPERR 
POS,$ll 



' INPUT ROUTINES' 



2 , ADKGET 
PTR1 

2 , ADCGET 
PTR1 

2 , ADTGET 

2, MODE 
CNVRT 
1,0 

1 , COUNTl 

3, LAST 
3, SHI 

3 ,SHT39 
. + 2 
$3 

9 MODE 

$3A 

SHI 

3 , ADBUF 
STBUF 
3, SHI 
COUNT 1 
$1 

2, ADTGET 

2, MODE 
$9 

FNDTST 
MLINE 

BUFULL 
3, SHI 

3 , LAST 
@START1 
$7 

@STYPE 
FULL 



'APPEND EDIT BUFFER ROUTINES' 

3,PTBUF 

3,72 

2,0 
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EDIT16 



1030 


0564 


4C00 


A 




LI 


0 , 0 


1031 


0565 


9425 


B 


$2: 


LD 


1,§PTBUF 


1032 


0566 


7825 


B 




ISZ 


PTBUF 


1033 


0567 


F431 


B 




SKNE 


1 ,H0D 


1034 


0568 


2105 


A 




JMP 


$2A 


1035 


0569 


7443 


B 




SKAZ 


1 , HDF 


1036 


056A 


2908 


A 




JSR 


STDATA 


1037 


056B 


C82C 


B 




ADD 


2,H01 


1038 


056C 


4BFF 


A 




AISZ 


3,-1 
$2 


1039 


056D 


21F7 


A 




JMP 


1040 


056E 


1102 


A 


$2A: 


BOC 


ZRO,$2B 


1041 


056F 


4D20 


A 




LI 


1 ,X'20 


1042 


0570 


290A 


A 




JSR 


STEBUF 


1043 


0571 


4C0D 


A 


$2B: 


LI 


0,X'0D 


1044 


0572 


210A 


A 




JMP 


STEB1 


1045 


0573 












1046 


0573 


4A00 


A 


STDATA: 


AISZ 


2,0 


1047 


0574 


2101 


A 




JMP 


. + 2 


1048 


0575 


2104 


A 




JMP 


STDl 


1049 


0576 


3980 


A 




RXCH 


2,1 


1050 


0577 


C440 


B 




ADD 


1,H80 


1051 


0578 


2902 


A 




JSR 


STEBUF 


1052 


0579 


3981 


A 




RCPY 


2,1 


1053 


057A 


4EFF 


A 


STD1 : 


LI 


2,-1 


1054 


057B 












1055 


057B 


1105 


A 


STEBUF: 


BOC 


ZRO,STEB2 


1056 


057C 


3400 


A 




RADD 


1,0 


1057 


057D 


B016 


B 


STEB1: 


ST 


0,@SHI 


1058 


057E 


7816 


B 




ISZ 


SHI 


1059 


057F 


4C00 


A 




LI 


0,0 


1060 


0580 


0200 


A 




RTS 




1061 


0581 


3400 


A 


STEB2: 


RADD 


1,0 


1062 


0582 


5C08 


A 




SHL 


0,8 


1063 


0583 


0200 


A 




RTS 





1064 


0584 








.PAGE 


1065 


0584 










1066 


0584 


2C59 


B 


KBG1: 


JSR 


1067 


0585 










1068 


0585 


4C2D 


A 


KBGETC: 


LI 


1069 


0586 


2C51 


B 




JSR 


1070 


0587 


4C3E 


A 




LI 


1071 


0588 


2C51 


B 




JSR 


1072 


0589 


4C20 


A 




LI 


1073 


058A 


2C54 


B 




JSR 


1074 


058B 


8C09 


B 




LD 


1075 


058C 


AC25 


B 




ST 


1076 


058D 


4E44 


A 




LI 


1077 


058E 


2C53 


B 




JSR 


1078 


058F 


F033 


B 




SKNE 


1079 


0590 


2459 


B 




JMP 


1080 


0591 


2101 


A 




JMP 


1081 


0592 


2C53 


B 


$6: 


JSR 


1082 


0593 


2923 


A 




JSR 


1083 


0594 


21EF 


A 




JMP 


1084 


0595 


21FC 


A 




JMP 


1085 


0596 


2101 


A 




JMP 


1086 


0597 


2C4F 


B 




JSR 


1087 


0598 


4A04 


A 




AISZ 


1088 


0599 


4C20 


A 


$10: 


LI 


1089 


059A 


A300 


A 


$10A: 


ST 


1090 


059B 


4B01 


A 




AISZ 


1091 


059C 


4AFF 


A 




AISZ 


1092 


059D 


21FC 


A 




JMP 


1093 


059E 


0201 


A 




RTS 



'KEY BOARD INPUT ROUTINE' 
GTRISTR 

0,X'2D ; OUTPUT '-' 

@SPUTC 

0,X'3E ; OUTPUT '>' 

@SPUTC 

0,X'20 ; OUTPUT 2 SPACES 

@S02CH 

3 , ADBUF 

3, PTBUF 

2,68 

@SGECO 

0,H11 ; TEST FOR CNTRL/Q 

CTRISTR 

. + 2 

@SGECO 
TTYINP 
KBG1 
$6 
. + 2 

§SCRLF 
2,4 

0,X'20 

0,(3) 

3,1 

2,-1 

$10A 

1 
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EDIT16 



1094 


059F 








.PAGE 


'PAPER TAPE INPUT ROUTINE' 


1095 


059F 














1096 


059F 


8C09 


B 


PTGETC: 


LD 


3 , ADBUF 




1097 


05A0 


AC 25 


B 




ST 


3 ,PTBUF 




1098 


05A1 


4E48 


A 




LI 


2,72 




1099 


05A2 


2C52 


B 




JSR 


@SGETC 




1100 


0 5 A3 


F033 


B 




SKNE 


0,H11 


; TEST FOR 


1101 


05A4 


210A 


A 




JMP 


$9 




1102 


05A5 


2101 


A 




JMP 


. + 2 




1103 


05A6 


2C52 


B 


$8: 


JSR 


@SGETC 




1104 


05A7 


290F 


A 




JSR 


TTYINP 




1105 


05A8 


21AE 


A 




JMP 


$7A 




1106 


05A9 


21FC 


A 




JMP 


$8 




1107 


05AA 


21EE 


A 




JMP 


$10 




1108 


05AB 


2C52 


B 


$8A: 


JSR 


§SGETC 




1109 


05 AC 


F031 


B 




SKNE 


0,H0D 




1110 


05 AD 


0201 


A 




RTS 


1 




1111 


05AE 


21FC 


A 




JMP 


$8A 




1112 


05AF 














1113 


05AF 


2C57 


B 


$9: 


JSR 


@STYPE 




1114 


05B0 


07CC 


T 




• WORD 


TPAK2 




1115 


05B1 


4C07 


A 




LI 


0,7 




1116 


05B2 


4D0F 


A 




LI 


1,15 




1117 


05B3 


2C51 


B 


$9A: 


JSR 


§SPUTC 




1118 


05B4 


49FF 


A 




AISZ 


1,-1 




1119 


05B5 


21FD 


A 




JMP 


$9A 




1120 


05B6 


244F 


B 




JMP 


@SCRLF 




1121 


0537 








.PAGE 


'TELETYPE INPUT 


TEST ' 


1122 


05B7 






t 








1123 


05B7 


F02F 


B 


TTYINP: 


SKNE 


0,H09 


; TEST FOR 


1124 


05B8 


210F 


A 




JMP 


$4 




1125 


05B9 


F031 


B 




SKNE 


0 ,H0D 


; TEST FOR 


1126 


05BA 


0202 


A 




RTS 


2 




1127 


05BB 


F033 


B 




SKNE 


0,H11 


; CTRL/Q 


1128 


05BC 


0200 


A 




RTS 






1129 


05BD 


F03E 


B 




SKNE 


0,H5F 


; TEST FOR 


1130 


05BE 


2125 


A 




JMP 


$5 




1131 


05BF 


E03E 


B 




SKG 


0,H5F 


; TEST FOR 


1132 


05C0 


E035 


B 




SKG 


0,H1F 


ASCII 20 


1133 


05C1 


0201 


A 




RTS 


1 




1134 


05C2 


A300 


A 




ST 


0,(3) 




1135 


05C3 


4B01 


A 




AISZ 


3,1 




1136 


05C4 


7825 


B 




ISZ 


PTBUF 




1137 


05C5 


4AFF 


A 




AISZ 


2,-1 




1138 


05C6 


0201 


A 




RTS 


1 




1139 


05C7 


0203 


A 




RTS 


3 




1140 


05C8 






; 








1141 


05C8 






; 


HORIZONTAL TAB ANALYSIS 




1142 


05C8 






; 








1143 


05C8 


3C81 


A 


$4: 


RCPY 


3,0 




1144 


05C9 


D009 


B 




SUB 


0 , ADBUF 




1145 


05CA 


4801 


A 




AISZ 


0,1 




1146 


05CB 


E00F 


B 




SKG 


0,TAB1 




1147 


05CC 


2105 


A 




JMP 


$4A 




1148 


05CD 


E010 


B 




SKG 


0,TAB2 




1149 


05CE 


2105 


A 




JMP 


$4B 




1150 


05CF 


E011 


B 




SKG 


0,TAB3 




1151 


05D0 


2105 


A 




JMP 


$4C 




1152 


05D1 


0201 


A 




RTS 


1 




1153 


05D2 


D00F 


B 


$4A: 


SUB 


0,TAB1 




1154 


05D3 


2103 


A 




JMP 


$4D 




1155 


05D4 


D010 


B 


$4B: 


SUB 


0,TAB2 
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EDIT16 



1156 


05D5 


2101 


A 




JMP 


$4D 


1157 


05D6 


D011 


B 


$4C: 


SUB 


0,TAB3 


1158 


05D7 


48FF 


A 


$4D: 


AISZ 


0,-1 


1159 


05D8 


A028 


B 




ST 


0,COUNT2 


1160 


05D9 


4C20 


A 




LI 


0,X'20 


1161 


05DA 


845B 


B 




LD 


1 , ADKGET 


1162 


05DB 


F41F 


B 


$4E: 


SKNE 


1 ,MODE 


1163 


05DC 


2C51 


B 




JSR 


§SPUTC 


1164 


05DD 


A300 


A 




ST 


0,(3) 


1165 


05DE 


4B01 


A 




AISZ 


3,1 


1166 


05DF 


7825 


B 




ISZ 


PTBUF 


1167 


05E0 


4AFF 


A 




AISZ 


2,-1 


1168 


05 El 


7828 


B 




ISZ 


COUNT 2 


1169 


05E2 


21F8 


A 




JMP 


$4E 


1170 


05E3 


0201 


A 




RTS 


1 


1171 


05E4 












1172 


05E4 








BACK ARROW INPUT AN J 


1173 


05E4 












1174 


05E4 


FC09 


B 


$5: 


SKNE 


3 ,ADBUF 


1175 


05E5 


0201 


A 




RTS 


1 


1176 


05E6 


4BFF 


A 




AISZ 


3.-1 


1177 


05E7 


7C25 


B 




DSZ 


PTBUF 


1178 


05E8 


4AFF 


A 




AISZ 


2.-1 


1179 


05E9 


0201 


A 




RTS 


1 


1180 


05EA 


0203 


A 




RTS 


3 


1181 


05EB 








. PAGE 


'CARD READER 


1182 


05EB 












1183 


05EB 


2C57 


B 


INERR: 


JSR 


eSTYPE 


1184 


05EC 


07F3 


T 




.WORD 


CRPK1 


1185 


05ED 


0200 


A 




RTS 




1186 


05EE 


0605 


A 


CRESET: 


ROUT 


RES 


1187 


05EF 


0200 


A 




RTS 




1188 


05P0 






9 






1189 


05F0 


4F10 


A 


CRGETC: 


LI 


3 ,CRADDR 


1190 


05F1 


8009 


B 




LD 


0 , ADBUF 


1191 


05F2 


0602 


A 


RDCR: 


ROUT 


STNDRD 


1192 


05F3 


1C03 


A 




BOC 


POA, WTLOOP 


1193 


05F4 


2C4D 


B 




JSR 


@SINTST 


1194 


05F5 


21F8 


A 




JMP 


CRESET 


1195 


05F6 


21 FB 


A 




JMP 


RDCR 


1196 


05F7 


0401 


A 


WTLOOP : 


RIN 


STATUS 


1197 


05F8 


2C4E 


B 




JSR 


3SRESET 


1198 


05F9 


2C4D 


B 




JSR 


@SINTST 


1199 


05FA 


21F3 


A 




JMP 


CRESET 


1200 


05FB 


7041 


B 




SKAZ 


0,HC0 


1201 


05FC 


21EE 


A 




JMP 


INERR 


1202 


05FD 


5CFE 


A 




SHR 


0,2 


1203 


05FE 


14F8 


A 




BOC 


BIT1 , WTLOOP 


1204 


05FF 


8C09 


B 


CONV: 


LD 


3, ADBUF 


1205 


0600 












1206 


0600 








HOLLERITH TO ASCII 


1207 


0600 












1208 


0600 


4D48 


A 


CHTOA: 


LI 


1,72 


1209 


0601 


8300 


A 


CHT01 : 


LD 


0, (3) 


1210 


0602 


890E 


A 




LD 


2 ,TADDR 


1211 


0603 


F200 


A 


CHT02: 


SKNE 


0,(2) 


1212 


0604 


2105 


A 




JMP 


$12A 


1213 


0605 


F90C 


A 




SKNE 


2 , BADDR 


1214 


0606 


2102 


A 




JMP 


$12 


1215 


0607 


4A01 


A 




AISZ 


2,1 


1216 


0608 


21FA 


A 




JMP 


CHT02 



; READ NEXT CARD 



BRANCH IF BUSY 



; LOAD HOLLERITH CHARACTER 
•COMPARE WITH HOLLERITH TABLE 
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1217 


0609 












1218 


0609 


8907 


A 


$12: 


LD 


2, TADDR 


1219 


060A 


D906 


A 


$12A: 


SUB 


2, TADDR 


1220 


060B 


4A20 


A 




AISZ 


2,X'20 


1221 


060C 


AB00 


A 




ST 


2,(3) 


1222 


060D 


4B01 


A 




AISZ 


3,1 


1223 


060E 


49FF 


A 




AISZ 


1,-1 


1224 


060F 


21F1 


A 




JMP 


CHT01 


1225 


0610 


0201 


A 




RTS 


1 


1226 


0611 












1227 


0611 


0778 


T 


TADDR: 


.WORD 


BEGHOL 


1228 


0612 


07B8 


T 


BADDR: 


.WORD 


BEGHOL+64 


1229 


0613 












1230 


0613 


8809 


B 


PCRGET: 


LD 


2 , ADBUF 


1231 


0614 


2D07 


A 


PCRG1 : 


JSR 


@CRP 


1232 


0615 


2103 


A 




JMP 


TERR 


1233 


0616 


2C4D 


B 




JSR 


flSINTST 


1234 


0617 


0200 


A 




RTS 


0 


1235 


0618 


21E6 


A 




JMP 


CONV 


1236 


0619 












1237 


0619 


2C4D 


B 


TERR: 


JSR 


@SINTST 


1238 


061A 


0200 


A 




RTS 


0 


1239 


061B 


21F8 


A 




JMP 


PCRG1 


1240 


061C 












1241 


061C 


7FD3 


A 


CRP: 


.WORD 


07FD3 


1242 


061D 








. PAGE 


'OUTPUT BUFFER 


1243 


061D 








. LOCAL 




1244 


061D 












1245 


061D 


8C04 


B 


PUNCHL: 


LD 


3 , ADPLN2 


1246 


061E 


2104 


A 




JMP 


PRI 2 


1247 


061F 


2102 


A 


TYPEL: 


JMP 


PRI1 


1248 


0620 


885D 


B 


PRINTL: 


LD 


2 , ADHSP 


1249 


0621 


A80A 


B 




ST 


2 , DEVICE 


1250 


0622 


8C03 


B 


PRI1: 


LD 


3 , ADPLN 


1251 


0623 


AC1F 


B 


PRI2: 


ST 


3 ,MODE 


1252 


0624 


8804 


B 




LD 


2 , ADPLN 2 


1253 


0625 


F81F 


B 




SKNE 


2 ,MODE 


1254 


0626 


2101 


A 




JMP 


. + 2 


1255 


0627 


2103 


A 




JMP 


$8B 


1256 


0628 


2C57 


B 




JSR 


@STYPE 


1257 


0629 


07E0 


T 




.WORD 


TPAK4 


1258 


062A 


2C52 


B 


$8A: 


JSR 


@SGETC 


1259 


062B 


2976 


A 


$8B: 


JSR 


SETLHR 


1260 


062C 


2C1F 


B 


$8C: 


JSR 


@MODE 


1261 


062D 


FC18 


B 




SKNE 


3 ,RHI 


1262 


062E 


2101 


A 




JMP 


. + 2 


126 3 


062F 


21FC 


A 




JMP 


$8C 


1264 


0630 


8804 


B 




LD 


2, ADPLN 2 


1265 


0631 


F81F 


B 




SKNE 


2, MODE 


1266 


0632 


2101 


A 




JMP 


. + 2 


1267 


0633 


21F7 


A 




JMP 


$8B 


1268 


0634 


9002 


B 




LD 


0,@PTRBUF 


1269 


0635 


F031 


B 




SKNE 


0,H0D 


1270 


0636 


21F3 


A 




JMP 


$8A 


1271 


0637 


21F3 


A 




JMP 


$8B 


1272 


0638 












1273 


0638 








LIST FIRST/LAST ROUTINE 


1274 


0638 












1275 


0638 


2C67 


I 


LISTF: 


JSR 


RNGZRO 


1276 


0639 


8C00 


B 




LD 


3, FIRST 


1277 


063A 


FC01 


B 




SKNE 


3, LAST 



;SAVE CONVERTED VALUE 



; ADDRESS OF HOLLERITH TABLE 
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1278 


063B 


210D 


A 




JMP 


NOFILE 


1279 


063C 


2913 


A 


$8: 


JSR 


PUTLN 


1280 


063D 


2458 


B 




JMP 


@ START 1 


1281 


063E 






> 






1282 


063E 


2C67 


I 


LISTL: 


JSR 


RNGZRO 


1283 


063F 


8C01 


B 




LD 


3, LAST 


1284 


0640 


FC00 


B 




SKNE 


3 , FIRST 


1285 


0641 


2107 


A 




JMP 


NOFILE 


1286 


0642 


4C0D 


A 




LI 


0 ,X'0D 


1287 


0643 


4BFF 


A 


$9: 


AISZ 


3,-1 


1288 


0644 


F3FF 


A 




SKNE 


0,-1(3) 


1289 


0645 


21F6 


A 




JMP 


$8 


1290 


0646 


FC00 


B 




SKNE 


3 , FIRST 


1291 


0647 


21F4 


A 




JMP 


$8 


1292 


0648 


21FA 


A 




JMP 


$9 


1293 


0649 












1294 


0649 


8C01 


B 


NOFILE: 


LD 


3 , LAST 


1295 


064A 


FC00 


B 




SKNE 


3, FIRST 


1296 


064B 


2101 


A 




JMP 


. + 2 


1297 


064C 


247B 


I 




JMP 


NUM3 


1298 


064D 


2C57 


B 




JSR 


@STYPE 


1299 


064E 


07D7 


T 




.WORD 


TPAK3 


1300 


064F 


245E 


B 




JMP 


@RINIT1 


1301 


0650 








.PAGE 


'OUTPUT LINE ROUTINE' 


1302 


0650 






9 






1303 


0650 


4E04 


A 


PUTLN : 


LI 


2,4 


1304 


0651 


8700 


A 




LD 


1, (3) 


1305 


0652 


5904 


A 


SI: 


ROL 


1,4 


1306 


0653 


7432 


B 




SKAZ 


1 ,H0F 


1307 


0654 


2102 


A 




JMP 


. + 3 


1308 


0655 


4AFF 


A 




AISZ 


2,-1 


1309 


0656 


21FB 


A 




JMP 


$1 


1310 


0657 


A827 


B 




ST 


2,COUNTl 


1311 


0658 


4AFC 


A 




AISZ 


2,-4 


1312 


0659 


2101 


A 




JMP 


. + 2 


1313 


065A 


2104 


A 




JMP 


$2 


1314 


065B 


4C20 


A 




LI 


0,X'20 


1315 


065C 


2C0A 


B 




JSR 


^DEVICE 


1316 


065D 


4A01 


A 




AISZ 


2,1 


1317 


065E 


21FD 


A 




JMP 


.-2 


1318 


065F 


3481 


A 


$2: 


RCPY 


1,0 


1319 


0660 


5904 


A 




ROL 


1,4 


1320 


0661 


6032 


B 




AND 


0,H0F 


1321 


0662 


4830 


A 




AISZ 


0,X'30 


1322 


0663 


2C0A 


B 




JSR 


^DEVICE 


1323 


0664 


7C27 


B 




DSZ 


COUNT 1 


1324 


0665 


21F9 


A 




JMP 


$2 


1325 


0666 


4C20 


A 




LI 


0,X'20 


1326 


0667 


2C55 


B 




JSR 


@S03CH 


1327 


0668 


4E41 


A 




LI 


2,65 


1328 


0669 


2101 


A 




JMP 


. + 2 


1329 


066A 


4E00 


A 


PUTLN2: 


LI 


2,0 


1330 


066B 


4B01 


A 




AISZ 


3,1 


1331 


066C 


8300 


A 


$4 : 


LD 


0, (3) 


1332 


066D 


4B01 


A 




AISZ 


3,1 


1333 


066E 


F031 


B 




SKNE 


0,H0D 


1334 


066F 


244F 


B 




JMP 


GSCRLF 


1335 


0670 


1201 


A 




BOC 


POS, .+2 


1336 


0671 


291B 


A 




JSR 


REPEAT 


1337 


0672 


5808 


A 




ROL 


0,8 


1338 


0673 


A020 


B 




ST 


0 , RGFLG 
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1339 


0674 


6044 


B 




AND 


1340 


0675 


2C0A 


B 




JSR 


1341 


0676 


2C4E 


B 




JSR 


1342 


0677 


2C4D 


B 




JSR 


1343 


0678 


2123 


A 




JMP 


1344 


0679 


4AFF 


A 




AISZ 


1345 


067A 


2105 


A 




JMP 


1346 


067B 


8300 


A 


$5: 


LD 


1347 


067C 


4B01 


A 




AISZ 


1348 


067D 


F031 


B 




SKNE 


1349 


067E 


244F 


B 




JMP 


1350 


067F 


21 FB 


A 




JMP 


1351 


0680 






i 




1352 


0680 


8020 


B 


$7: 


LD 


1353 


0681 


1201 


A 




BOC 


1354 


0682 


290A 


A 




JSR 


1355 


0683 


5808 


A 




ROL 


1356 


0684 


2100 


A 




JMP 


1357 


0685 


6044 


B 




AND 


1358 


0686 


2C0A 


B 




JSR 


1359 


0687 


2C4E 


B 




JSR 


1360 


0688 


2C4D 


B 




JSR 


1361 


0689 


2112 


A 




JMP 


1362 


068A 


4AFF 


A 




AISZ 


1363 


068B 


21E0 


A 




JMP 


1364 


068C 


21EE 


A 




JMP 


1365 


068D 










1366 


068D 


5808 


A 


REPEAT: 


ROL 


1367 


068E 


A020 


B 




ST 


1368 


068F 


603F 


B 




AND 


1369 


0690 


3181 


A 




RCPY 


1370 


0691 


4C20 


A 




LI 


1371 


0692 


2C0A 


B 


REP1: 


JSR 


1372 


0693 


2C4E 


B 




JSR 


1373 


0694 


2C4D 


B 




JSR 


1374 


0695 


2106 


A 




JMP 


1375 


0696 


4AFF 


A 




AISZ 


1376 


0697 


2101 


A 




JMP 


1377 


0698 


0209 


A 




RTS 


1378 


0699 


49FF 


A 




AISZ 


1379 


069A 


21F7 


A 




JMP 


1380 


069B 


0208 


A 




RTS 


1381 


069C 










1382 


069C 


8004 


B 


RETURN : 


LD 


1383 


069D 


F01F 


B 




SKNE 


1384 


069E 


2C52 


B 




JSR 


1385 


069F 


8051 


B 




LD 


1386 


06A0 


A00A 


B 




ST 


1387 


06A1 


2141 


A 




JMP 


1388 


06A2 








.PAGE 


1389 


06A2 










1390 


06A2 


2956 


A 


SETLHR: 


JSR 


1391 


06A3 


290F 


A 


SET1: 


JSR 


1392 


06A4 


2479 


I 




JMP 


1393 


06A5 


8017 


B 




LD 


1394 


06A6 


1507 


A 




BOC 


1395 


06A7 


8C01 


B 




LD 


1396 


06A8 


AC18 


B 




ST 


1397 


06A9 


8C00 


B 




LD 


1398 


06AA 


FC01 


B 




SKNE 


1399 


06AB 


219D 


A 




JMP 



0 , HFF 

^DEVICE 

GSRESET 

3SINTST 

RETURN 

2,-1 

$7 

0,(3) 

3,1 

0,H0D 

@SCRLF 

$5 

0 , RGFLG 

POS, .+2 

REPEAT 

0.8 

. + 1 

0 ,HFF 

^DEVICE 

@SRESET 

@SINTST 

RETURN 

2,-1 

$4 

$5 

0,8 

0 , RGFLG 

0,H7F 

0,1 

0, X'20 
@DEVICE 
@SRESET 
9SINTST 
RETURN 
2,-1 

. + 2 
9 

1, -1 
REP1 
8 

0,ADPLN2 
0 , MODE 
@SGETC 
0 , SPUTC 
0, DEVICE 
REINIT 



'SET LO AND HI RANGE' 

EXPZRO 

STLOHI 

NUMBER 

0,RLO 

NZRO,SET2 

3, LAST 

3,RHI 

3, FIRST 

3, LAST 

NOFILE 



23 



EDIT16 



1400 06AC 7822 B ISZ 

1401 06AD 0200 A RTS 

1402 06AE 2916 A SET2: JSR 

1403 06AF 21F3 A JMP 

1404 06B0 7822 B ISZ 

1405 06B1 8C17 B LD 

1406 06B2 0200 A RTS 

1407 06B3 ; 

1408 06B3 4C00 A STLOHI: LI 

1409 06B4 4E02 A LI 

1410 06B5 A017 B SETL01: ST 

1411 06B6 9002 B LD 

1412 06B7 F031 B SKNE 

1413 06B8 0200 A RTS 

1414 06B9 F049 B SKNE 

1415 06BA 2104 A JMP 

1416 06BB A018 B ST 

1417 06BC 7802 B ISZ 

1418 06BD 4AFF A AISZ 

1419 06BE 21F6 A JMP 

1420 06BF 7802 B STL02: ISZ 

1421 06C0 0201 A RTS 

1422 06C1 .PAGE 

1423 06C1 ; 

1424 06C1 290B A SRCHLN : JSR 

1425 06C2 2916 A JSR 

1426 06C3 AC18 B SLNl: ST 

1427 06C4 0201 A RTS 

1428 06C5 ; 

1429 06C5 2907 A SRCHRG: JSR 

1430 06C6 2912 A SRG1 : JSR 

1431 06C7 FC01 B SKNE 

1432 06C8 21FA A JMP 

1433 06C9 8300 A LD 

1434 06CA E018 B SKG 

1435 06CB 21FA A JMP 

1436 06CC 21F6 A JMP 

1437 06CD ; 

1438 06CD 8C00 B SRCHLO: LD 

1439 06CE FC01 B SL01 : SKNE 

1440 06CF 246D I JMP 

1441 06D0 8300 A LD 

1442 06D1 E017 B SKG 

1443 06D2 F017 B SKNE 

1444 06D3 2102 A JMP 

1445 06D4 2904 A JSR 

1446 06D5 21F8 A JMP 

1447 06D6 AC17 B SL02: ST 

1448 06D7 7822 B ISZ 

1449 06D8 0200 A RTS 

1450 06D9 .PAGE 

1451 06D9 ? 

1452 06D9 4B01 A ANDH0D: AISZ 

1453 06DA 8300 A ANDl : LD 

1454 06DB 4B01 A AISZ 

1455 06DC 48F3 A AISZ 

1456 06DD 21FC A JMP 

1457 06DE 0200 A RTS 

1458 06DF ; 

1459 06DF 6032 B ANDH0A: AND 

1460 06E0 48F6 A AISZ 



FNDTST 

SRCHRG 
SET1 
FNDTST 
3,RLO 



0,0 

2,2 

0,RLO 

0 , @ PTRBUF 

0 ,H0D 

0 , HFFFF 

STL02 

0,RHI 

PTRBUF 

2,-1 

SETL01 

PTRBUF 

1 



'SEARCH ROUTINES' 

SRCHLO 
ANDH0D 
3,RHI 
1 

SRCHLO 

ANDH0D 

3, LAST 

SLNl 

0,(3) 

0,RHI 

SRG1 

SLNl 

3, FIRST 

3 , LAST 

NOFILE 

0,(3) 

0,RLO 

0,RLO 

SL02 

ANDH0D 

SL01 

3 ,RLO 

FNDTST 



3,1 

0,(3) 

3,1 

0,-X'0D 
ANDl 



0,H0F 
0,-X'0A 
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1461 06E1 4400 A PULL 

1462 06E2 0200 A RTS 

1463 06E3 .PAGE 

1464 06E3 ; 

1465 06E3 290B A REINIT: JSR 

1466 06E4 4D10 A RNIT1 : LI 

1467 06E5 4400 A PULL 

1468 06E6 49FF A AISZ 

1469 06E7 21FD A JMP 

1470 06E8 2458 B JMP 

1471 06E9 ; 

1472 06E9 2912 A WAITCR: JSR 

1473 06EA 48F3 A WAITl: AISZ 

1474 06EB 21FD A JMP 

1475 06EC 2913 A WAIT2: JSR 

1476 06ED 080D T .WORD 

1477 06EE 21F5 A JMP 

1478 06EF 

1479 06EF 4C20 A SPATSK: LI 

1480 06F0 291B A JSR 

1481 06F1 4C2A A LI 

1482 06F2 2918 A JSR 

1483 06F3 4C0D A CRLF: LI 

1484 06F4 2C0A B JSR 

1485 06F5 4C0A A LI 

1486 06F6 240A B JMP 

1487 06F7 

1488 06F7 8024 B RNGZRO: LD 

1489 06F8 15F3 A BOC 

1490 06F9 8021 B EXPZRO: LD 

1491 06FA 15F1 A BOC 

1492 06FB 0200 A RTS 

1493 06FC .PAGE 

1494 06FC ; 

1495 06FC 2C53 B GETCO: JSR 

1496 06FD F033 B SKNE 

1497 06FE 21E4 A JMP 

1498 06FF 0200 A RTS 

1499 0700 ; 

1500 0700 4700 A TYPE: PULL 

1501 0701 4300 A PUSH 

1502 0702 8F00 A LD 

1503 0703 8300 A TYP1: LD 

1504 0704 4B01 A AISZ 

1505 0705 1121 A BOC 

1506 0706 5808 A ROL 

1507 0707 2C51 B JSR 

1508 0708 5808 A ROL 

1509 0709 2C51 B JSR 

1510 070A 21F8 A JMP 

1511 070B ; 

1512 070B 2C0A B 03CH : JSR 

1513 070C 2C0A B 02CH: JSR 

1514 070D 240A B JMP 

1515 070E .PAGE 

1516 070E j 

1517 070E 2907 A HSPRT: JSR 



0 



'REINITIALIZATION ROUTINES' 

SPATSK 

1,16 

0 

1,-1 
.-2 

@START1 

GETCO 

0,-X'0D 

.-2 

TYPE 

ERROR 

RNIT1 

0,X'20 

02CH 

0,X'2A 

03CH 

0,X'0D 

^DEVICE 

0,X'0A 

@DEVICE 

0 , RNGTST 
NZR0,WAIT2 
0 , EXPTST 
NZRO,WAIT2 



'SPECIAL I/O ROUTINES' 
@SGECO 

0,H11 ; CNTRL/Q 

REINIT 



3 
3 

3,(3) 
0,(3) 
3,1 

ZRO,RETl 
0,8 

espuTc 

0,8 

@sputc 

TYPl 

^DEVICE 
^DEVICE 
^DEVICE 



'HIGH SPEED PRINTER ROUTINE ' 
SAVE 
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1518 


070F 


4F48 


A 


LI 


3,HSPAD 


1519 


0710 


0607 


A 


ROUT 


7 


1520 


0711 


1C01 


A 


BOC 


POA, .+2 


1521 


0712 


21FD 


A 


JMP 


.-2 


1522 


0713 


0401 


A 


RIN 


STATUS 


1523 


0714 


1406 


A 


BOC 


BIT1 r RESTOR 


1524 


0715 


21FD 


A 


JMP 


.-2 



1525 


0716 






1526 


0716 






1527 


0716 


A019 


B 


1528 


0717 


A41A 


B 


1529 


0718 


A81B 


B 


1530 


0719 


AC1C 


B 


1531 


071A 


0200 


A 


1532 


071B 






1533 


071B 


8019 


B 


1534 


071C 


841A 


B 


1535 


071D 


881B 


B 


1536 


071E 


8C1C 


B 


1537 


071F 


0200 


A 


1538 


0720 






1539 


0720 






1540 


0720 






1541 


0720 






1542 


0720 






1543 


0720 






1544 


0720 






1545 


0720 


29F5 


A 


1546 


0721 


4F00 


A 


1547 


0722 


0406 


A 


1548 


0723 


5C08 


A 


1549 


0724 


1201 


A 


1550 


0725 


21F5 


A 


1551 


0726 


29F4 


A 


1552 


0727 


0201 


A 


1553 


0728 






1554 


0728 






1555 


0728 






1556 


0728 


29ED 


A 


1557 


0729 


4F38 


A 


1558 


072A 


0605 


A 


1559 


072B 


21EF 


A 


1560 


072C 






1561 


072C 






1562 


072C 






1563 


072C 






1564 


072C 


29E9 


A 


1565 


072D 


03FB 


A 


1566 


072E 


603F 


B 


1567 


072F 


A019 


B 


1568 


0730 


21F9 


A 


1569 


0731 






1570 


0731 


29E4 


A 


1571 


0732 


2D01 


A 


1572 


0733 


21FA 


A 


1573 


0734 


7E3B 


A 



INTEST : 



RET1 : 



RESET: 



RESET2: 



GETC: 



PGETC: 



.PAGE 


' 


ST 


0 


ST 


1 


ST 


2 


ST 


3 


RTS 




LD 


0 


LD 


1 


LD 


2 


LD 


3 


RTS 




.PAGE 





'SAVE/RESTORE REGISTERS ROUTINE 



TELETYPE INTERRUPT TEST 

RTS 0 - INTERRUPT 
RTS 1 - NORMAL RETURN 



JSR 

LI 

RIN 

SHL 

BOC 

JMP 

JSR 

RTS 



SAVE 

3,0 

6 

0,8 

POS, .+2 
RESTOR 
RESTOR 
1 



TELETYPE RESET ROUTINE 



JSR 
LI 

ROUT 
JMP 



SAVE 

3 , TTYAD 

RES 

RESTOR 



.PAGE 'TELETYPE I/O ROUTINES' 
TELETYPE RECEIVE CHARACTER ROUTINE 



JSR 

JSRI 

AND 

ST 

JMP 

JSR 
JSR 
JMP 
.WORD 



SAVE 
TTYSR 
0,H7F 
0 , REG 
RESET2 

SAVE 
@. + 2 
GTC1 
07E3B 
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1574 


0735 








.PAGE 






1575 


0735 






r 








1576 


0735 






> 


TELETYPE GET AND 


ECHO CHARACTER ROUTINE 


1577 


0735 






t 








1578 


0735 


29E0 


A 


GECO: 


JSR 


SAVE 




1579 


0736 


4F38 


A 




LI 


3 ,TTYAD 




1580 


0737 


0605 


A 




ROUT 


RES 




1581 


0738 


4E08 


A 


LP 2 : 


LI 


2,8 


INITIALIZE BIT COUNT 


1582 


0739 


0604 


A 




ROUT 


RDREN 


; ENABLE READER 


1583 


073A 


0402 


A 




RIN 


READ 




1584 


073B 


1201 


A 




BOC 


POS, .+2 


;TEST FOR START BIT 


1585 


073C 


21FD 


A 




JMP 


.-2 




1586 


073D 


4C09 


A 




LI 


0 , EA 




1587 


073E 


03F6 


A 




JSRI 


DELAYl 




1588 


073F 


58EA 


A 




ROR 


0 , EB 




1589 


0740 


0402 


A 




RIN 


READ 


;TEST IF START BIT STILL 


1590 


0741 


1201 


A 




BOC 


POS, .+2 


; START IF GOOD START BIT 


1591 


0742 


21F5 


A 




JMP 


LP2 




1592 


0743 


0603 


A 


LP3: 


ROUT 


SEND 


;ECHO BIT 


1593 


0744 


03F5 


A 




JSRI 


DELAY 




1594 


0745 


5826 


A 




ROL 


0,EC 




1595 


0746 


0402 


A 




RIN 


READ 




1596 


0747 


6048 


B 




AND 


0 r H8000 


;MASK UNWANTED BITS 


1597 


0748 


5DFF 


A 




SHR 


1,1 




1598 


0749 


3182 


A 




RXOR 


0,1 


; ADD NEW BIT TO DATA 


1599 


074A 


4AFF 


A 




AISZ 


2,-1 




1600 


074B 


21F7 


A 




JMP 


LP3 




1601 


074C 


0603 


A 




ROUT 


SEND 


;ECHO LAST BIT 


1602 


074D 


03F5 


A 




JSRI 


DELAY 




1603 


074E 


4CFF 


A 




LI 


0,-1 




1604 


074F 


0603 


A 




ROUT 


SEND 


; SEND STOP BIT 


1605 


0750 


03F5 


A 




JSRI 


DELAY 




1606 


0751 


0605 


A 




ROUT 


RES 




1607 


0752 


5DF8 


A 




SHR 


1,8 




1608 


0753 


3481 


A 




RCPY 


1,0 




1609 


0754 


29D9 


A 


LP 4 : 


JSR 


GTC1 




1610 


0755 


F031 


B 




SKNE 


0 f H0D 




1611 


0756 


2903 


r a 




JSR 


SENDLF 




1612 


0757 


F030 


B 




SKNE 


0,H0A 




1613 


0758 


2103 


A 




JMP 


SENDCR 




1 C T A 


men 


n •■> nta 


A 










-L U X 1 


v i j y 


v e. vv 


r\ 




RTS 






1615 


075A 














1616 


075A 


4C0A 


A 


SENDLF: 


LI 


0,X'0A 




1617 


075B 


2C51 


B 




JSR 


@SPUTC 




1618 


075C 


4C0D 


A 


SENDCR: 


LI 


0,X'0D 




1619 


075D 


2451 


B 




JMP 


9 S PUTC 




1620 


075E 














1621 


075E 


29B7 


A 


PGECO: 


JSR 


SAVE 




1622 


075F 


2D01 


A 




JSR 


@. + 2 




1623 


0760 


21F3 


A 




JMP 


LP4 




1624 


0761 


7E73 


A 




.WORD 


07E73 




1625 


0762 








.PAGE 






1626 


0762 














1627 


0762 








TELETYPE TRANSMIT 


CHARACTER ROUTINE 


1628 


0762 














1629 


0762 


29B3 


A 


PUTC: 


JSR 


SAVE 




1630 


0763 


3181 


A 




RCPY 


0,1 




1631 


0764 


4C30 


A 




LI 


0,X'30 




1632 


0765 


03F6 


A 




JSRI 


DELAYl 




1633 


0766 


4E09 


A 




LI 


2 , 9 


; LOAD BIT COUNT 


1634 


0767 


4F38 


A 




LI 


3!tTYAD 




1635 


0768 


0603 


A 




ROUT 


SEND 
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1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 



0769 
076A 
076B 
076C 
076D 
076E 
076F 
0770 
0771 
0772 
0772 
0773 
0774 
0775 
0775 
0776 
0777 



03F5 
5829 
4AFF 
2101 
2104 
59FF 
3481 
0603 
21F7 



LP1: 



4CFF A DONE: 
0603 A 
21B5 A 

2D01 A PPUTC; 
0200 A 
7E59 A 



JSRI 

ROL 

AISZ 

JMP 

JMP 

ROR 

RCPY 

ROUT 

JMP 

LI 

ROUT 
JMP 

JSR 
RTS 
.WORD 



DELAY 

0 ,TA 

2,-1 

. + 2 

DONE 

1,1 

1,0 

SEND 

LP1 

0,-1 

SEND 
RESET2 

@. + 2 

07E59 



; SEND STOP BIT 



1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 



1672 
1673 
1674 



1675 
1676 
1677 



1678 
1679 
1680 



1681 
1682 

1683 



0778 

0778 

0778 

0778 

0778 

0778 

0778 

0778 

0778 

0778 

0778 

0778 

0778 

0778 

0778 

0778 

0779 

0779 

0779 

077A 

077B 

077C 

077D 

077D 

077D 

077E 

077F 

0780 

0781 

0781 

0781 

0782 

0783 

0784 

0784 

0784 

0785 

0786 

0787 

0788 

0789 

078A 

078B 

078B 

078B 

078C 

078D 

078E 



.PAGE 'HOLLERITH TABLE 

0800 A C12 = 2048 

0400 A Cll = 1024 

0200 A C0 = 512 

0100 A CI = 256 

0080 A C2 = 128 

0040 A C3 = 64 

0020 A C4 = 32 

0010 A C5 = 16 

0008 A C6 = 8 

0004 A C7 = 4 

0002 A C8 = 2 

0001 A C9 = 1 



0000 A BEGHOL: .WORD 



0 



BLANK/SPACE 



0482 A 

0006 A 

0042 A 

0442 A 



0222 A 

0800 A 

0012 A 

0812 A 



0412 A 
0422 A 
080A A 



0242 A 
0400 A 
0842 A 
0300 A 
0200 A 
0100 A 
0080 A 



0040 A 

0020 A 

0010 A 

0008 A 



.WORD C11+C2+C8,C7+C8,C3+C8,C11+C3+C8 



% & ' ( 

.WORD C0+C4+C8,C12,C5+C8,C12+C5+C8 



) * + 

.WORD C11+C5+C8,C11+C4+C8,C12+C6+C8 



- . / 0 12 

.WORD C0+C3+C8,C11,C12+C3+C8,C0+C1,C0,C1,C2 



3 4 5 6 7 8 9 : ; 
.WORD C3,C4,C5,C6,C7,C8,C9,C2+C8,C11+C6+C8 
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P17 ft P 
b / or 


01 01 01 A 
O v v 4 


A 
ft 






n 7 q a 


V V V £, 


A 
ft 






k> / y x 


b\ a pi i 


A 

ft 






0I7Q 7 

b / y z 


01 01 Q 0 
10 13 O Z 


A 

A 






01 7 Q 1 

io / y j 


01 yt CI a 
134 Bn 


A 

A 




T CQ A 


a 7 q /i 
b / y 4 








i ft c; 


CI7Q A 

\o 1 y 4 






i 


±o oo 


01 7 Q il 

b / y 4 


01 Q 7 7 

10 0 zz 


A 






V I J J 


01 PI 01 A 
L" 1) Bft 


A 

ft 






017 Q C 

0 / y b 


01 7 01 A 

BZbA 


A 

A 






On A "7 


0Z0D 


A 




1 C Q ~l 

loo / 


moo 

13 /yo 






t 


looo 


a 7 Q Q 

o /yo 






i 


icon 

io oy 


fl 7 Q Q 

io / y o 


0101 7 7 

1010 ZZ 


A 






017QQ 

io / y y 


01 Q 01 01 

By 13(5 


A 

A 






01 7 Q A 

io / y a 




A 

A 






d / y d 


/in y| n 

Bo4w 


A 






079C 


08 20 


A 




l o y b 


a 7 Qn 

io / y u 










io / y v 






r 


1D5 Z 


io / y ij 


130 ID 


A 






w / y Ei 


01 Q a Q 
BO 10 0 


A 

A 






tJ / y r 


01 Q 01 A 

I0OB4 


A 

A 






oi 7 a oi 
13 / AW 


a a a 1 
lOOBZ 


A 






017 A 1 

v 1 Al 


01 O 01 1 

13001 


A 

A 




16" j 


a 7 A 7 
13 /AZ 






~t 


ioy 4 


01 7 A 7 

13 / AZ 






t 


lrnr 

ioy o 


on a o 
10 /AZ 


01 C 01 01 
VDVYJ 


A 






on a "3 
13 /Aj 


a a o a 
B40B 


A 






01*7 A it 

B / A4 


Oi A A f% 

M44B 


A 






01 7 A C 

io / Ad 


B4 ZB 


A 






01 7 A a 

v l Ab 


a a t a 
134119 


A 

A 




J. o y o 


01 7 A 7 
13 / A / 






t 


± o y / 


01 7 A 7 
B / A / 






i 


leys 


01 "7 A "7 

(3 /A / 


04 0 0 


A 






01 7 A Q 
13 / AO 


01 j1 01 A 

B4I34 


A 

A 






01 7 a a 

w / Ay 


01 A 01 O 


A 






01 7 A A 

13 / AA 


01 /I 01 1 
B4B1 


* 

A 






on ad 
13 / AB 


01 O Q 01 

WZO0 


A 




loyy 


on a/*" 
Io / AC 






t 


1 IVY) 


07 AC 






t 


1 "7 CI 1 

1 fvl 


on a 
0 /AC 


0240 


A 






»» / AD 


0220 


A 






01 "7 A I? 

13 / At, 


BzlB 


A 






07 AF 


BZ0O 


A 






07B0 


0204 


A 






07B1 


BZBZ 


A 




± / B Z 


01 "7 0 *7 

B /BZ 






f 


1 "J 01 "3 


B /BZ 






i 


1 7 CIA 
J. / 0 4 


on n o 
10 / tJZ 


a o a l 
BZB1 


A 

A 






07B3 


0882 


A 






07B4 


0282 


A 






07B5 


0806 


A 




1705 


07B6 






t 


1706 


07B6 






t 


1707 


07B6 


0406 


A 






07B7 


0212 


A 






07B8 


0102 


A 





< > ? 

.WORD C12+C4+C8 ,06+08 ,C0+C6+C8 ,C0+C7+C8 



§ A B C D 

.WORD C4+C8,C12+C1,C12+C2,C12+C3,C12+C4 



E F G H I 

.WORD C12+C5,C12+C6,C12+C7,C12+C8,C12+C9 



J K L M N 

.WORD C11+C1,C11+C2,C11+C3,C11+C4,C11+C5 



0 P Q R S 

.WORD C11+C6,C11+C7,C11+C8,C11+C9,C0+C2 



T U V W X Y 

.WORD C0+C3 ,00+04 , C0+C5 , C0+C6 , C0+C7 ,C0+C8 



Z % % \ 

.WORD C0+C9,C12+C2+C8,C0+C8+C2,C12+C7+C8 



.WORD 011+07+08,00+05+08,08+01 
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1708 07B9 

1709 07B9 ; 

1710 07B9 0D0A A TPAK1 : 

1711 07BA 0D0A A 

1712 07BB 0D0A A 

1713 07BC 4E53 A 
07BD 4320 A 
07BE 2045 A 
07BF 4449 A 
07C0 5431 A 
07C1 3620 A 
07C2 2052 A 
07C3 4556 A 
07C4 2043 A 

1714 07C5 0D0A A 

1715 07C6 4D45 A 
07C7 4D4F A 
07C8 5259 A 
07C9 3A20 A 

1716 07CA 2000 A 

1717 07CB 0000 A 

1718 07CC ; 

1719 07CC ; 

1720 07CC 5455 A TPAK2: 
07CD 524E A 

07CE 2052 A 
07CF 4541 A 
07D0 4445 A 
07D1 5220 A 
07D2 4F46 A 
07D3 4620 A 
07D4 4E4F A 
07D5 5720 A 

1721 07D6 0000 A 

1722 07D7 ; 

1723 07D7 



.PAGE 'LIST OF MESSAGES 



.WORD 0D0A 

.WORD 0D0A 

.WORD 0D0A 

.ASCII 'NSC 



EDIT16 REV C' 



.WORD 0D0A 
.ASCII 'MEMORY:' 



.WORD 02000 
.WORD 0 



.ASCII 'TURN READER OFF NOW' 



.WORD 0 



1724 07D7 4E4F A 
07D8 2041 A 
07D9 4354 A 
07DA 4956 A 
07DB 4520 A 
07DC 4649 A 
07DD 4C45 A 

1725 07DE 0D0A A 

1726 07DF 0000 A 

1727 07E0 

1728 07E0 

1729 07E0 5455 
07E1 524E 
07E2 2050 
07E3 554E 
07E4 4348 
07E5 204F 
07E6 4E20 

1730 07E7 0D0A 

1731 07E8 0000 

1732 07E9 ; 

1733 07E9 ; 

1734 07E9 5645 A VERIFY: 
07EA 5249 
07EB 4659 

1735 07EC 3F00 

1736 07ED 0000 

1737 07EE 



TPAK3: .ASCII 'NO ACTIVE FILE 



.WORD 0D0A 
.WORD 0 



TPAK4: .ASCII 'TURN PUNCH ON 



.WORD 0D0A 
.WORD 0 



.ASCII 'VERIFY 



.WORD 03F00 
.WORD 0 
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1738 


07EE 






r 




' START' 


1739 


07EE 


2053 


A 


TYPEl : 


.ASCII 




07EF 


5441 


A 










07F0 


5254 


A 








1740 


07F1 


3F00 


A 




.WORD 


03F00 


1741 


07F2 


0000 


A 




.WORD 


0 


1742 


07F3 












1 1 A "3 


V) 1 r J 






t 




'TRANSMISSION ERROR' 

J. iXrlil will w -1. x » x-i IMW L\ 


1744 


07F3 


J ** -J 


A 


CRPKl : 


.ASCII 




07 P4 

ti / r i 


41 4R 


A 










07F5 


534D 


A 










07F6 


*t J J J 


A 










07F7 


5349 


A 










07F8 

ki / r o 


4 F4E 


A 










07PQ 




A 










07 PA 

tl / i t\ 


J ^ J c. 


A 










07FB 


4F52 


% 








1745 


07 PC 


0D0A 


A 




.WORD 


0D0A 


1746 


07FD 


0000 


A 




• WORD 


0 


1747 


07FE 












1748 


07FE 






t 






1749 


07FE 


564F 


A 


VOID : 


.ASCII 


'VOID RANGE' 




07FF 


4944 


A 










0800 


2052 


A 










0801 


414E 


A 










0802 


4745 


A 








1750 


0803 


0D0A 


A 




.WORD 


0D0 A 


1751 


0 804 


0000 


A 




.WORD 


0 


1752 


0805 












1753 


0805 












1754 


0805 


4255 


A 


FULL : 


. ASCI I 


'RHPFER PIILT. ' 




0806 


4646 


A 










0807 


4552 


A 










0808 


2046 


A 










0809 


554C 


A 










080A 


4C20 


A 








1755 


080B 


0D0A 


A 




• WORD 


0D0A 


1756 


080C 


0000 

KJ Kl El V 


A 






0 


1 7S7 

X / D 1 


E/ O VU 






> 






17^8 

1 / J O 


CI 8 Gin 






r 






x / ~) y 


0 ft Pir> 




A 
f\ 




ACPT T 

• no v.ii 






080F 




A 










ki o li r 




a 








1 7fi0 


Gift 1 PI 


0n0 a 


A 

I \ 






cinci a 


1 7fi 1 

X f U X 


081 1 

Hull 


CI 01 01 CI 
w ti Y) x) 


a 




* WUivU 


CI 


1 7fi ? 

X 1 D £ 


V O X z. 






» 






1 7fi 


081 9 












1764 


0812 


414C 


A 




. ASCII 


' AT.TPRQ ' 

t\Xt X EjxxO 




0813 


5445 


A 










0814 




A 










081 s 

V O J- J 


"*P00 

j r ki Ei 


a 




unon 


0"}F00 
Kl o r V V 


1 76fi 
x / u u 


0816 


00 0 0 


A 




. rf\JS\LJ 


0 

Kl 


1767 


0817 


** V* "* <7 


A 




AQfTT 

. nDV<l X 


*T.TNF MAY T PW^TH ' 




0818 


4E45 


A 










0819 


2049 


A 










081A 


5320 


A 










081B 


4D41 


A 










081C 


5820 


A 










081D 


4C45 


A 










081E 


4E47 


A 










081F 


5448 


A 








1768 


0820 


0D0A 


A 




.WORD 


0D0A 


1769 


0821 


0000 


A 




.WORD 


0 
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1770 0822 . PAGE ' INDIRECT POINTERS & SYMBOL TABLE ' 

1771 0822 0250 T BUF: .END START 
POINTERS GENERATED 



0063 


0344 


T 


0064 


06E9 


T 


0065 


06EA 


T 


0066 


02B9 


T 


0067 


06F7 


T 


0068 


06F9 


T 


0069 


06B3 


T 


006A 


06C5 


T 


006B 


06D9 


T 


006C 


06DF 


T 


006D 


0649 


T 


006E 


06A2 


T 


006F 


0716 


T 


0070 


071B 


T 


0071 


055E 


T 


0072 


04BD 


T 


0073 


0561 


T 


0074 


04CD 


T 


0075 


05B7 


T 


0076 


06E3 


T 


0077 


040B 


T 


0078 


06C1 


T 


0079 


0373 


T 


007A 


04A9 


T 


007B 


0375 


T 



0 ERRORS IN ASSEMBLY 



$1" 


$1# 




$1$ 




$1% 




$1& 




$1' 




$10" 




$10$ 




$10& 




$10A" 


0346 T 


0369 


T 


03CD 


T 


04E2 


T 


0549 


T 


0652 


T 


030D 


T 


045E 


T 


0599 


T 


0315 T 


$10A$ 


$10A& 


$11$ 




$11% 




$11A$ 


$12" 




$12$ 




$12% 




$12& 




$12A$ 


0463 T 


059A 


T 


046A 


T 


052D 


T 


046D 


T 


031A 


T 


0477 


T 


0533 


T 


0609 


T 


0486 T 


$12A% 


$12A& 


$12B$ 


$12C$ 


$13! 




$13$ 




$13% 




$1A% 




$2" 




$2# 


0539 T 


060A 


T 


048A 


T 


0479 


T 


02C9 


T 


048E 


T 


053C 


T 


04E6 


T 


0353 


T 


0370 T 


$2$ 


$2% 




$2& 




$2' 




$2A$ 




$2A& 




$2B& 




$3! 




$3" 




$3$ 


03D3 T 


04EF 


T 


0565 


T 


065F 


T 


03D4 


T 


056E 


T 


0571 


T 


026D 


T 


0359 


T 


039B T 


$3% 


$3& 




$3A$ 




$3A& 




$3B$ 




$3C$ 




$4! 




$4" 




$4$ 




$4% 


04FC T 


0559 


T 


03A3 


T 


055B 


T 


03A4 


T 


03A6 


T 


0275 


T 


032C 


T 


03E1 


T 


0500 T 


$4& 


$4' 




$4A! 




$4A" 




$4A& 




$4B& 




$4C& 




$4D& 




$4E& 




$5! 


05C8 T 


066C 


T 


0276 


T 


032D 


T 


05D2 


T 


05D4 


T 


05D6 


T 


05D7 


T 


05DB 


T 


0266 T 


$5" 


$5% 




$5& 




$5' 




$6! 




$6" 




$6$ 




$6& 




$6A$ 




$6B$ 


0336 T 


0511 


T 


05E4 


T 


067B 


T 


026B 


T 


033C 


T 


041C 


T 


0592 


T 


0421 


T 


0429 T 


$7" 


$7$ 




$7& 




$7' 




$71$ 




$7A$ 




$7A& 




$8" 




$8$ 




$8& 


02F5 T 


043F 


T 


0554 


T 


0680 


T 


044C 


T 


0456 


T 


0557 


T 


0304 


T 


0499 


T 


05A6 T 


$8' 


$8A& 




$8A' 




$8B' 




$8C' 




$9" 




$9$ 




$9& 




$9' 




$9A& 


063C T 


05AB 


T 


062A 


T 


062B 


T 


062C 


T 


0308 


T 


04A2 


T 


05AF 


T 


0643 


T 


05B3 T 


ADBUF 


ADBUF2 


ADCGET 


ADDBUF 


ADHSP 


ADKGET 


ADPLN 


ADPLN 2 


ADRBUF 


ADSETB 


0009 B 


0008 


B 


005A 


B 


0007 


B 


005D 


B 


005B 


B 


0003 


B 


0004 


B 


0006 


B 


0005 B 


ADTAB 


ADTGET 


ALTERS 


ANDl 




ANDH0A 


ANDH0D 


ASCFS 


ASCMS 


BADDR 


BEGHOL 


000E B 


005C 


B 


0812 


T 


06DA 


T 


06DF 


T 


06D9 


T 


004B 


B 


004A 


B 


0612 


T 


0778 T 
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BIT1 BUF BUF1 BUF2 BUFULL C0 CI Cll C12 C2 

0004 A 0822 T 01B5 T 013C T 055E T 0200 A 0100 A 0400 A 0800 A 0080 A 

C3 C4 C5 C6 C7 C8 C9 CHT01 CHT02 CHTOA 

0040 A 0020 A 0010 A 0008 A 0004 A 0002 A 0001 A 0601 T 0603 T 0600 T 

CLRBUF CMDTBL CMND CNVRT CONV COPl COP2 COPYLN COUNTl COUNT 2 
035C T 02CE T 001D B 0526 T 05FF T 0495 T 0496 T 0490 T 0027 B 0028 B 

CPAD CRADDR CRESET CRGETC CRLF CRP CRPK1 CRREAD DBUF DELI 
004C B 0010 A 05EE T 05F0 T 06F3 T 061C T 07F3 T 0540 T 0135 T 0361 T 

DELAY DELAY1 DELELN DEVICE DONE DSH1 DSHIFT EA EB EC 

FFF5 A FFF6 A 0360 T 000A B 0772 T 04D3 T 04CD T 0009 A 0016 A 0026 A 

END ENDTBL ERROR EXPMND EXPTST EXPZRO FIRST FNDSTR FNDTST FULL 
000D B 02F1 T 080D T 001E B 0021 B 06F9 T 0000 B 038D T 0022 B 0805 T 

GECO GETC GETCO GETDEC GETMEM GETSl GETS 2 GETSTR GLLEN GPCS 
0735 T 072C T 06FC T 0344 T 0278 T 0328 T 0329 T 0321 T 0451 T 0018 A 

GTC1 H01 H03 H04 H09 H0A H0D H0F H100 Hll 
072E T 002C B 002D B 002E B 002F B 0030 B 0031 B 0032 B 0045 B 0033 B 

H18 HlF H1F00 H20 H27 H2C H2F H39 H40 H54 
0034 B 0035 B 0047 B 0036 B 0037 B 0038 B 0039 B 003A B 003B B 003C B 

H5A H5F H600 H7F H80 H8000 HC0 HDF HF0 HFF 
003D B 003E B 0046 B 003F B 0040 B 0048 B 0041 B 0043 B 0042 B 0044 B 

HFFFF HSPAD HSPRT INCONE INERR INTEST JMPT1 JMPTBL KBGl KBGETC 
0049 B 0048 A 070E T 0380 T 05EB T 0720 T 02BB T 02B9 T 0584 T 0585 T 

KBMODE KBREAD LAST LCRGET LEADTR LGECO LGETC LINIT LINLEN LISTF 
02DA T 053E T 0001 B 0062 B 0519 T 0061 B 0060 B 0284 T 0817 T 0638 T 

LISTL LLEN LLENl LLIM LP1 LP 2 LP3 LP 4 LPUTC MAXSTR 
063E T 0029 B 002A B 0014 B 0769 T 0738 T 0743 T 0754 T 005F B 0012 B 

MAXTS MLIN1 MLINE MOD MODI MODE MODI MODI 2 MODIFY MODLN 
0013 B 04B2 T 04A9 T 040B T 03AD T 001F B 03ED T 040A T 03E8 T 03A9 T 

MODSTR MOV1 MOVELN NEG NOFILE NUM1 NUM2 NUM3 NUMBER NUMTST 
038F T 04A6 T 04A4 T 000B A 0649 T 0378 T 037A T 0375 T 0373 T 0023 B 

NZRO 02CH 03CH ODD OPER OUTl OUTBUF PCRGl PCRGET PGECO 

0005 A 070C T 070B T 0003 A 0026 B 03BE T 03BD T 0614 T 0613 T 075E T 

PGETC POA POS PPUTC PRIl PRI2 PRINTL PROMPT PTBUF PTGETC 
0731 T 000C A 0002 A 0775 T 0622 T 0623 T 0620 T 028F T 0025 B 059F T 

PTR1 PTRBUF PTREAD PUNCHL PUTC PUTLN PUTLN2 RBMAX RBUF RDCR 
0543 T 0002 B 0542 T 061D T 0762 T 0650 T 066A T 000B B 0120 T 05F2 T 

RDREN READ REG REINIT REPl REPEAT RES RESET RESET2 RESTOR 
0004 A 0002 A 0019 B 06E3 T 0692 T 068D T 0005 A 0728 T 072A T 071B T 

RET1 RETURN RGFLG RHI RINIT1 RLO RNGE RNGEl RNGTST RNGZRO 
0727 T 069C T 0020 B 0018 B 005E B 0017 B 02F2 T 02F3 T 0024 B 06F7 T 

RNIT1 SAVE SCRLF SEND SENDCR SENDLF SETl SET2 SETBUF SETL01 
06E4 T 0716 T 004F B 0003 A 075C T 075A T 06A3 T 06AE T 03B9 T 06B5 T 

SETLHR SETLN SETSR SETTl SETTAB SGECO SGETC SGETCO SHI SHT39 
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06A2 T 


03B3 


T 


04B5 


T 


04DA T 


04D9 T 


0053 B 


0052 B 


0056 B 


0016 B 


000C B 


SINTST 


SL01 




SL02 




SLN1 


SLO 


S02CH 


S03CH 


SPATSK 


SPUTC 


SRCH1 


004D B 


06CE 


T 


06D6 


T 


06C3 T 


0015 B 


0054 B 


0055 B 


06EF T 


0051 B 


03C8 T 


SRCHLN 


SRCHLO 


SRCHRG 


SRCHST 


SRESET 


SRG1 


START 


START 1 


STATUS 


STBUF 


06C1 T 


06CD 


T 


06C5 


T 


03C6 T 


004E B 


06C6 T 


0250 T 


0058 B 


0001 A 


0561 T 


STD1 


STDATA 


STEB1 


STEB2 


STEBUF 


STL02 


STLOHI 


STNDRD 


STRB2 . 


STRBUF 


057A T 


0573 


T 


057D 


T 


0581 T 


057B T 


06BF T 


06B3 T 


0002 A 


031E T 


031C T 


STYPE 


TA 




TAB1 




TAB 2 


TAB 3 


TADDR 


TERR 


TERRNG 


TESTCZ 


TPAK1 


0057 B 


0029 


A 


000F 


B 


0010 B 


0011 B 


0611 T 


0619 T 


V J X O X 


V H J V X 


V I D J X 


TPAK2 


TPAK3 


TPAK4 




TRISTR 


TSTINT 


TSTT1 


TSTT2 


TSTTAB 


TTYAD 


TTYINP 


07CC T 


07D7 


T 


07E0 


T 


0059 B 


02C1 T 


0509 T 


050A T 


0504 T 


0038 A 


05B7 T 


TTYSR 


TYP1 




TYPE 




TYPE1 


TYPEL 


TYPERR 


USH1 


USH2 


USHIFT 


VERIFY 


FFFB A 


0703 


T 


0700 


T 


07EE T 


061F T 


0050 B 


04C5 T 


04CB T 


04BD T 


07E9 T 


VOID 


WAIT1 




WAIT2 




WAITCR 


WTLOOP 


ZERO 


ZRO 








07FE T 


06EA 


T 


06EC 


T 


06E9 T 


05F7 T 


002B B 


0001 A 









0C0E C3CB 

1 
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REVISION-G 05/16/74 



EDIT16 



00332C 



10/18/74 ECO SIMP-2276 



1 


000 0 








.TITLE 


EDIT16, '00332C 10/18/74' 


2 


0000 












3 


0000 








CONDITIONAL CODES FOR THE BOC INSTRUCTION 


4 


000 0 












5 


0000 


0001 


A 


ZRO 




1 


6 


0000 


0002 


A 


POS 




2 


7 


000 0 


0003 


A 


ODD 




3 


8 


0000 


0004 


A 


BIT1 




4 


9 


0000 


0005 


A 


NZRO 




5 


10 


0000 


000B 


A 


NEG 




11 


11 


000 0 


000C 


A 


POA 




12 


1 2 


0000 












1 3 


fAfXfkfX 
V KJ XJ XJ 






i 


LArniiboiucio xnc ic.i_iC.Tirn. i/u 


14 


0000 






t 






15 


0000 


0009 


A 


EA 




9 


16 


0000 


0016 


A 


EB 




22 


17 


0000 


0026 


A 


EC 




38 


18 


0000 


0029 


A 


TA 




41 


19 


0000 


0038 


A 


TTYAD 




7*8 


20 


0000 


FFF5 


A 


DELAY 




0FFF5 


21 


0000 


FFF6 


A 


DELAY1 




0FFF6 


22 


000 0 


FFFB 


A 


TTYSR 




0FFFB 


23 


0000 


0018 


A 


GPCS 




018 


24 


00 00 


0002 


A 


READ 




2 


25 


0000 


0003 


A 


SEND 




3 


26 


0000 


0004 


A 


RDRFN 




4 


27 


00 0 0 


0005 


a 

n 


i\ i_j j 




5 


28 


0000 








. PAGE 


'CARD READER AND HIGH SPEED PRINTER 


29 


0000 












30 


0000 








EXPRESSIONS FOR THE CARD READER I/O 


31 


0000 












32 


0000 


0001 


A 


STATUS 




1 


33 


0000 


0002 


A 


STNDRD 




2 


34 


0000 


0010 


A 


CRADDR 




2*8 


35 


0000 












36 


0000 








EXPRESSIONS FOR THE HIGH SPEED PRINTER I/O 


37 


0000 












38 


0000 


0048 


A 


HSPAD 




9*8 


39 


0000 













40 


0000 








. PAGE 


'REFERE 


41 


0000 






i 






42 


0000 








.BSECT 




43 


0000 


0822 


T 


FIRST: 


.WORD 


BUF 


44 


0001 


0822 


T 


LAST: 


.WORD 


BUF 


45 


0002 


0120 


T 


PTRBUF: 


.WORD 


RBUF 


46 


0003 


0650 


T 


ADPLN : 


.WORD 


PUTLN 


47 


0004 


066A 


T 


ADPLN2: 


.WORD 


PUTLN2 


48 


0005 


03B9 


T 


ADSETB: 


-WORD 


SETBUF 


49 


0006 


0120 


T 


ADRBUF: 


• WORD 


RBUF 


50 


0007 


0135 


T 


ADDBUF: 


.WORD 


DBUF 


51 


0008 


013C 


T 


ADBUF2: 


.WORD 


BUF2 


52 


0009 


01B5 


T 


ADBUF: 


.WORD 


BUFl 


53 


000A 


0775 


T 


DEVICE: 


.WORD 


PPUTC 


54 


000B 


0134 


T 


RBMAX : 


.WORD 


RBUF+20 


55 


000C 


000D 


B 


SHT39 : 


. = . + 1 




56 


000D 


000E 


B 


END: 


. = . + 1 




57 


000E 


000F 


B 


ADTAB : 


.WORD 


TAB1 



;BUF LIMIT FOR TESTING BUFFER FULL 
; END OF EDIT BUFFER 



1 



EDIT16 



58 


000F 


0008 


A 


TAB1 : 


.WORD 


8 


59 


0010 


0010 


A 


TAB 2: 


.WORD 


16 


60 


0011 


0020 


A 


TAB3 : 


.WORD 


32 


61 


0012 


0006 


A 


MAXSTR: 


.WORD 


6 


62 


0013 


0280 


A 


MAXTS : 


.WORD 


640 


63 


0014 


0041 


A 


LLIM: 


.WORD 


65 



;MAX NUMBER OF CHARS IN ONE LINE 



64 


0015 








.PAGE 


65 


0015 












66 


0015 


0016 


B 


SLO: 


_ 


. + 1 


67 


0016 


0017 


B 


SHI : 


_ 


. + 1 


68 


0017 


0018 


B 


RLO: 




. + 1 


69 


0018 


0019 


B 


RHI : 




. + 1 


70 


0019 


001D 


B 


REG: 




. + 4 


71 


001D 


001E 


B 


CHND: 




. + 1 


72 


001E 


001F 


B 


EXPMND: 




. + 1 


73 


001F 


0020 


B 


MODE: 




. + 1 


74 


0020 


0021 


B 


RGFLG: 




. + 1 


75 


0021 


0022 


B 


EXPTST: 




. + 1 


76 


0022 


0023 


B 


FNDTST: 




. + 1 


77 


0023 


0024 


B 


NUMTST: 




. + 1 


78 


0024 


0025 


B 


RNGTST : 




. + 1 


79 


0025 


0026 


B 


PTBUF: 




. + 1 


80 


0026 


0027 


B 


OPER: 




. + 1 


81 


0027 


0028 


B 


COUNT 1 : 




. + 1 


82 


0028 


0029 


B 


COUNT 2: 




. + 1 


83 


0029 


00 2A 


B 


LLEN: 




. + 1 


84 


002A 


002B 


B 


LLEN1: 




. + 1 



TEMPORARY BUFFERS 



; CURRENT LINE LENGTH 
;ORIGINAL LINE LENGTH 



85 


002B 










. PAGE 


'CONSTANTS' 


86 


002B 






J 








87 


002B 


0000 


A 


ZERO: 


.WORD 


X'0 


88 


002C 


0001 


A 


H01: 




.WORD 


X'01 


89 


002D 


0003 


A 


H03: 




.WORD 


X'03 


90 


002E 


0004 


A 


H04: 




.WORD 


X'04 


91 


002F 


0009 


A 


H09: 




.WORD 


X'09 


92 


0030 


000A 


A 


H0A: 




.WORD 


X'0A 


93 


0031 


000D 


A 


H0D' 




.WORD 


X '0D 


94 


0032 


000F 


A 


H0F: 




.WORD 


X'0F 


95 


0033 


0011 


A 


Hll: 




.WORD 


X'll 


96 


0034 


0018 


A 


H18: 




.WORD 


X'18 


97 


0035 


001F 


A 


H1F: 




.WORD 


X'lF 


98 


0036 


0020 


A 


H20 




.WORD 


X'20 


99 


0037 


0027 


A 


H27 




.WORD 


X'27 


100 


0038 


002C 


A 


H2C- 




.WORD 


X'2C 


101 


0039 


002F 


A 


H2F 




.WORD 


X'2F 


102 


003A 


0039 


A 


H39 




.WORD 


X'39 


103 


003B 


0040 


A 


H40 




.WORD 


X'40 


104 


003C 


0054 


A 


H54 




.WORD 


X'54 


105 


003D 


005A 


A 


H5A 




.WORD 


X'5A 


106 


003E 


005F 


A 


H5F 




.WORD 


X'5F 


107 


003F 


007F 


A 


H7F 




.WORD 


X'7F 


108 


0040 


0080 


A 


H80 




.WORD 


X'80 


109 


0041 


00C0 


A 


HC0 




.WORD 


X'C0 


110 


0042 


00F0 


A 


HF0 




.WORD 


X'F0 


111 


0043 


00DF 


A 


HDF 




.WORD 


x'df 


112 


0044 


00FF 


A 


HFF 




.WORD 


X'FF 


113 


0045 


0100 


A 


H100: 


.WORD 


X'0100 


114 


0046 


0600 


A 


H600: 


.WORD 


X'0600 


115 


0047 


1F00 


A 


H1F00: 


.WORD 


X'1F00 


116 


0048 


8000 


A 


H8000: 


.WORD 


X'8000 


117 


0049 


FFFF 


A 


HFFFF: 


.WORD 


X'FFFF 


118 


004A 


4D53 


A 


ASCMS: 


.ASCII 


'MS' 



2 



EDIT16 



119 804B 4653 A ASCFS: . ASCII 'FS' 

120 004C 0760 A CPAD: .WORD 0760 



TO! 


004D 










.PAGE 


'SUBROUTINE VECTORS' 


122 


004D 














TOO 

123 


00 4D 


0720 


T 


SINTST 


: .WORD 


INTEST 


124 


004E 


0728 


T 


SRESET 


: .WORD 


RESET 


125 


004F 


06F3 


T 


SCRLF 




.WORD 


CRLF 


126 


0050 


06EC 


T 


TYPERR 


: .WORD 


WAITCR+3 


127 


00 51 


077 5 


T 


SPUTC 




• WORD 


PPUTC 


128 


00 52 


0731 


T 


SGETC 




.WORD 


PGETC 


129 


0053 


075E 


T 


SGECO 




.WORD 


PGECO 


130 


0054 


070C 


T 


S02CH 




.WORD 


02CH 


131 


0055 


070B 


T 


S03CH 




.WORD 


03CH 


TOO 

132 


low bo 


06FC 


T 


SGETCO: .WORD 


GETCO 


133 


0057 


0700 


T 


STYPE 




.WORD 


TYPE 


134 


0058 


028F 


T 


START1 


: .WORD 


PROMPT 


135 


0059 


06EF 


T 


TRISTR 


.WORD 


SPATSK 


136 


005A 


0613 


T 


ADCGET 


.WORD 


PCRGET 


137 


005B 


0585 


T 


ADKGET 


.WORD 


KBGETC 


138 


005C 


059F 


T 


ADTGET 


.WORD 


PTGETC 


139 


005D 


070E 


T 


ADHSP 




.WORD 


HSPRT 


140 


005E 


06E4 


T 


RINIT1 


.WORD 


REINIT+1 


141 


005F 


0762 


T 


LPUTC: 




.WORD 


PUTC 


142 


0060 


072C 


T 


LGETC: 




.WORD 


GETC 


143 


0061 


0735 


T 


LGECO : 




.WORD 


GECO 


144 


0062 


05F0 


T 


LCRGET: .WORD 


CRGETC 



145 


0063 








. PAGE 


'START 


146 


0063 






r 






147 


0063 








.TSECT 




148 


0000 


0120 


T 




.=.+0120 


149 


0120 


0135 


T 


RBUF: 


.=.+21 




150 


0135 


013C 


T 


DBUF: 


. = .+7 




151 


013C 


01B5 


T 


BUF2: 


.=.+121 




152 


01B5 


0235 


T 


BUF1 : 


.=.+128 




153 


0235 






$ 






154 


0235 


0250 


T 




.=.+27 




155 


0250 






r 






156 


0250 


8C4C 


B 


START: 


LD 


3, CPAD 


157 


0 251 


0418 


?\ 




DTM 


r> r>r«e 


158 


0252 


4801 


A 




AISZ 


0,1 


159 


0253 


2930 


A 




JSR 


LINIT 


160 


0254 


2C57 


B 




JSR 


@STYPE 


161 


0255 


07B9 


T 




• WORD 


TPAK1 


162 


0256 


2921 


A 




JSR 


GETMEM 


163 


0257 


21F8 


A 




JMP 


START 


164 


0258 


2114 


A 




JMP 


$3 


165 


0259 


2C53 


B 




JSR 


@SGECO 


166 


025A 


48C6 


A 




AISZ 


0,-X'3A 


167 


025B 


21F4 


A 




JMP 


START 


168 


025C 


2C63 


I 




JSR 


GETDEC 


169 


025D 


21F2 


A 




JMP 


START 


170 


025E 


3481 


A 




RCPY 


1,0 


171 


025F 


6032 


B 




AND 


0,H0F 


172 


0260 


6442 


B 




AND 


1 , HF0 


173 


0261 


5DFF 


A 




SHR 


1,1 


174 


0262 


3400 


A 




RADD 


1,0 


175 


0263 


5DFE 


A 




SHR 


1,2 


176 


0264 


3400 


A 




RADD 


1,0 


177 


0265 


4D00 


A 




LI 


1,0 


178 


0266 


D02E 


B 


$5: 


SUB 


0,H04 


179 


0267 


1103 


A 




BOC 


ZRO,$6 



", FREE SPACE 



3 



EDIT16 



180 


0268 


1B02 


A 




BOC 


NEG , $6 


181 


0269 


4901 


A 




AISZ 


1 , 1 


182 


026A 


21FB 


A 




JMP 


?5 


183 


026B 


5D0C 


A 


$6 : 


SHL 


1,12 


184 


026C 


2101 


A 




JMP 


• + 2 


185 


026D 






t 






186 


026D 


4D00 


A 


$3: 


LI 


1,0 


187 


026E 


4CFF 


A 




LI 


0,-1 


188 


026F 


5CFC 


A 




SHR 


0,4 


189 


0270 


3100 


A 




RADD 


fx 1 

0,1 


190 


0271 


49FF 


A 




AISZ 


1 r" 1 


191 


0272 


A40D 


B 




ST 


1 , END 


192 


0273 


49D8 


A 




AISZ 


i An 
1,-40 


193 


0274 


A40C 


B 




ST 


i pit m o f\ 

1 , SHT39 


194 


0275 


2C4F 


B 


$4 : 


JSR 


@SCRLF 


195 


0276 


2C4F 


B 


$4A: 


JSR 


@SCRLF 


196 


0277 


2117 


A 




JMP 


PROMPT 


197 


0278 












198 


0278 


2C53 


B 


GETMEM: 


JSR 


@SGECO 


199 


0279 


F033 


B 




SKNE 


0 ,H11 


200 


027A 


0200 


A 




RTS 




201 


027B 


F031 


B 




SKNE 


0 ,H0D 


202 


027C 


0201 


A 




RTS 


1 


203 


027D 


E03A 


B 




SKG 


0,H39 


204 


027E 


E039 


B 




SKG 


0,H2F 


205 


027F 


0200 


A 




RTS 




206 


0280 


6032 


B 




AND 


0 ,H0F 


207 


0281 


4800 


A 




AISZ 


0,0 


208 


0282 


0200 


A 




RTS 




209 


0283 


0202 


A 




RTS 


2 



; 0 IS ONLY LEGAL VALUE FOR 1ST FIELD 



210 0284 .PAGE 'I/O INITIALIZATION FOR 16L' 

211 0284 ; 

212 0284 805F B LINIT: LD 0,LPUTC 

213 0285 A051 B ST 0,SPUTC 

214 0286 8060 B LD 0 ,LGETC 

215 0287 A052 B ST 0,SGETC 

216 0288 8061 B LD 0,LGECO 

217 0289 A053 B ST 0,SGECO 

218 028A 8062 B LD 0 , LCRGET 

219 028B A05A B ST 0 , ADCGET 

220 028C 805F B LD 0,LPUTC 

221 028D A00A B ST 0, DEVICE 

222 028E 0200 A RTS 



223 028F .PAGE 

224 028F ; 

225 028F 8051 B PROMPT: LD 

226 0290 A00A B ST 

227 0291 2C4F B JSR 

228 0292 4C20 A LI 

229 0293 2C55 B JSR 

230 0294 4C3F A LI 

231 0295 2G51 B JSR 

232 0296 4C20 A LI 

233 0297 2C54 B JSR 

234 0298 2C53 B JSR 

235 0299 F033 B SKNE 

236 029A 212E A JMP 



'PROMPT FOR COMMAND' 

0,SPUTC 
0, DEVICE 
@SCRLF 

0,X'20 ;SPACE 
9S03CH 

0,X'3F ; QUESTION MARK 

@SPUTC 

0,X'20 ;SPACE 

0SO2CH 

@SGECO 

0,H11 ;DC1 
$13 



4 



EDIT16 



237 


029B 


F031 


B 




SKNE 


0 ,H0D 


; CARRIAGE RETURN 


238 


029C 


21D9 


A 




JMP 


$4A 




239 


029D 


F036 


B 




SKNE 


0,H20 


; SPACE 


240 


029E 


21FD 


A 




JMP 


.-2 




241 


029F 


E03D 


B 




SKG 


0 ,H5A 


;TEST FOR ALPHA CHARACTER 


242 


02A0 


E03B 


B 




SKG 


0,H40 




243 


02A1 


2464 


I 




JMP 


WAITCR 


; ERROR 


244 


02A2 


3181 


A 




RCPY 


0,1 




245 


02A3 


5D08 


A 




SHL 


1,8 




246 


02A4 


2C56 


B 




JSR 


@SGETCO 




247 


02A5 


E03D 


B 




SKG 


0,H5A 


;TEST FOR ALPHA INPUT 


248 


02A6 


E03B 


B 




SKG 


0,H40 




249 


02A7 


2465 


I 




JMP 


WAIT1 


;SKIP TO NEXT CARRAGE RETURN 


250 


02A8 


3100 


A 




RADD 


0,1 




251 


02A9 


A41D 


B 




ST 


1,CMND 




252 


02AA 


2916 


A 




JSR 


TSTINT 




253 


02AB 


2946 


A 




JSR 


RNGE 




254 


02 AC 


210C 


A 




JMP 


JMPTBL 




255 


02AD 


2C56 


B 




JSR 


0SGETCO 




256 


02AE 


F031 


B 




SKNE 


0,H0D 


; CARRIAGE RETURN 


257 


02AF 


2450 


B 




JMP 


@TYPERR 




258 


02B0 


48B1 


A 




AISZ 


0,-X'4F 




259 


02B1 


2464 


I 




JMP 


WAITCR 




260 


02B2 


2C63 


I 




JSR 


GETDEC 




261 


02B3 


2465 


I 




JMP 


WAIT1 


;SKIP TO NEXT CARRIAGE RETURN 


26 2 


02B4 


A41E 


B 




ST 


1 , EXPMND 




26 3 


02B5 


4D01 


A 




LI 


1,1 




264 


02B6 


A421 


B 




ST 


1 ,EXPTST 




265 


02B7 


48F3 


A 




AISZ 


0,-X'0D 




266 


02B8 


2464 


I 




JMP 


WAITCR 




267 


02B9 


8914 


A 


JMPTBL: 


LD 


2, CMDTBL 




268 


02BA 


801D 


B 




LD 


0 f CMND 




269 


02BB 


F200 


A 


■JMPT1 : 


SKNE 


0,(2) 




270 


0 2BC 


2601 


A 




JMP 


@1 (2) 




271 


02BD 


F933 


A 




SKNE 


2 , ENDTBL 




272 


02BE 


2450 


B 




JMP 


@TYPERR 




273 


02BF 


4A02 


A 




AISZ 


2,2 




274 


02C0 


21 FA 


A 




JMP 


JMPT1 




275 


02C1 


8006 


B 


TSTINT: 


LD 


0 , ADRBUF 




276 


0 2C2 


Kaa t 


o 

o 




ST 


n nmnnnn 
v , c i rvour 




277 


02C3 


4C00 


A 




LI 


0,0 




278 


02C4 


A021 


B 




ST 


0 ,EXPTST 




O "7 Ck 

£. f y 


ca i r* c 

V £. V* -J 


nzj £. z. 


n 

D 




ST 


w , FNDTST 




280 


02C6 


A023 


B 




ST 


0 ,NUMTST 




281 


02C7 


A024 


B 




ST 


0 , RNGTST 




282 


02C8 


0200 


A 




RTS 






283 


02C9 














284 


02C9 


29F7 


A 


$13: 


JSR 


TSTINT 




285 


02CA 


8C06 


B 




LD 


3, ADRBUF 




286 


0 2CB 


294A 


A 




JSR 


TERRNG 




287 


02CC 


2C4F 


B 




JSR 


@SCRLF 




288 


02CD 


250C 


A 




JMP 


@KBMODE 




289 


02CE 








.PAGE 


'COMMAND TABLE ' 




290 


02CE 














291 


02CE 


02CF 


T 


CMDTBL: 


.WORD 


. + 1 




292 


02CF 


4342 


A 




.ASCII 


'CB' 




293 


02D0 


035C 


T 




.WORD 


CLRBUF 




294 


0 2D1 


434C 


A 




.ASCII 


'cl' 




295 


02D2 


0490 


T 




.WORD 


COPYLN 




296 


02D3 


444C 


A 




.ASCII 


'dl ' 




297 


02D4 


0360 


T 




.WORD 


DELELN 





EDIT16 



298 


02D5 


4653 


A 




.ASCII 


FS 


299 


02D6 


038D 


T 




.WORD 


FNDSTR 


300 


02D7 


4850 


A 




.ASCII 


'HP ' 


301 


0 2D8 


0620 


T 




.WORD 


PRINTL 


302 


02D9 


4B42 


A 




.ASCII 


KB 


303 


02DA 


053E 


T 


KBMODE: 


.WORD 


KBREAD 


304 


02DB 


4C46 


A 




.ASCII 


LF 


305 


02DC 


0638 


T 




.WORD 


LISTF 


306 


02DD 


4C4C 


A 




.ASCII 


LL 


307 


02DE 


063E 


T 




.WORD 


LISTL 


308 


02DF 


4C53 


A 




.ASCII 


LS 


309 


02E0 


061F 


T 




.WORD 


TYPEL 


310 


02E1 


4D44 


A 




.ASCII 


* _ _ _ * 

MD 


311 


02E2 


03A9 


T 




.WORD 


MODLN 


312 


02E3 


4D53 


A 




.ASCII 


MS 


313 


02E4 


038F 


T 




.WORD 


MODSTR 


314 


02E5 


4D56 


A 




.ASCII 


MV 


315 


02E6 


04A4 


T 




.WORD 


MOVELN 


316 


02E7 


5054 


A 




.ASCII 


PT 


317 


02E8 


061D 


T 




.WORD 


PUNCHL 


318 


02E9 


5243 


A 




.ASCII 


RC 


319 


02EA 


0540 


T 




.WORD 


CRREAD 


320 


02EB 


5254 


A 




.ASCII 


'RT' 


321 


02EC 


0542 


T 




.WORD 


PTREAD 


322 


0 2ED 


5354 


A 




.ASCII 


'ST' 


323 


02EE 


04D9 


T 




• WORD 


SETTAB 


324 


02EF 


544C 


A 




•ASCII 


'TL ' 


325 


02F0 


0519 


T 




.WORD 


LEADTR 


326 


02F1 


02EF 


T 


ENDTBL: 


.WORD 


.-2 


327 


02F2 








.PAGE 


'GET RANGE 


328 


02F2 








. LOCAL 




329 


02F2 












330 


02F2 


8C06 


B 


RNGE: 


LD 


3 , ADRBUF 


331 


02F3 


4C00 


A 


RNGE1 : 


LI 


0,0 


332 


02F4 


A020 


B 




ST 


0 , RGFLG 


333 


02F5 


294E 


A 


$7: 


JSR 


GETDEC 


334 


02F6 


2116 


A 




JMP 


$10 


335 


02F7 


F42B 


B 




SKNE 


1 , ZERO 


336 


02F8 


2465 


I 




JMP 


WAIT1 


337 


02F9 


2922 


A 




JSR 


STRBUF 


338 


02FA 


7824 


B 




ISZ 


RNGTST 


339 


02FB 


F039 


B 




SKNE 


0,H2F 


340 


0 2FC 


210B 


A 




JMP 


$9 


341 


02FD 


F031 


B 




SKNE 


0 r H0D 


342 


02FE 


2117 


A 




JMP 


TERRNG 


343 


02FF 


F038 


B 




SKNE 


0,H2C 


344 


0300 


2103 


A 




JMP 


$8 


345 


0301 


F03C 


B 




SKNE 


0 r H54 


346 


0302 


2117 


A 




JMP 


$12 


347 


0303 


2464 


I 




JMP 


WAITCR 


348 


0304 












349 


0304 


4DFF 


A 


$8: 


LI 


1,-1 


350 


0305 


2916 


A 




JSR 


STRBUF 


351 


0306 


7823 


B 




ISZ 


NUMTST 


352 


0307 


21EB 


A 




JMP 


RNGE1 


353 


0308 












354 


0308 


8020 


B 


$9: 


LD 


0, RGFLG 


355 


0309 


150B 


A 




BOC 


NZRO,$10A 


356 


030A 


7820 


B 




ISZ 


RGFLG 


357 


030B 


7823 


B 




ISZ 


NUMTST 


358 


030C 


21E8 


A 




JMP 


$7 


359 


030D 












360 


030D 


8423 


B 


$10: 


LD 


1, NUMTST 


361 


030E 


4900 


A 




AISZ 


1,0 


362 


030F 


2465 


I 




JMP 


WAIT1 



;SKIP TO NEXT CARRIAGE RETURN 
SLASH 

CARRIAGE-RETURN 
COMMA 
ASCII T 
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363 


0310 


F037 


B 




SKNE 


0,H27 


364 


0311 


210F 


A 




JMP 


GETSTR 


365 


0312 


F03C 


B 




SKNE 


0,H54 


366 


0313 


2106 


A 




JMP 


$12 


367 


0314 


48F3 


A 




AISZ 


0,-X'0D 


368 


0315 


2464 


I 


$10A: 


JMP 


WAITCR 


369 


0316 


4DFF 


A 


TERRNG: 


LI 


1,-1 


370 


0317 


2904 


A 




JSR 


STRBUF 


371 


0318 


4D0D 


A 




LI 


1,X'0D 


372 


0319 


2104 


A 




JMP 


STRB2 


373 


031A 












374 


031A 


29FB 


A 


$12: 


JSR 


TERRNG 


375 


031B 


0201 


A 




RTS 


1 


376 


031C 












377 


031C 


FC0B 


B 


STRBUF: 


SKNE 


3 , RBMAX 


378 


031D 


2464 


I 




JMP 


WAITCR 


379 


031E 


A700 


A 


STRB2: 


ST 


1,(3) 


380 


031F 


4B01 


A 




AISZ 


3,1 


381 


0320 


0200 


A 




RTS 





382 


0321 








.PAGE 


'GET STRING ROUTINE' 


383 


0321 






» 






384 


0321 


8024 


B 


GETSTR: 


LD 


0 , RNGTST 


385 


0322 


1505 


A 




BOC 


NZRO,GETSl 


386 


0323 


841D 


B 




LD 


1 ,CMND 


387 


0324 


F44B 


B 




SKNE 


1,ASCFS 


388 


0325 


2103 


A 




JMP 


GETS2 


389 


0326 


F44A 


B 




SKNE 


1 ,ASCMS 


390 


0327 


2101 


A 




JMP 


GETS2 


391 


0328 


2464 


I 


GETS1: 


JMP 


WAITCR 


392 


0329 


8806 


B 


GETS2: 


LD 


2 , ADRBUF 


393 


032A 


4A01 


A 




AISZ 


2,1 


394 


032B 


8412 


B 




LD 


1 ,MAXSTR 


395 


032C 


2C56 


B 


$4: 


JSR 


@SGETCO 


396 


032D 


A200 


A 


$4A: 


ST 


0,(2) 


397 


032E 


4A01 


A 




AISZ 


2,1 


398 


032F 


F037 


B 




SKNE 


0,H27 


399 


0330 


2105 


A 




JMP 


$5 


400 


n -t i i 
fJJX 


F031 


3 




SKNE 


0,H0D 


401 


0332 


2450 


B 




JMP 


@TYPERR 


402 


0333 


49FF 


A 




AISZ 


1,-1 


40 3 


0334 


21F7 


A 




JMP 


$4 


404 


0335 


2464 


I 




JMP 


WAITCR 


405 


0336 












406 


0336 


2C56 


B 


$5: 


JSR 


@SGETCO 


407 


0337 


F031 


B 




SKNE 


0,H0D 


408 


0338 


2103 


A 




JMP 


$6 


409 


0339 


49FF 


A 




AISZ 


1,-1 


410 


033A 


21F2 


A 




JMP 


$4A 


411 


033B 


2464 


I 




JMP 


WAITCR 


412 


033C 












413 


033C 


D412 


B 


$6: 


SUB 


1,MAXSTR 


414 


033D 


5101 


A 




CAI 


1,1 


415 


033E 


B406 


B 




ST 


1 , @ADRBUF 


416 


033F 


4CFF 


A 




LI 


0 r -l 


417 


0340 


A024 


B 




ST 


0 , RNGTST 


418 


0341 


4900 


A 




AISZ 


1,0 


419 


0342 


2466 


I 




JMP 


JMPTBL 


420 


0343 


2450 


B 




JMP 


9TYPERR 
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421 0344 . PAGE 'GET DECIMAL ROUTINE ' 

422 0344 ; 

423 0344 4D00 A GETDEC : LI 1,0 



424 


0345 


4E00 


A 




LI 


2,0 


425 


0346 


2C56 


B 


$1: 


JSR 


@SGETCO 


426 


0347 


F036 


B 




SKNE 


0,H20 


427 


0348 


210A 


A 




JMP 


$2 


428 


0349 


E03A 


B 




SKG 


0,H39 


429 


034A 


E039 


B 




SKG 


0,H2F 


430 


034B 


210D 


A 




JMP 


$3 


431 


034C 


6032 


B 




AND 


0,H0F 


432 


034D 


5D04 


A 




SHL 


1,4 


433 


034E 


3100 


A 




RADD 


0,1 


434 


034F 


4A01 


A 




AISZ 


2,1 


435 


0350 


E82E 


B 




SKG 


2,H04 


436 


0351 


21F4 


A 




JMP 


$1 


437 


0352 


2464 


I 




JMP 


WAITCR 


438 


0353 












439 


0353 


3881 


A 


$2: 


RCPY 


2,0 


440 


0354 


11F1 


A 




BOC 


ZRO,$l 


441 


0355 


2C56 


B 




JSR 


@SGETCO 


442 


0356 


F036 


B 




SKNE 


0,H20 


443 


0357 


21FD 


A 




JMP 


.-2 


444 


0358 


0201 


A 




RTS 


1 


445 


0359 












446 


0359 


4A00 


A 


$3: 


AISZ 


2,0 


447 


035A 


0201 


A 




RTS 


1 


448 


035B 


0200 


A 




RTS 





449 035C 

450 035C ? 

451 035C 2C67 I CLRBUF: 

452 035D 8C00 B 

453 035E AC01 B 

454 035F 2458 B 



.PAGE 'CLEAR BUFFER ROUTINE ' 

JSR RNGZRO 

LD 3, FIRST 

ST 3, LAST 

JMP @ START 1 



455 0360 .PAGE 'DELETE LINE ROUTINE' 

456 0360 .LOCAL 

457 0360 ; 



458 


0360 


2C68 


I 


DELELN : 


JSR 


EXPZRO 


459 


0361 


2C69 


I 


DELI : 


JSR 


STLOHI 


460 


0362 


2110 


A 




JMP 


NUMBER 


461 


0363 


8017 


B 




LD 


0,RLO 


462 


0364 


1501 


A 




BOC 


NZRO, .+2 


463 


0365 


2C50 


B 




JSR 


§TYPERR 


464 


0366 


2C6A 


I 




JSR 


SRCHRG 


465 


0367 


21F9 


A 




JMP 


DELI 


466 


0368 


8C18 


B 




LD 


3,RHI 


467 


0369 


FC01 


B 


$1: 


SKNE 


3, LAST 


468 


036A 


2105 


A 




JMP 


$2 


469 


036B 


8300 


A 




LD 


0, (3) 


470 


036C 


B017 


B 




ST 


0,@RLO 


471 


036D 


7817 


B 




ISZ 


RLO 


472 


036E 


4B01 


A 




AISZ 


3,1 


473 


036F 


21F9 


A 




JMP 


$1 


474 


0370 












475 


0370 


8C17 


B 


$2: 


LD 


3, RLO 


476 


0371 


AC01 


B 




ST 


3, LAST 


477 


0372 


21EE 


A 




JMP 


DELI 


478 


0373 












479 


0373 


8022 


B 


NUMBER: 


LD 


0 ,FNDTST 


480 


0374 


1503 


A 




BOC 


NZRO,NUMl 
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481 


0375 


2C57 


B 


NUM3: 


JSR 


482 


0376 


07FE 


T 




.WORD 


483 


0377 


245E 


B 




JMP 


484 


0378 


8C00 


B 


NUM1 : 


LD 


485 


0379 


4D00 


A 




LI 


486 


037A 


FC01 


B 


NUM2: 


SKNE 


487 


037B 


245E 


B 




JMP 


488 


037C 


2903 


A 




JSR 


489 


037D 


A700 


A 




ST 


490 


037E 


2C6B 


I 




JSR 


491 


037F 


21FA 


A 




JMP 


492 


0380 










493 


0380 


4901 


A 


INCONE: 


AISZ 


494 


0381 


3481 


A 




RCPY 


495 


0382 


2C6C 


I 




JSR 


496 


0383 


4906 


A 




AISZ 


497 


0384 


3481 


A 




RCPY 


498 


0385 


5CFC 


A 




SHR 


499 


0386 


2C6C 


I 




JSR 


500 


0387 


4960 


A 




AISZ 


501 


0388 


3481 


A 




RCPY 


502 


0389 


5CF8 


A 




SHR 


503 


038A 


2C6C 


I 




JSR 


504 


038B 


C446 


B 




ADD 


505 


038C 


0200 


A 




RTS 


506 


038D 








.PAGE 


507 


038D 








. LOCAI 


508 


038D 










509 


038D 


4C00 


A 


FNDSTR: 


LI 


510 


038E 


2101 


A 




JMP 


511 


038F 


4C01 


A 


MODSTR: 


LI 


512 


0390 


A01D 


B 




ST 


513 


0391 


8024 


B 




LD 


514 


0392 


4801 


A 




AISZ 


515 


0393 


2450 


B 




JMP 


516 


0394 


2C68 


I 




JSR 


517 


0395 


8C01 


B 




LD 


518 


0396 


AC 24 


B 




ST 


519 


0397 


8C00 


B 




LD 


520 


0398 


FC01 


B 




SKNE 


521 


0399 


246D 


I 




JMP 


522 


039A 


AC1E 


B 




ST 


523 


039B 


2917 


A 


$3: 


JSR 


524 


039C 


2929 


A 




JSR 


525 


039D 


2106 


A 




JMP 


526 


039E 


7822 


B 




ISZ 


527 


039F 


801D 


B 




LD 


528 


03A0 


1102 


A 




BOC 


529 


03A1 


2946 


A 




JSR 


530 


03A2 


2103 


A 




JMP 


531 


03A3 


2919 


A 


$3A: 


JSR 


532 


03A4 


8C23 


B 


$3B: 


LD 


533 


03A5 


AC1E 


B 




ST 


534 


03A6 


FC24 


B 


$3C: 


SKNE 


535 


03A7 


21CB 


A 




JMP 


536 


03A8 


21F2 


A 




JMP 


537 


03A9 








.PAGE 


538 


03A9 










539 


03A9 


2C6E 


I 


MODLN : 


JSR 


540 


03AA 


AC1E 


B 




ST 


541 


03AB 


8C18 


B 




LD 



@STYPE 
VOID 
@RINIT1 
3 ,FIRST 
1,0 

3, LAST 

0RINIT1 

INCONE 

1, (3) 

ANDH0D 

NUM2 

1,1 
1,0 

ANDH0A 

1,6 

1.0 

0. 4 

ANDH0A 

1, X'60 
1,0 

0. 8 

ANDH0A 

1, H600 



'FIND/MODIFY STRING ROUTINE' 



0,0 
. + 2 
0,1 

0,CMND 
0 ,RNGTST 
0,1 

@TYPERR 

EXPZRO 

3, LAST 

3 , RNGTST 

3, FIRST 

3, LAST 

NOFILE 

3,EXPMND 

SETLN 

SRCHST 

$3B 

FNDTST 

0,CMND 

ZRO,$3A 

MODIFY 

$3C 

OUTBUF 
3,NUMTST 
3 , EXPMND 
3 , RNGTST 
NUMBER 
$3 



'MODIFY LINE ROUTINE' 

SETLHR 
3 , EXPMND 
3,RHI 
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542 03AC AC24 B ST 

543 03AD 2905 A MODI: JSR 

544 03AE 2939 A JSR 

545 03AF 8C1E B LD 

546 03B0 FC24 B SKNE 

547 03B1 21F7 A JMP 

548 03B2 21FA A JMP 

549 03B3 .PAGE 

550 03B3 ; 

551 03B3 8C1E B SETLN : LD 

552 03B4 8007 B LD 

553 03B5 A025 B ST 

554 03B6 8005 B LD 

555 03B7 A00A B ST 

556 03B8 2403 B JMP 

557 03B9 ; 

558 03B9 B025 B SETBUF: ST 

559 03BA 7825 B If.Z 

560 03BB AC23 B ST 

561 03BC 0200 A RTS 

562 03BD ; 

563 03BD 8C07 B OUTBUF: LD 

564 03BE 8300 A OUTl: LD 

565 03BF 2C51 B JSR 

566 03C0 4B01 A AISZ 

567 03C1 48F3 A AISZ 

568 03C2 21FB A JMP 

569 03C3 4C0A A LI 

570 03C4 2C51 B JSR 

571 03C5 0200 A RTS 

572 03C6 .PAGE 

573 03C6 ; 

574 03C6 8C08 B SRCHST: LD 

575 03C7 4D0D A LI 

576 03C8 8806 B SRCH1: LD 

577 03C9 8200 A LD 

578 03CA A025 B ST 

579 03CB 4A01 A AISZ 

580 03CC 8200 A LD 

581 03CD F300 A $1: SKNE 

582 03CE 2104 A JMP 

583 03CF F700 A SKNE 

584 03D0 2110 A JMP 

585 03D1 4B01 A AISZ 

586 03D2 21FA A JMP 

587 03D3 ; 

588 03D3 2C6F I $2: JSR 

589 03D4 7C25 B $2A: DSZ 

590 03D5 2101 A JMP 

591 03D6 0201 A RTS 

592 03D7 4A01 A AISZ 

593 03D8 4B01 A AISZ 

594 03D9 8200 A LD 

595 03DA F300 A SKNE 

596 03DB 21F8 A JMP 

597 03DC F700 A SKNE 

598 03DD 2103 A JMP 

599 03DE 2C70 I JSR 

600 03DF 4B01 A AISZ 

601 03E0 21E7 A JMP 

602 03E1 ; 



3 , RNGTST 

SETLN 

MODI FY 

3,EXPMND 

3 , RNGTST 

MODLN 

MODI 



'SET/OUTPUT LINE IN BUFFER ' 

3 , EXPMND 
0 , ADDBUF 
0,PTBUF 
0 , ADSETB 
0, DEVICE 
@ADPLN 

0,GPTBUF 

PTBUF 

3,NUMTST 



3 , ADDBUF 
0, (3) 

@sputc 

3,1 

0,-X'0D 
OUTl 

0,0A ^TRANSMIT LINE-FEED 

@SPUTC 



'SEARCH STRING ROUTINE' 

3,ADBUF2 
1 f X'0D 
2 , ADRBUF 
0,(2) 
0, PTBUF 
2,1 
0,(2) 

0, (3) 
$2 

1, (3) 
$4 
3,1 
$1 

SAVE 
PTBUF 
. + 2 
1 

2,1 
3,1 
0,(2) 

0, (3) 
$2A 

1, (3) 
$4 

RESTOR 

3,1 

SRCH1 
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603 


03E1 


8200 


A $4: 


LD 


0,(2) 


604 


03E2 


48E0 


A 


AISZ 


0,-X'20 


605 


03E3 


0200 


A 


RTS 




606 


03E4 


4A01 


A 


AISZ 


2,1 


607 


03E5 


7C25 


B 


DSZ 


PTBUF 


608 


03E6 


21FA 


A 


JMP 


$4 


609 


03E7 


0201 


A 


RTS 


1 



aim 


0JE.O 








. f AVjfci 


MUD1 ClLi 


oil 


0 JfciO 












CIO 

biz 




Q C 01 1 

oL01 


B 


MUUl r i : 


t r\ 
JjU 


O T ACT 

5 , JjAo i 


c l o 
bl 5 


13 j ty 


pp flr* 
n«l_ I0L 


Q 

D 






5 l btl 1 J3 


bl4 


01 O E 1 A 

0 J LA 


O 1 01 o 

Zl 0 Z 


A 




Tun 
u Fit' 


MUUl 


0 1 D 


n t pd 
a jtiU 


ZL. / 1 


T 
I 




d oK 


BU r ULib 


bib 


CI 0 


Z4 D£j 


B 




Tun 

J Mr 


(3 KIN 111 


b 1 / 


ft Tnn 

0 5£>u 


open 


B 


MODI : 


LD 


O ATM/PE*«T1 

5 , ADKbCil 


618 


03EE 


AC 1 F 


B 




b 1 


5 , MUDb 


c i q 

bi y 


fl n o n 

0 J hr 


o r» on 
oL01 


B 




LD 


3 , LAST 


c o oi 
bZ0 


0jr 0 


A O 1 C 

ALlb 


B 




ST 


O OUT 

3 , SHI 


C O T 

bZl 


0 or 1 


zy iy 


A 




Ton 

JSR 


MOD 


coo 
OZZ 


a5r Z 


oLl h 


B 




LD 


5 , E.XPMND 


coo 
OZ 5 


a ~i c o. 


A not i 

4 B0 1 


A 




a T C 7 

Alb L 


0. 1 


c oa 
b Zh 


01 T VA 

lo Or 4 


AL 1 / 


B 




b 1 


5 , KliU 


b Z D 






B 




LD 


5 f NUM1 b 1 


626 


03F6 


AC 18 


B 




ST 


3 , RHI 


COT 

b z / 


B Jt / 


oLZ4 


B 






0 DMfPCT^ 

j , KNGlb 1 


o/ts 




AL 1 D 


B 




C HP 

b 1 


o or c\ 
5 , bLU 


£ O Q 

bzy 


01 1 PQ 

W J r y 


op o o 

ZL / Z 


T 
1 




TOD 

JbK 


Ubn It 1 


C 0 01 

b J0 


01 0 P A 


q c on 
8L01 


B 




r 

LU 


o r A C rp 

5 t LAb 1 


COT 

b 31 


03FB 


A O 1 C 

ALlb 


B 




ST 


3 , SHI 


coo 
b-> Z 


0 Jr L 


o r* oi o 
oL0o 


B 




LD 


5 , AD3UF2 


coo 
b J J 


0 3FD 


o o o o 
ZC73 


I 




JSR 


c* m n n o 

STBUF 


a a 
bo4 


0 3FE 


OO01 


B 




LD 


2 , LAST 




01 0 CI? 

10 Jr r 


BLlb 


B 




LD 


3 , SHI 


C 0 c 

b Jo 


01 /I 0101 

04 00 


a r* oi l 
AL01 


B 




ST 


3 , LAST 


coo 
bi / 


04 01 


8C15 


B 




LD 


3 , SL0 


coo 
b Jo 


01 /I 01 o 

ana Z 


Aolb 


B 




ST 


2 , SL0 


C O Q 

b jy 


a a a o 
04 0 J 


AO 1 C 

AC lb 


B 




ST 


3 , SH I 


c a a 
b40 


01 01 /I 

0404 


0 O j| 

zL /4 


1 




JSR 


DSHI FT 


C A 1 

b41 


04 0 b 


oClb 


B 




LD 


3 , SHI 


C A O 

b4 Z 


01 Jl 01 c 

04 0b 


AC 2 4 


B 




ST 


3 , RNGTST 


fi 4 "3 


CI A CI 7 




" 




LD 


3 f RHI 


b 4 4 


0 4 0o 


AC IE 


B 




ST 


3 , EXPMND 


c >i c 
b4 D 


oi a ack 

0 4 0y 


01 O 01 01 

0/00 


A 




RTS 




C A c 

b4b 


04 0A 












647 


040A 


2C59 


B 


MODI 2: 


JSR 


9TRISTR 


648 


040B 












649 


040B 


29B1 


A 


MOD: 


JSR 


0UTBUF 


650 


040C 


8051 


B 




LD 


0,SPUTC 


651 


040D 


A00A 


B 




ST 


0 f DEVICE 


652 


040E 


2C57 


B 




JSR 


@STYPE 


653 


040F 


0812 


T 




.WORD 


ALTERS 


654 


0410 


2940 


A 




JSR 


GLLEN 


655 


0411 


8C29 


B 




LD 


3 f LLEN 


656 


0412 


AC 2 A 


B 




ST 


3 f LLEN1 


657 


0413 


8C08 


B 




LD 


3 f ADBUF2 


658 


0414 


AC 25 


B 




ST 


3 , PTBUF 


659 


0415 


8C09 


B 




LD 


3 , ADBUF 


660 


0416 


4E41 


A 




LI 


2 f 65 


661 


0417 


2C53 


B 




JSR 


9SGEC0 


662 


0418 


2C75 


I 




JSR 


TTYINP 


663 


0419 


2476 


I 




JMP 


REINIT 



; CHECK FOR BUFFER OVERFLOW 



;SAVE CURRENT LINE LENGTH 



;ALL0W 65 CHARS PER LINE 
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664 


041A 


2115 


A 




JMP 


TESTCZ 


665 


041B 


0200 


A 




RTS 




666 


041C 


2C53 


B 


$6: 


JSR 


§SGECO 


667 


041D 


2C75 


I 




JSR 


TTYINP 


668 


041E 


21EB 


A 




JMP 


MODI 2 


669 


041F 


2110 


A 




JMP 


TESTCZ 


670 


0420 


213D 


A 




JMP 


$10 


671 


0421 


4C0D 


A 


$6A: 


LI 


0 ,X'0D 


672 


0422 


A300 


A 




ST 


0, (3) 


673 


0423 


4B01 


A 




AISZ 


3,1 


674 


0424 


4C0A 


A 




LI 


0,X'0A 


675 


0425 


A300 


A 




ST 


0, (3) 


676 


0426 


2C4F 


B 




JSR 


@SCRLF 


677 


0427 


8808 


B 




LD 


2 , ADBUF2 


678 


0428 


8C09 


B 




LD 


3 , ADBUF 


679 


0429 


8300 


A 


$6B: 


LD 


0,(3) 


680 


042A 


A200 


A 




ST 


0,(2) 


681 


04 2B 


4B01 


A 




AISZ 


3,1 


682 


04 2C 


4A01 


A 




AISZ 


2,1 


683 


042D 


48F6 


A 




AISZ 


0 ,-X'0A 


684 


042E 


21 FA 


A 




JMP 


$6B 


685 


042F 


21DB 


A 




JMP 


MOD 


686 


0430 






J 






687 


0430 


C849 


B 


TESTCZ : 


ADD 


2 ,HFFFF 


688 


0431 


F034 


B 




SKNE 


0 ,H18 


689 


0432 


2137 


A 




JMP 


$11 


690 


0433 


F02C 


B 




SKNE 


0 ,H01 


691 


0434 


2142 


A 




JMP 


$12 


692 


0435 


F02E 


B 




SKNE 


0 ,H04 


693 


0436 


2157 


A 




JMP 


$13 


694 


0437 


C82C 


B 




ADD 


2, H01 


695 


0438 


48E6 


A 




AISZ 


0,-X'lA 


696 


0439 


21E2 


A 




JMP 


$6 


697 


043A 


2C52 


B 




JSR 


@SGETC 


698 


043B 


E03E 


B 




SKG 


0,H5F 


699 


043C 


E035 


B 




SKG 


0 ,H1F 


700 


043D 


210E 


A 




JMP 


$71 


701 


043E 


3181 


A 




RCPY 


0,1 


702 


043F 


9025 


B 


$7: 


LD 


0,@PTBUF 


703 


0440 


A300 


A 




ST 


0,(3) 


704 


0441 


F700 


A 




SKNE 


1, (3) 


705 


0442 


21D9 


A 




JMP 


$6 


706 


0443 


2C51 


B 




JSR 


@sputc 


707 


0444 


7825 


B 




ISZ 


PTBOF 


708 


0445 


4B01 


A 




AISZ 


3,1 


709 


0446 


F030 


B 




SKNE 


0,H0A 


710 


0447 


21C3 


A 




JMP 


MOD 


711 


0448 


4AFF 


A 




AISZ 


2,-1 


712 


0449 


21F5 


A 




JMP 


$7 


713 


044A 


2C4F 


B 




JSR 


9SCRLF 


714 


044B 


21BF 


A 




JMP 


MOD 


715 


044C 












716 


044C 


4C0D 


A 


$71: 


LI 


0 ,0D 


717 


044D 


2C51 


B 




JSR 


0SPUTC 


718 


044E 


4C0A 


A 




LI 


0,0A 


719 


044F 


2C51 


B 




JSR 


@SPUTC 


720 


0450 


21BA 


A 




JMP 


MOD 


721 


0451 












722 


0451 


8C08 


B 


GLLEN: 


LD 


3,ADBUF2 


723 


0452 


AC25 


B 




ST 


3,PTBUF 


724 


0453 


4C00 


A 




LI 


0,0 


725 


0454 


A029 


B 




ST 


0 , LLEN 


726 


0455 


8809 


B 




LD 


2, ADBUF 


727 


0456 


9025 


B 


$7A: 


LD 


0,@PTBUF 


728 


0457 


A200 


A 




ST 


0,(2) 



; SPREAD BUFFER TO INSERT LONGER LINE 



CTRL/X 
CTRL/A 
CTRL/D 

; CTRL/Z 



; ERROR 

;COPY TO LINE BUFFER 

;UP TO CHARACTER SPECIFIED 



; ECHO CHARACTER COPIED 



; TRANSMIT LF-CR 



; COUNT NUMBER OF CHARACTERS IN LINE 
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729 


0458 


4A01 


A 




AISZ 


2,1 


730 


0459 


F031 


B 




SKNE 


0 , H0D 


731 


045A 


0200 


A 




RTS 




732 


045B 


7825 


B 




ISZ 


PTBUF 


733 


045C 


7829 


B 




ISZ 


LLEN 


734 


045D 


21F8 


A 




JMP 


$7A 


735 


045E 












736 


045E 


8425 


B 


$10: 


LD 


1, PTBUF 


737 


045F 


D408 


B 




SUB 


1 ,ADBUF2 


738 


0460 


E42A 


B 




SKG 


1 ,LLEN1 


739 


0461 


2101 


A 




JMP 


$10A 


740 


0462 


21BE 


A 




JMP 


$6A 


741 


0463 


9025 


B 


$10A: 


LD 


0,@PTBUF 


742 


0464 


F030 


B 




SKNE 


0,H0A 


743 


0465 


21BB 


A 




JMP 


$6A 


744 


0466 


A300 


A 




ST 


0,(3) 


745 


0467 


7825 


B 




ISZ 


PTBUF 


746 


0468 


4B01 


A 




AISZ 


3,1 
$10A 


747 


0469 


21F9 


A 




JMP 


748 


046A 












749 


046A 


4C5E 


A 


$11: 


LI 


0,X'5E 


750 


046B 


2C51 


B 




JSR 


@SPUTC 


751 


046C 


3D81 


A 




RCPY 


3,1 


752 


046D 


8301 


A 


$11A: 


LD 


0,1(3) 


753 


046E 


A300 


A 




ST 


0, (3) 


754 


046F 


7C29 


B 




DSZ 


LLEN 


755 


0470 


F031 


B 




SKNE 


0,H0D 


756 


0471 


2102 


A 




JMP 


. + 3 


757 


0472 


4B01 


A 




AISZ 


3,1 


758 


0473 


21F9 


A 




JMP 


$11A 


759 


0474 


7825 


3 




ISZ 


PTBUF 


760 


0475 


3781 


A 




RCPY 


1,3 


761 


0476 


21A5 


A 




JMP 


$6 


762 


0477 






* 






763 


0477 


4C3C 


A 


$12: 


LI 


0,X'3C 


764 


0478 


2C51 


B 




JSR 


@SPUTC 


765 


0479 


2C52 


B 


$12C: 


JSR 


@SGETC 


766 


047A 


C849 


B 




ADD 


2 ,HFFFF 


767 


047B 


F031 


B 




SKNE 


0,H0D 


768 


047C 


2109 


A 




JMP 


S12A 


769 


047D 


2C51 


B 




JSR 


@SPUTC 


770 


047E 


8429 


B 




LD 


1 ,LLEN 


771 


04 7 F 


E414 


B 




SKG 


1,LLIM 


772 


0480 


2101 


A 




JMP 


. + 2 


773 


0481 


2108 


A 




JMP 


$12B 


774 


0482 


A300 


A 




ST 


0,(3) 


775 


0483 


7829 


B 




ISZ 


LLEN 


776 


0484 


4B01 


A 




AISZ 


3,1 


777 


0485 


21F3 


A 




JMP 


$12C 


778 


0486 


4C3E 


A 


$12A: 


LI 


0,X'3E 


779 


0487 


2C51 


B 




JSR 


@SPUTC 


780 


0488 


2C4F 


B 




JSR 


8SCRLF 


781 


0489 


21D4 


A 




JMP 


$10 


782 


048A 










783 


048A 


2C4F 


B 


$12B: 


JSR 


@SCRLF 


784 


048B 


2C57 


B 




JSR 


@STYPE 


785 


048C 


0817 


T 




.WORD 


LINLEN 


786 


048D 


2477 


I 




JMP 


MOD 


787 


048E 












788 


048E 


2C4F 


B 


$13: 


JSR 


@SCRLF 


789 


048F 


2191 


A 




JMP 


$6A 



;TEST LINE LENGTH 



;FOR SHORT LINE, CLOSE UP BUFFER 



; DELETE CHARACTER 



; DECREMENT LINE LENGTH 

; TERMINATE ON CARRIAGE RETURN 



; INSERT CHARACTER 
; SEND 'X' 



? TERMINATE ON CARRIAGE RETURN 

;ECHO CHARACTER INSERTED 
;TEST FOR LINE FULL 



; INCREMENT LINE LENGTH 



; SEND '>' 



; LINE IS MAXIMUM LENGTH 
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790 


0490 








.PAGE 


* r> s\ r\xr t TITO T"i /~\ r t rn TUP 

COPY LINE ROUTINE 


791 


0490 






i 






792 


0490 


8001 


B 


COPYLN: 


LD 


0 , LAST 


793 


0491 


EC0C 


B 




SKG 


3 , SHT39 


794 


0492 


2102 


A 




JMP 


COP1 


795 


0493 


2C71 


I 




JSR 


n n out T 

BUFULL 


796 


0494 


245E 


B 




JMP 


@RINIT1 


797 


0495 


A016 


B 


COP1 : 


ST 


0 , SHI 


798 


0.496 


291E 


A 


COP2: 


JSR 


SETSR 


799 


0497 


8C17 


B 




LD 


3 , RLO 


800 


0498 


880D 


B 




LD 


2 , END 


801 


0499 


F816 


B 


$8 : 


SKNE 


2 ,SHI 


802 


049A 


2107 


A 




JMP 


$9 


803 


049B 


8300 


A 




LD 


0, (3) 


804 


049C 


B016 


B 




ST 


0 ,@SHI 


805 


049D 


7816 


B 




ISZ 


SHI 


806 


049E 


4B01 


A 




AISZ 


3,1 


807 


049F 


FC18 


B 




SKNE 


3,RHI 


808 


04A0 


21F5 


A 




JMP 


COP 2 


809 


04A1 


21F7 


A 




JMP 


$8 


810 


04A2 












811 


04A2 


2C71 


I 


$9: 


JSR 


BUFULL 


812 


04A3 


2458 


B 




JMP 


9START1 



813 


04A4 








.PAGE 


'MOVE LINE 


814 


04A4 












815 


04A4 


8001 


B 


MOVELN : 


LD 


0,LAST 


816 


04A5 


A016 


B 




ST 


0 r SHI 


817 


04A6 


290E 


A 


MOV1: 


JSR 


SETSR 


818 


04A7 


2915 


A 




JSR 


USHIFT 


819 


04A8 


21FD 


A 




JMP 


MOV1 


820 


04A9 












821 


04A9 


8001 


B 


MLINE: 


LD 


0 , LAST 


822 


04AA 


A015 


B 




ST 


0,SLO 


823 


04AB 


8016 


B 




LD 


0,SHI 


824 


04 AC 


A001 


B 




ST 


0 , LAST 


825 


04AD 


8021 


B 




LD 


0 f EXPTST 


826 


04AE 


1103 


A 




BOC 


ZRO, MLINl 


827 


04AF 


801E 


B 




LD 


0 f EXPMND 


828 


04B0 


A017 


B 




ST 


0 , RLO 


829 


04B1 


2C78 


I 




JSR 


SRCHLN 


830 


04B2 


2479 


I 


MLINl : 


JMP 


NUMBER 


831 


04B3 


2919 


A 




JSR 


DSHIFT 


832 


04B4 


2479 


I 




JMP 


NUMBER 



833 


04B5 






.PAGE 


'SET/SEARCH 


834 


04B5 










835 


04B5 


2C69 


I SETSR: 


JSR 


STLOHI 


836 


04B6 


21F2 


A 


JMP 


MLINE 


837 


04B7 


8017 


B 


LD 


0 f RLO 


838 


04B8 


1501 


A 


BOC 


NZRO, .+2 


839 


04B9 


2450 


B 


JMP 


@TYPERR 


840 


04BA 


2C6A 


I 


JSR 


SRCHRG 


841 


04BB 


21F9 


A 


JMP 


SETSR 


842 


04BC 


0200 


A 


RTS 





843 04BD .PAGE 'SHIFT UP /DOWN ROUTINE ' 

844 04BD ; 

845 04BD 8C17 B USHIFT: LD 3 r RLO 

846 04BE FC18 B SKNE 3 ,RHI 
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847 


04BP 


0200 


A 




848 


04C0 


8300 


A 




849 


04C1 


B016 


B 




850 


04C2 


7C15 


B 




851 


04C3 


7C18 


B 




852 


04C4 


7C01 


B 




853 


04C5 


8301 


A 


USH1: 


854 


04C6 


A300 


A 




855 


04C7 


4B01 


A 




856 


04C8 


FC16 


B 




857 


04C9 


21F3 


A 




858 


04CA 


21 FA 


A 




859 


04CB 






f 


860 


04CB 


9001 


B 


USH2: 


861 


04CC 


A300 


A 




862 


04CD 


8C01 


B 


DSHIFT: 


863 


04CE 


FC15 


B 




864 


04CF 


0200 


A 




865 


04D0 


7815 


B 




866 


04D1 


7816 


B 




867 


04D2 


7818 


B 




868 


04D3 


83FF 


A 


DSH1: 


869 


04D4 


A300 


A 




870 


04D5 


4BFF 


A 




871 


04D6 


FC17 


B 




872 


04D7 


21F3 


A 




873 


04D8 


21 FA 


A 




874 


04D9 








875 


04D9 








876 


04D9 






7 


877 


04D9 


2C67 


I 


SETTAB : 


878 


04DA 


2C4F 


B 


SETT1: 


879 


04DB 


4D07 


A 




880 


04DC 


4C20 


A 




881 


04OD 


2C51 


B 




882 


04DE 


49FF 


A 




883 


04DF 


21FD 


A 




884 


04E0 


4E3B 


A 




885 


04E1 


4C31 


A 




886 


04E2 


2C51 


B 


$1: 


887 


04E3 


F03A 


B 




888 


04E4 


211B 


A 




889 


04E5 


4801 


A 




890 


04E6 


4AFF 


A 


$1A: 


891 


04E7 


21 FA 


A 




892 


04E8 


2C4F 


B 




893 


04E9 


2C57 


B 




894 


04EA 


07EE 


T 




895 


04EB 


4E00 


A 




896 


04EC 


4D00 


A 




897 


04ED 


2C56 


B 




898 


04EE 


2103 


A 




899 


04EF 


2C53 


B 


$2: 


900 


04F0 


F033 


B 




901 


04F1 


21E8 


A 




902 


04F2 


F031 


B 




903 


04F3 


2110 


A 




904 


04F4 


F036 


B 




905 


04F5 


2106 


A 




906 


04F6 


F82D 


B 




907 


04F7 


21E2 


A 




908 


04F8 


8C0E 


B 




909 


04 F9 


3B00 


A 




910 


04FA 


A700 


A 




911 


04 FB 


4A01 


A 





RTS 

LD 0,(3) 

ST 0,§SHI 

DSZ SLO 

DSZ RHI 

DSZ LAST 

LD 0,1(3) 

ST 0,(3) 

AISZ 3,1 

SKNE 3, SHI 

JMP USHIFT 

JMP USH1 

LD 0,@LAST 

ST 0,(3) 

LD 3, LAST 

SKNE 3, SLO 
RTS 

ISZ SLO 

ISZ SHI 

ISZ RHI 

LD 0,-1(3) 

ST 0,(3) 

AISZ 3,-1 

SKNE 3,RLO 

JMP USH2 

JMP DSH1 



.PAGE 'SET TAB ROUTINE ' 
.LOCAL 

JSR RNGZRO 

JSR @SCRLF 

LI 1,7 

LI 0,X'20 

JSR @SPUTC 

AISZ 1,-1 

JMP .-2 

LI 2,59 

LI 0,X'31 

JSR @SPUTC 

SKNE 0,H39 

JMP $4 

AISZ 0,1 

AISZ 2,-1 

JMP $1 

JSR @SCRLF 

JSR ?STYPE 

.WORD TYPE1 

LI 2,0 

LI 1,0 

JSR @SGETCO 

JMP .+4 

JSR @SGECO 

SKNE 0,H11 

JMP SETT1 

SKNE 0,H0D 

JMP TSTTAB 

SKNE 0,H20 

JMP $3 

SKNE 2,H03 

JMP SETT1 

LD 3 , ADTAB 

RADD 2 , 3 

ST 1,(3) 

AISZ 2,1 
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912 


04FC 


4901 


A 


$3: 


AISZ 


1,1 


913 


04FD 


E43B 


B 




SKG 


1 ,H40 


914 


04FE 


21F0 


A 




JMP 


$2 


915 


04FF 


21DA 


A 




JMP 


SETT1 


916 


0500 










0,X'25 


917 


0500 


4C25 


A 


$4: 


LI 


918 


0501 


2C51 


B 




JSR 


@SPUTC 


919 


0502 


4C31 


A 




LI 


0,X'31 


920 


0503 


21E2 


A 




JMP 


$1A 



921 


0504 








.PAGE 




922 


0504 


2C57 


B 


TSTTAB : 


JSR 


@STYPE 


923 


0505 


07E9 


T 




.WORD 


VERIFY 


924 


0506 


4E00 


A 




LI 


2,0 


925 


0507 


4D00 


A 




LI 


1,0 


926 


0508 


8C0E 


B 




LD 


3 , ADT AB 


927 


0509 


4C20 


A 


TSTT1 : 


LI 


0 f X'20 


928 


050A 


F700 


A 


TSTT2 : 


SKNE 


1,(3) 


929 


050B 


2105 


A 




JMP 


$5 


930 


050C 


4901 


A 




AISZ 


1,1 


931 


050D 


2C51 


B 




JSR 


@SPUTC 


932 


050E 


E43B 


B 




SKG 


1,H40 


933 


050F 


21 FA 


A 




JMP 


TSTT2 


934 


0510 


2458 


B 




JMP 


eSTARTl 


935 


0511 












936 


0511 


4B01 


A 


$5: 


AISZ 


3,1 


937 


0512 


4C31 


A 




LI 


0,X'31 


938 


0513 


2C51 


B 




JSR 


espuTC 


939 


0514 


4901 


A 




AISZ 


1,1 


940 


0515 


4A01 


A 




AISZ 


2,1 


941 


0516 


F82D 


B 




SKNE 


2,H03 


942 


0517 


2458 


B 




JMP 


8 START 1 


943 


0518 


21F0 


A 




JMP 


TSTT1 



944 


0519 








.PAGE 


'OUTPUT LEADER/TRAILER ROUTINE' 


945 


0519 












946 


0519 


2C68 


I 


LEADTR: 


JSR 


EXPZRO 


947 


051A 


290B 


A 




JSR 


CNVRT 


948 


051B 


4D14 


A 




LI 


1,20 


949 


051C 


5D02 


A 




SHL 


1,2 


950 


051D 


2C57 


B 




JSR 


9STYPE 


951 


051E 


07E0 


T 




.WORD 


TPAK4 


952 


051F 


2C52 


B 




JSR 


@SGETC 


953 


0520 


4C00 


A 




LI 


0,0 


954 


0521 


2C51 


B 




JSR 


3SPUTC 


955 


0522 


49FF 


A 




AISZ 


1,-1 


956 


0523 


21FD 


A 




JMP 


.-2 


957 


0524 


2C52 


B 




JSR 


@SGETC 


958 


0525 


2458 


B 




JMP 


@START1 


959 


0526 








.PAGE 


'BCD TO BINARY CONVERSION ' 


960 


0526 












961 


0526 


3C81 


A 


CNVRT : 


RCPY 


3,0 


962 


0527 


D006 


B 




SUB 


0 , ADRBUF 


963 


0528 


48FD 


A 




AISZ 


0,-3 


964 


0529 


2112 


A 




JMP 


$13 


965 


052A 


87FD 


A 




LD 


1,-3(3) 


966 


052B 


E445 


B 




SKG 


1,H100 


967 


052C 


2101 


A 




JMP 


. + 2 


968 


052D 


2450 


B 


$11: 


JMP 


@TYPERR 
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> 



IMPASP 



REVISION-G 05/16/74 

IMPASP 0000301C 6/25/74 



0000 
0000 
0000 
0000 
0000 
0000 
0000 

8 0000 

9 0000 

10 000D 
OOOE 
OOOF 
0010 
0011 

11 0012 

12 0013 

13 0014 

14 0015 

15 0016 

16 0017 

17 0018 
13 0019 

19 00 1A 

20 001B 

21 00 1C 

22 0010 

23 001 E 

24 001F 

25 0020 

26 0021 

27 0022 

28 0023 

29 01F0 

30 01F0 

31 01 FO 

32 01F0 

33 01F0 

34 01 FO 

35 01F0 

36 01 FO 

37 01F0 

38 01F0 

39 01 FO 



FFFF A 
0001 A 



OOOD 
01F0 
02 06 
0246 
022E 
029F 
0013 
0014 
0243 
0286 
029F 
029F 
029F 
029F 
029F 
029F 
C29F 
029F 
001 F 
0020 
0021 
0022 
0023 
01F0 



0000 A 

0001 A 

0002 A 

0003 A 

0001 A 

0002 A 

0003 A 

0004 A 

0005 A 



.TITLE IMPASPt ■ 0000301C 6/25/74' 

SUBROUTINES NEEDED BY IMP 16 ASSEMBLER 

************************************** 
SIZE8=-1 
SIZE4=-SIZE8 

.ASECT 

• =0D 

•WORD MULT,DIVD,GETC,PUTC,RDCRD 



INBUFB: 
INBUFE: 



PRINT: 



DSKOBJ 

DSKIN: 

DSKTMP 

ABST: 

DSKERR 



ECHOGC 

UNIT 

WDSKTM 

WDSKOB 

RDSKIN 

RDSKTM 

HSPRT 

MESS 

CLOSET 

CLOSEO 



= .+1 
,= .+1 

WORD 
WORD 
WORD 
WORD 
.WORD 
WORC 
.WORD 
,WORC 
WORD 
i WORD 

, = .41 
=. + 1 
= . +1 
= ,+1 
= • + 1 

•=01F0 
. ENCIF 

. ************************************** 

R0=0 
Rl = l 
R2=2 
R3=3 
Z = l 
P = 2 
0DD=3 
B1EQ1=4 
NZ=5 



40 


01 FO 










.PAGE 'MULT/DIV ROUTINES' 


41 


01FO 


0002 


A 


$PSIGN= 


2 


42 


01 FO 


OOOB 


A 


$NRGTO= 


11 


43 


01 FO 


0002 


A 


$ SELFF = 


2 


44 


01 FO 


0003 


A 


$BIT0=3 




45 


01F0 


0000 


A 


ACO=0 




46 


01F0 


0001 


A 


AC1=1 




47 


01F0 


0002 


A 


AC2=2 




48 


01 FO 


0003 


A 


AC3 = 3 




49 


01F0 












50 


O1F0 










MAIN CALLING PROGRAM 


51 


01 FO 












52 


01F0 












53 


01FO 










SUBROUTINE MULT 


54 


01F0 












55 


01F0 


A912 


A 


MULT: 


ST AC2,$S2 


56 


01 PI 


AD12 


A 






ST AC3,$S3 


57 


01F2 


4E00 


A 






LI AC2,0 » CL EAR 



1 



IMPASP 



58 


01F3 


4F10 


A 




LI 


AC3 f 16 


;BIT C0UNT=16 


59 


01 F4 


5000 


A 




CAI 


ACOfO 


COMPLEMENT ACO TO SIMPLIFY 


60 


01F5 












BRANCHING ON MULTIPLIER BITO 


61 


01 F5 


OAOO 


A 




SFLG 


$SELFF 


INCLUDE LINK IN SHIFTS 


62 


01F6 


5E01 


A 




SHL 


AC2 ,1 


» CLE AR LINK 


63 


01F7 


1301 


A 


$LOOP: 


BOC 


$BlT0to+2 


♦BRANCH IF ACO COMPLEMENTED=0 


64 


01 F8 


3600 


A 




R ADD 


AC1,AC2 


;AC1+AC2 — > AC2 


65 


01F9 


5AFF 


A 




ROR 


AC2,1 


; ROTATE RESULT OF ADD INTO LINK 


66 


01 FA 


5CFF 


A 




SHR 


AC0,1 


J SHIFT LINK INTO ACO 


67 


01 FB 


4BFF 


A 




AISZ 


AC3,-1 


;DECR COUNT, SKIP IF ZERO 


68 


01FC 


21FA 


A 




JMP 


$L00P 




69 


01 FD 


3181 


A 




RCPY 


AC0,AC1 


;MOVE LO ORDER RESULT TO ACl 


70 


01FE 


3881 


A 




RCPY 


AC2 tACO 


;MOVE HI ORDER RESULT TO ACO 


71 


01FF 


8D04 


A 




LD 


AC3,$S3 




72 


02 00 


8902 


A 




LD 


AC2,$S2 




73 


0201 


0A80 


A 




PFLG 


SSELFF 


; CLEAR SELF 


74 


0202 


0200 


A 




RTS 






75 


0203 


0204 


A 


$S2: 


.=.♦! 






76 


0204 


0205 


A 


$S3: 


• =• + 1 






77 


0205 






; 








78 


02 05 






; 


SUBROUTINE OIVD 




79 


0205 






♦ 








80 


0205 


0000 


A 


$COUNT: 


• WORD 


0 




81 


0206 


A924 


A 


DIVO: 


ST 


AC2,$SAV2 


;SAVE AC 2 


82 


0207 


3281 


A 




RCPY 


AC0,AC2 




83 


0208 


5001 


A 




CAI 


AC0,1 




84 


0209 


3C00 


A 




RADD 


AC3,AC0 


; SU BTRACT HI ORDER FROM DIVISOR 


85 


020A 


IBID 


A 




BOC 


$NRGTO,$OVFLW 


;IS HI ORDER >= DIVISOR 


86 


0208 


4CF0 


A 




LI 


ACOt-16 


;N0 


87 


020C 


A1F8 


A 




ST 


AC0,$COUNT 


;SET C0UNT=16 


88 


020D 


OAOO 


A 




SFLG 


$SELFF 


;SET SELX 


89 


02 OE 


4C00 


A 




LI 


ACO,0 




90 


020F 


5C01 


A 




SHL 


AC0,1 


;CLEAR LINK 


91 


0210 


5001 


A 




SHL 


AC1,1 




92 


0211 


5A01 


A 


$POOL: 


ROL 


AC2,1 


;ROTATE HI ORDER LEFT WITH LINK 


93 


0212 


3881 


A 




RCPY 


AC2,AC0 




94 


0213 


5001 


A 




CAI 


AC0,1 




95 


0214 


3C00 


A 




RADD 


AC3»AC0 


; SUBTRACT HI ORDER FROM DIVISOR 


96 


0215 


1B03 


A 




BOC 


$NRGTO,$GOES 


;IS HI ORDER >= DIVISOR 


97 


0216 


4C00 


A 




LI 


ACOtO 


;no 


98 


0217 


5C01 


A 




SHL 


AC0,1 


;CL EAR LINK 


99 


0218 


2104 


A 




JMP 


$SHFTL0 




100 


0219 


5001 


A 


$GOES: 


CAI 


AC0,1 


; YES 


101 


021 A 


3281 


A 




RCPY 


AC0,AC2 


;HI ORDER = HI ORDER - DIVISOR 


102 


0218 


4CFF 


A 




LI 


AC0,-1 




103 


021C 


5C01 


A 




SHL 


AC0»1 


;SET LINK 


104 


0210 


5901 


A 


$SHFTLO:ROL 


AClfl 


;ROTATE LO ORDER WITH LINK LEFT 


105 


021E 


79E6 


A 




ISZ 


$COUNT 


; ARE WE DONE? 


106 


021F 


21 Fl 


A 




JMP 


$POOL 


;N0 


107 


0220 


3481 


A 




RCPY 


ACl ,ACO 


;yes 


108 


0221 


1201 


A 




BOC 


$PSIGN, .+2 


;IS RESULT NEG 


109 


0222 


2105 


A 




JMP 


$OVFLW 


;YES, OVERFLOW 


110 


0223 


3881 


A 




RCPY 


AC2,AC0 


;N0 MOVE REMAINDER TO ACO,QUOT 


111 


0224 












;IN ACl 


112 


02 24 


0A80 


A 


$DONE: 


PFLG 


$SELFF 


; CL E AR SELX 


113 


0225 


8905 


A 




LD 


AC2»$SAV2 


; RE STORE AC 2 


114 


0226 


8D05 


A 




LD 


AC3,$SAV3 


♦ RESTORE AC 3 


115 


0227 


02 00 


A 




RTS 






116 


0228 


8D04 


A 


$OVFLW: 


LD 


AC3»$H7000 




117 


0229 


3F00 


A 




RADD 


AC3,AC3 


;SET OVERFLOW 


118 


022A 


21F9 


A 




JMP 


$D0NE 




119 


022B 


0000 


A 


$SAV2: 


• WORD 


0 




120 


02 2C 


0000 


A 


$SAV3: 


• WORD 


0 




121 


022D 


7000 


A 


$H7000: 


• WORD 


X'7000 





2 



IMPASP 



122 022E oP AGE ' TELETYPE I/O - GETC /PLTC * 

123 022E ; TELETYPE DELAY CONSTANTS 

124 022E C029 A $ TA = 41 

125 022E 0012 A $TB = 18 

126 022E 0070 A $ TC * 112 

127 022E 0009 A $EA = 9 

128 022E 0016 A $EB = 22 

129 022E 0026 A $EC = 38 

130 022E 0038 A $TTYAD = 7*8 



131 022E 

132 022E ; 

133 022E : 

134 022E 2947 A PUTC: 

135 022F 2012 A LPC: 

136 0230 2110 A 

137 0231 4C30 A 

138 0232 293F A 

139 0233 4E09 A 

140 0234 4F38 A 

141 0235 0603 A 

142 0236 293A A $LP1 : 

143 0237 5829 A 

144 0238 4AFF A 

145 0239 2101 A 

146 023A 2104 A 

147 023B 59FF A 

148 023C 3481 A 

149 023D 0603 A 

150 023E 21F7 A 

151 023F 4CFF A DONE: 

152 0240 0603 A 

153 0241 2130 A 

154 0242 7E59 A PPUTC: 



•SPACE 


5 


TELETYPE TRANSMIT 


JSR 


SAVE 


jSRa 


PPUTC 


JMP 


DONE+2 


LI 


R0,030 


JSR 


$DELAY+1 


LI 


R2,9 


LI 


R3,$TTYAD 


ROUT 


3 


JSR 


$DELAY 


ROL 


RO»$TA 


AISZ 


R2,-l 


JMP 


• +2 


JMP 


DONE 


ROR 


Rltl 


RCPY 


R1,R0 


ROUT 


3 


JMP 


$LP1 


LI 


R0,-1 


ROUT 


3 


JMP 


RET 


• WORD 


07E59 



CHARACTER RCUTINE 



155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 

178 
179 



0243 
02*3 
0244 
0245 
0246 
02 46 
0247 
0248 
0249 
02 4A 
024B 
024C 
02 4D 
024E 
02 4F 
0250 
0251 
025? 
0253 
02 54 
0255 
0256 
02 57 
02 58 
0259 



2932 A ECHOGC; 
2D2A A LECO: 
2127 A 



292F 
2D28 
2124 
0A80 
4F38 
0605 
4E08 
0604 
0402 
1201 
21FD 
4C09 
291F 
58EA 
0402 
1201 
21FA 
792D 
7D2C 
2101 



GETC : 
LGET: 



$25: 



•SPACE 5 

JSR SAVE 

JSR3 PGECO 

JMP $X 

GET CHARACTER ROUTINE 

JSR SAVE 

JSR 3 PGETC 

JMP $X 

PFLG 2 

LI R3 »$TTYAD 

ROUT 5 

LI R2»8 

ROUT 4 

RIN 2 

BOC 2t.+2 

JMP .-2 

LI RO»$EA 

JSR $DELAY+1 

ROR RO»$EB 

RIN 2 

BOC 2, .+2 

JMP $25 

$LP2: ISZ FLAG 

DSZ FLAG 

JMP ,+2 



3 



IMPASP 



180 


02 5A 


0603 


A 


ROUT 


3 


181 


025B 


2915 


A 


JSR 


$DELAY 


182 


025C 


5826 


A 


ROL 


RO,$EC 


183 


02 50 


0402 


A 


RIN 


2 


184 


025E 


6125 


A 


AND 


R0,X8000 


185 


025F 


5DFF 


A 


SHR 


Rltl 


186 


0260 


3182 


A 


RXOR 


R0,R1 


187 


0261 


4AFF 


A 


AISZ 


R2,-l 


188 


0262 


21F4 


A 


JMP 


$L»2 


189 


0263 


7921 


A 


ISZ 


FLAG 


190 


0264 


7D20 


A 


DS2 


FLAG 


191 


02 65 


2104 


A 


JMP 


$11 


19 2 


0266 


0603 


A 


ROUT 


3 


193 


0267 


2909 


A 


JSR 


$OELAY 


194 


0268 


4CFF 


A 


LI 


ROt-1 


195 


0269 


0603 


A 


ROUT 


3 


196 


026A 




$11 : 






197 


02 6A 


2906 


A 


JSR 


$DELAY 


198 


0268 


5DF8 


A 


SHR 


Rl,8 


199 


02 6C 


3481 


A 


RCPY 


Rl,RO 


200 


02 60 


A10D 


A $X: 


ST 


RO,$REG 


201 


026E 


2110 


A 


JMP 


RET 


202 


026F 


7E73 


A PGECO: 


• WORD 


07E73 


203 


0270 


7E3B 


A PGETC: 


• WORO 


C7E3B 



204 0271 

205 0271 

206 0271 ; 

207 0271 $ DEL AY: 

208 0271 4C12 A 

209 0272 5890 A 

210 0273 48FF A 

211 0274 21FD A 

212 0275 0200 A 



.SPACE 5 
DELAY ROUTINE 



LI ROt $TB 

ROR ROt$TC 

AISZ R0,-1 

JMP .-2 

RTS 



213 


02 7 6 








•SPACE 


5 


214 


0276 






? 


SAVE ANC 


RESTORE REGISTERS 


215 


0276 












216 


0276 


A104 


A 


SAVE: 


ST 


RO,$REG 


217 


0277 


A504 


A 




ST 


R1,$REG+1 


218 


02 78 


A904 


A 




ST 


R2,$REG+2 


219 


02?9 


AD04 


A 




ST 


R3,$REG+3 


220 


027A 


0200 


A 




RTS 




221 


027B 


027F 


A 


$REG: 


• = . +4 




222 


02 7F 












223 


027F 


81FB 


A 


RET: 


LD 


ROt $REG 


224 


02 80 


85FB 


A 




LD 


Rl f $REG+1 


225 


02 81 


89FB 


A 




LD 


R2 t$REG+2 


226 


0282 


8DF8 


A 




LD 


R3,$REG+3 


227 


02 83 


0200 


A 




RTS 




228 


02 84 












229 


0284 


8000 


A 


X8000: 


.WORD 


08000 


230 


02 85 


02 86 


A 


FLAG: 


.=.+1 





231 
232 
233 
234 
23 5 
236 



0286 
0286 
02 86 
02 86 
02 86 
02 86 



.PAGE '16L INITIALIZATION ROUTINE' 
16L INITIALIZATION ROUTINE 
L INIT: 



4 



IMPASP 



237 0286 810C A 

238 0287 Bill A 

239 0288 810B A 

240 0289 B110 A 

241 02 8 A ; 

242 028A 810A A 

243 02 8B B10F A 

244 028C 8109 A 

245 028D B10E A 

246 02 8 E ; 

247 028E 8108 A 

248 028F B10D A 

249 0290 8107 A 

250 0291 B10C A 

251 0292 0200 A 

252 0293 ; 

253 0293 ; 

254 0293 3181 A LPCC: 

255 0294 0A80 A 

256 0295 ; 

257 0295 4F00 A LECOC: 

258 0296 2102 A 

259 0297 ; 

260 0297 4F01 A LGETC: 

261 02 98 A03C A 

262 0299 022F A LLL : 
029A 0230 A 
029B 0244 A 
029C 0245 A 
0290 0247 A 
029E 0248 A 

263 029F RDCRO: 

264 029F WDSKTMs 

265 029F WDSKOB: 

266 029F RDSKIN: 

267 02 9F RDSKTM: 

268 029F HSPRT: 

269 029F MESS: 

270 029F CLOSET: 

271 029F CLOSED: 

272 029F 0000 A HALT 

273 02A0 21FE A JMP .-1 

274 02A1 • END IF 

275 02 Al • END 



****** 


0 


ERRORS 


IN ASSEMBLY 


****** 
















$11 




$25 


$BIT0 


$C0UN 


$DELA 


$DONE 




$E A 




$EB 


$EC 




$G0ES 


02 6A 


A 


024B A 


0003 A 


0205 A 


0271 A 


0224 


A 


0009 


A 


0016 A 


0026 


A 


0219 


A 


$H700 


$LOOP 


$LP1 


$LP2 


$NRGT 


$OVFL 




$P00L 




$PSIG 


$REG 




$S2 




022D 


A 


01F7 A 


0236 A 


0257 A 


OOOB A 


0228 


A 


0211 


A 


0002 A 


027B 


A 


0203 


A 


$S3 




$SAV2 


$SAV3 


$SELF 


$SHFT 


$TA 




$TB 




$TC 


$TTYA 


$X 




0204 


A 


022B A 


022C A 


0002 A 


021D A 


0029 


A 


0012 


A 


0070 A 


0038 


A 


026D 


A 


ABST 




ACO 


AC1 


AC2 


AC 3 


B1EQ1 




CLOSEO 


CLOSET 


DIVD 




DONE 




0021 


A 


0000 A 


0001 A 


0002 A 


0003 A 


0004 


A 


029F 


A 


029F A 


0206 


A 


023F 


A 


DSKERR 


DSK IN 


DSKOBJ 


OSKTMP 


ECHOGC 


FLAG 




GETC 




HSPRT 


INBUFB 


INBUFE 


0022 


A 


001 F A 


001 E A 


0020 A 


0243 A 


0285 


A 


0246 


A 


029F A 


0012 


A 


0013 


A 


LECO 




LECOC 


LGET 


LGETC 


L INIT 


LLL 




LPC 




LPCC 


MESS 




MULT 




0244 


A 


0295 A 


0247 A 


0297 A 


0286 A 


0299 


A 


022F 


A 


0293 A 


029F 


A 


01F0 


A 



LD RO,LPCC 

ST R0,3LLL 

LD R0,LPCC+1 

ST R0,3LLL+1 

LD RO, LECOC 

ST R0,3LLL+2 

LD RO,LECOC+1 

ST R0,3LLL+3 

LD RO, LGETC 

ST R0,3LLL+4 

LD R0,LGETC+1 

ST R0,3LLL+5 
RTS 



RCPY ROf Rl 

PFLG 2 

LI R3,0 

JMP ,+3 

LI R3,l 

ST R3,.+X«3D 

« WORD L PC, LPC+1, LECO, LECO+1, LGET, LGET+1 



5 



IMPASP 



NZ ODD P PGECO PGETC 

0005 A 0003 A 0002 A 026F A 0270 A 

R2 R3 RDCRD RDSKIN RDSKTM 

0002 A 0003 A 029F A 029F A 029F A 

WDSKTM X8000 Z 
029F A 0284 A 0001 A 



PPUTC PRINT PUTC RO Rl 
0242 A 001A A 022E A 0000 A 0001 A 

RET SAVE SIZE4 SIZE8 WDSKOB 
027F A 0276 A 0001 A FFFF A 029F A 



864C 14E1 



6 



M 

3 

> 
CO 

2 



IMPASM 



REVISION-G 01/02/74 
IMPASM 0000300C 6/25/74 



1 

1 


a rx fx fx 
0000 










.TITLE 


IMPASM, '0000300C 6/25/74' 


2 


0000 














3 


nil/1/] 
0000 








.**************************************** 


4 


Oi CK (% CA 

0000 














c 
D 

c 
D 


ffi a (x fx 
0000 

fx n n n 
0000 










SIZEo=- 

f T 9 P O - 1 

SIZEo=l 


1 IF 4K VERSION 
IF 8K VERSION 




(1(1/1(1 
0000 


f o c c 

f f fr 


A 


SIZE8 




-1 


Q 
0 


fx n fx fx 
0000 


01 CI 01 1 

0001 


A 


SIZE4 




-SIZE8 


ft 

y 


fx fx fx fx 
0000 


fil D P D 

la r t J? 


A 


STT0P 


= 


4095 


i oi 
±10 


fA fX CK fk 

0000 


01 01 01 01 

0000 


TV 

A 


DBGVER 


= 


0 


11 


fX fX Pi fx 

0000 










. ENDIF 




1 2 


01 01 01 01 

0000 










.BSECT 




1 J 


fix fkfUfX 

0000 


(1(1 Ai^ 

000C 


A 


PNCHMD 


= 


0C ; DEBUG ALSO 


14 


fx rx fx fx 
0000 


000D 


B 






.=.+0D 




15 


fX fX fX f\ 

000D 


000E 


B 


MULT: 


. = .+1 




Lo 


000E 


000F 


B 


DIVD: 


. = . +1 




17 


000F 


0010 


B 


GETC: 


. = .+1 




lo 


fAfU 1 fx 

0010 


0011 


3 


PUTC: 


. = .+1 




iy 


oi oi i i 
0011 


0012 


B 


RDCRD: 


. = . +1 




20 


(1(11 o 

0012 


0120 


A 


INBUFB: 


.WORD 


INBUF 


21 


0013 


016F 


A 


INBUFEs 


.WORD 


INBUF+79 


22 


01 01 1 A 
0014 


01 01 1 c 

001b 


B 


ECH0GC: 


. = .+1 




23 


fx fx 1 c 

0015 


0016 


B 


LINIT: 


. = .+1 




24 


0016 


0017 


B 


WDSKTM: 


. = .+1 




25 


0017 


0018 


B 


WDSK0B: 


. = .+1 




26 


0018 


0019 


B 


RDSKIN: 


. = .+1 




2 / 


fX CX 1 c\ 

00iy 


01 fX 1 A 

001A 


B 


RDSKTM: 


. = .+1 




2 o 


001A 


001B 


B 


HSPRT: 


. = .+1 




29 


001B 


001C 


B 


MESS: 


. = .+1 




30 


001C 


001D 


B 


CLOSET: 


. = .+1 




31 


fx f% T t\ 

001D 


001E 


B 


CLOSEO: 


. = .+1 




32 


(in 1 n 

001E 


FFFE 


A 


DSKOBJ: 


.WORD 


-2 


33 


001F 


FFFE 


A 


DSKIN: 


.WORD 


-2 


34 


n fi o 

0020 


FFFE 


A 


DSKTMP: 


.WORD 


-2 


35 


a n *i i 

0021 


0 E D 6 


A 


ABST: 


. WORD 


BADSTB ; BAD SECTOR 


36 


rti rti ^ *\ 

0022 


0D17 


A 






.WORD 


DSKERR 


37 


0023 








**************************************** 


"3 Q 
















39 


0023 














40 


0023 














41 


0023 










BOC ASSIGNMENTS 


42 


0023 


0001 


A 


Z 


=1 






43 


0023 


0002 


A 


9=2 






44 


0023 


0003 


A 


0DD=3 






45 


0023 


0004 


A 


B1EQ1=4 






46 


0023 


0005 


A 


NZ=5 






47 


0023 


000B 


A 


LEZ=11 






48 


0023 






I 








49 


0023 


0000 


A 


R0 = 0 






50 


0023 


0001 


A 


Rl = l 






51 


0023 


0002 


A 


R2=2 







THIS LOCATION 



52 


0023 


0003 


A 


R3=3 


53 


0023 


8000 


A 


S=08000 


54 


0023 


0008 


A 


ELIM=8 


55 


0023 








56 


0023 


0000 


A 


ZERO: 


57 


0024 


00FF 


A 


K255: 



; NUMBER OF ERRORS 

PAGE 'CONSTANTS ' 
WORD 0 
WORD 255 



LIMIT FOR EACH STATEMENT 



1 



IMPASM 



58 


0025 


000B 


A 


Kll: 


.WORD 


11 


59 


0026 


0001 


A 


Kl: 


.WORD 


1 


60 


0027 


0003 


A 


K3: 


.WORD 


3 


61 


0028 


0006 


A 


K6: 


.WORD 


6 


62 


0029 


0008 


A 


K8: 


. WORD 


8 


63 


002A 


0007 


A 


K7: 


.WORD 


7 


64 


002B 


0009 


A 


K9: 


.WORD 


9 


65 


002C 


0004 


A 


K4: 


.WORD 


4 


66 


002D 


000F 


A 


K15: 


.WORD 


15 


67 


002E 


FFF0 


A 


XFFF0: 


.WORD 


0FFF0 


68 


002F 


FFF7 


A 


XFFF7: 


.WORD 


0FFF7 


69 


0030 


8000 


A 


X8000: 


.WORD 


08000 


70 


0031 


6666 


A 


X6666: 


.WORD 


06666 


71 


0032 


0040 


A 


HEX40: 


.WORD 


040 


72 


0033 


005A 


A 


HEX5A: 


.WORD 


05A 


73 


0034 


0020 


A 


HEX20: 


.WORD 


020 


74 


0035 


002F 


A 


HEX2F: 


.WORD 


02F 


75 


0036 


0039 


A 


HEX39: 


.WORD 


039 


76 


0037 


0046 


A 


HEX46: 


. WORD 


046 


77 


0038 


0030 


A 


HEX30: 


.WORD 


030 


78 


0039 


0037 


A 


HEX37: 


.WORD 


037 


79 


003A 


007F 


A 


HEX7F: 


.WORD 


07F 


80 


003B 


003F 


A 


HEX3F: 


.WORD 


03F 


81 


003C 


002A 


A 


HEX2A: 


.WORD 


02A 


82 


003D 


0400 


A 


HEX400: 


.WORD 


0400 


83 


003E 


1000 


A 


X1000: 


.WORD 


01000 


84 


003F 


0L00 


A 


K256: 


.WORD 


256 


85 


0040 


0002 


A 


K2: 


.WORD 


2 


86 


0041 


0010 


A 


K16: 


.WORD 


16 


87 


0042 


FF00 


A 


XFF00: 


.WORD 


0FF00 


88 


0043 


0029 


A 


RPAREN: 


.WORD 


') 7256 


89 


0044 


0058 


A 


CHARX: 


.WORD 


'X'/256 


90 


0045 


0027 


A 


QUOTE : 


.WORD 


/256 


91 


0046 


0028 


A 


LPARBN: 


.WORD 


'(7256 


92 


0047 


000D 


A 


CR: 


.WORD 


0D 


93 


0048 


2020 


A 


BLANKS: 


.WORD 




94 


0049 


003B 


A 


SEMI: 


.WORD 


7256 


95 


004A 


002E 


A 


DOT: 


.WORD 


'. 7256 


96 


004B 


003A 


A 


COLAN: 


.WORD 


': 7256 


97 


004C 


003D 


A 


EQUAL: 


.WORD 


'=7256 


98 


004D 


5C00 


A 


SHLIN: 


SHL 


R0,0 


99 


004E 


0024 


A 


DOLLAR: 


.WORD 


'$ 7256 


100 


004F 


002C 


A 


COMMA: 


.WORD 


', 7256 


101 


0050 


002B 


A 


CPLUS: 


.WORD 


'+7256 


102 


0051 


002D 


A 


CMINUS: 


.WORD 


'-7256 


103 


0052 


0025 


A 


CNOT: 


. WORD 


'%'/256 


104 


0053 


0026 


A 


CAND: 


. WORD 


'& 7256 


10 5 


0054 


0021 


A 


COR: 


. WORD 


'! '/256 


106 


0055 


0D71 


A 


ERRBAS: 


.WORD 


ERBtfF 



107 


0056 












108 


0056 


0034 


B 


BLANK 




HEX20 


109 


0056 


00 38 


3 


CZERO 




HEX30 


110 


0056 


0032 


B 


CAT 




HEX40 


111 


0056 


00 3C 


B 


CMPY 




HEX2A 


112 


0056 


0035 


B 


CDIV 




HEX2F 


113 


0056 








.PAGE 


VARIABLES ' 


114 


0056 








ACTR, 


3CTR , TCTR , MUST 


115 


0056 


0000 


A 


ACTR: 


. WO RD 


0 


116 


0057 


0000 


A 


BCTR: 


.WORD 


0 


117 


0058 


0000 


A 


TCTR: 


.WORD 


0 


118 


0059 


00 5 A 


B 


AMAX: 


. = .+1 




119 


00 5A 


005B 


B 


BMAX: 


. = .+1 





' 7256 
'0 '/256 
'<a 7256 
'* 7256 
77256 



;ASECT LOC CTR 
;BSECT LOC CTR 
;TSECT LOC CTR 



2 



IMPASM 



IZv) 


0058 




Q 

D 


rpwt A V • 

i MAX : 


. — . +1 










ill 
121 


n nc r* 
005C 


Ck CH Ck fA 

0000 


A 


LiULLIK: 


. WURD 


Y) 






; CURRENT L0C CTR 


122 


005D 


rx rt n ft 

0000 


A 


PASS : 


. WORD 


01 

W 






;PASS1 =0 , PASS 2 =N0N ZERO 


123 


005E 


0120 


A 


INPTR: 


. WORD 








; POINTS TO NEXT INPUT CHAR. 


124 


005F 


0060 


B 


LCPTR: 


. = . +1 


; LAb 1 


ACTIVE CHAR PTR (USED BY ERROR) 


1 7 E 
I/O 


oi oi c oi 
WW6W 


01 01 01 01 

WW WW 


A 


dAdei : 


. WURU 


0 
V 








i oc 
lib 


a a c l 
10 13 0 1 


01 01 Of 01 

WW WW 


A 

A 


I Uir : 


a VVUKU 


ft 








TOT 


PI 01 C 0 


nana 
W W WW 


A 


XT IT VT1 • 


. WURL; 


10 








1 on 
1.40 


a oi c "3 


WtiUo 


A 


DACCA ■ 


. WURU 


b 1 DftO 








lift 

129 


n n c a 
0064 


0FFF 


A 


T0PA: 


. WORD 


S1T0P 








l o oi 
130 


n n c. C 
00OD 


WFFF 


A 


N&XTA : 


. WORD 


b 1 lUf 








ill 
1 Jl 


01 01 c c 
10 000 


01 tpts a 
WtiUo 


a 
A 


D31 CCD ■ 

BAbbb : 


. WURU 


ST8AS 








132 


ana 
10 Wo / 


WFFF 


A 




. WURD 


STT0P 








1 J J 


10 Woo 


Wr r r 


A 

A 




. WURD 


STT0P 








17^ 

1 o4 


ww&y 


01 01 C A 

10 W6A 


0 
0 


XI WUK : 


— j.1 
. — . +1 






; EXTENDED INSTRUCTIONS OK? 0=NO 


lie 
lJD 


[i n C n 
)0 10 OA 


01 01 C D 

W Woo 


r> 

a 


MUr LAb : 


. = . +1 








; MULTIPLE OUTPUT FLAG 0=1ST 1=SUBSEQ. 


1 Jo 


006B 


0003 


A 


SECT : 


.WORD 


3 






;SECTI0N 1=ASECT 2=BSECT 3=TSECT 


13 / 


01 01 c o 

WW6L 


fh c\ rx 

wwww 


A 


LULREb : 


. WORD 


0 






; LOCAL REGION NUMBER (0 TO 255) 


138 


0 06D 


01 1 O 17 

W18E 


A 


lr PTR : 


. WORD 


IFTA8- 


1 




1 7Q 

i jy 


01 01 C P 

10106b 


01 1 OP 

Wlob 


A 


lr rl RA : 


. WURU 


IFTAB- 


1 


; INITIALIZATION FOR IF PTR 


l a a 
1 4 W 


(71 01 C P 

10 WOr 


nana 
WWWI0 


A 


lr b i Ai : 


. WURL) 


0 ; IFSTATUS 


0- 


=ENDIF LAST 2=IF LAST 4=ELSE LAST 


141 


vv IY) 


01 01 01 1 


A 

A 


it nuuhi : 


. WURU 


1 






;0=SKIP 1=N0 SKIP 


1 AO 
1 4 Z 


t) K) / 1 


01 Of TP 
W W JL. 


A 


dp or • 


. WURU 


60 






; NUM OF LINES REMAINING ON PAGE 


1 4 j 


01 a 7 0 


a (A a a 
WWWW 


A 

A 


1 VAb * 


. WUKU 


0 






;INSTR. VALUE FROM DI TABLE 


14 4 


YJYj 1 0 


Of 01 01 01 
W W W W 


A 

A 




. WUKU 


0 






;INSTR CLASS DI TABLE 


1 A C 

145 


ft 01 *7 >i 
0074 


0000 


A 


FORMPT : 


.WORD 


0 






; SYMBOL TABLE FORM PTR 


146 


n n n a 
0075 


0076 


B 


T*71 /*> T"> n _ 

FORMB : 


. = . +1 








; FORM BEGIN FIELD BITS 


1 A 7 

14 / 


n Oi ~i c 

Y)Y} /6 


01 n "7 "7 

007 / 


B 


T"i /~\ -p» m* m ■ 

FORMT : 


. = . +1 








; FORM TERMINAL FIELD B ITS 


1 A Q 

148 


0077 


0078 


B 


F0RMM : 


. = . +1 








', FORM FIELD MASK 


14 9 


01 01 "7 O 

0078 


00 79 


B 


F0RMBN : 


. = .+1 








? FORM BEGINNING BIT NUMBER 


1 D \0 


01 on a 


01 01 7 A 
W W / A 


□ 

D 


r URM1 JN : 


• - . +1 








; FORM TERMINAL BIT NUM. 


1 c 1 
131 


01 01 7 A 
10 10 /A 


01 01 01 01 

WWWW 


A 

A 


b XrVAL : 


rjrvnn 
. WORD 


0 






? VALUE FROM EXP. ROUTINES 


152 


007B 


007C 


B 


EXPP0: 


. = .+1 








• EXP PREVIOUS DEF FLAG 


Id 5 


01 01 If 

1010 /L 


007D 


D 


EXPREL: 


_ j_i 1 
. = . +1 








•EXP RELOCATION CODE 


1 C A 

154 


0070 


n n 01 01 

0000 


A 


NAM0 : 


.WORD 


0 








155 


007E 


0000 


A 


NAM1: 


.WORD 


0 








156 


007F 


0000 


A 


NAM2: 


.WORD 


0 








1 C "7 

157 


01 01 O 01 

0080 


rji f\ fx m 

0000 


A 


CNAM0 : 


.WORD 


0 








1 CD 

Ids 


01 01 Q 1 
WWSl 


(A fk Ch cx 


A 

A 


LNAM1 ! 


. WORD 


0 








ICQ 

iDy 


i% (i Q O 


Of Of Q "3 

W Wo 0 


D 
D 


b 1 VAL S 


. = . +1 






; SYMBOL TALBE VALUE 


l c a 
160 


01 01 0 0 
008 3 


W Wo4 


B 


b 1 PDEb : 


. = . +1 






; SYMBOL TABLE PREV. DEFINITION FLAG 


1 C 1 


OKU Q A 

y\ yl fs tx 


01 01 fi 5 




QTRP r • 


— x 1 








CVMDnr m A D r n> oct aajihtam ci t- a n 
u x 1 ij-»v^ij j.n.uuu uu^n i lull c uivj 


ICO 

1 b Z 


01 Of S3 C 
WW O D 


01 01 S3 C 
(0 10 0 0 


Q 
O 


biri ' 


. - . +1 








SYMBOL TABLE PRT. 


1 CI 

loo 


01 01 O C 
WW86 


01 01 Q 7 

WWo / 


B 


rmi 7 a r a 

1 1 VAL : 


. = . +1 






; ITEM VALUE 


164 


01 01 Q 7 

WWo / 


01 01 S3 S3 
10 10 OO 


n 

D 


1 1 KbL : 


. = . +1 






; ITEM RELOCATION 


165 


0088 


0089 


B 


EC : 


. = .+1 








ERROR COUNT 


166 


0089 


n n n l 
0001 


A 


INDEV: 


.WORD 


1 






INPUT DEVICE 0=CR 1=KB 2=PT 


167 


CX 01 O A 

008A 


WW8B 




Tor run - 

LB LPT: 


. = .+1 








LABEL PRT, USED BY ASSIGN DIRECTIVE 


ICO 

loo 


(71 CI S3 O 

W a 0 d 


01 01 ar 
10 10 oL. 


D 

a 


bRRirl : 


. - . +1 








POINTS TO NEXT ERROR ENTRY 


ICQ 

10 J 


(71 Q f 

VJ W ol 


01 01 Q n 
10 10 0 U 


D 

0 


t ruin 1 a 

LLNI 1 : 


— J.1 
. = . +1 








DEC LINE CNT FOR PRINTING1 ('0'/256) 


I/O 


w WoU 


d a 0 ci 

10 10 ob 


D 
O 


LLN1 2 : 


. = . +1 








DEC LINE CNT FOR PRINTING2 (06656=0) 


171 


008E 


008F 


B 


LISTMD: 


.=.+1 








VALUE FROM LAST LIST DIRECTIVE 


172 


008F 


0001 


A 


ERRLST: 


.WORD 


1 






ERROR LISTING REQUESTED 1=N0 0=YES 


i / j 


01 CI Q ft 


CI £71 Q 1 

10 wy 1 


D 
D 


UB J piujj : 


— j. i 
. - . +1 








0=NO OBJECT MODULE NZ=0BJ MOD 


174 


0091 


0001 


A 


N0LIST: 


.WORD 


1 






0=NO LISTING 


175 


0092 


0093 


B 


NOCOM : 


. = .+1 


; ' ; '=N0 COMMENT 


PRINTING 


176 


0093 


0094 


B 


N0MAP: 


. = .+1 


; NO MAP FLAG 0 


=N0NE 


177 


0094 


FFFE 


A 


IDSKIN: 


.WORD 


-2 






-2=N0, OTHER=INITIAL LOGICAL SECTION 


178 


0095 


FFFE 


A 


IDSKTM: 


.WORD 


-2 






-2=N0, 0THER= INITIAL LOGICAL SECTION 


179 


0096 


0000 


A 


HSPR: 


.WORD 


0 






1=N0, 0=HIGH SPEED PRINTER 


180 


0097 


0000 


A 


TYPM0D: 


. WORD 


0 






0=?RI^T, NZ=TYPE OR PUNCH 


181 


0098 








.PAGE 


'INITIALIZATION 


AND START' 



IMPASM 



1 ft 9 


PIPIQft 








. LOCAL 


1 ft 1 


PI PI Q ft 
Kl B 7 O 






.************************ 
i 


1 ft A 

ICS 


PIPIQft 
10 V 37 o 








. ASECT 


1 ft ^ 


01 01 01 01 
io tg to <o 








TP C 5IZE4 


1 ft£ 
loo 


01 01 01 01 


Oil 901 

10 J. Z El 


A 
rt 




.=0120 


1 ft 7 


011 7 01 
10 1 Z 10 


Pi 1 1 Pi 
10 1 / 10 


A 


INBUF: 


.=.+80 


1 ftft 

loo 


01 1 7PI 


011 ftP 


A 


PGSTRG: 


.=.+30 


IRQ 


011 ftp 


01 1 ftP 

uxor 


A_ 




. = .+1 


iy \o 


01 1 ft P 

lOlor 


Pi 1 Q Q 

ioiy y 


A 
ft 


IFTAB: 


.=.+10 


iy i 


01 1 Q Q 

v l y y 


oi l ns 
WlUA 


A 
A 


PTRTAB : 


.=.+65 


1Q") 

±y z 


oi 1 nn 
K» 1UA 






PTREND: 




iy 3 


oi 1 nA 
v IDA 


01 1 CP 


A 


TTLBUF: 


.=.+18 


iy4 




01 (X (k 01 

10 13 10 13 


A 

A 




.WORD 0 


i y j 


oi 1 1? n 
13 lbu 


(J| OD 01 

13 Z D 10 


A 

A 


.=0280 




1 Q C 

iyo 


oi 7noi 
10 z ok) 






.************************ 


TOT 
1J / 


,91 O a 01 
10 Z tJIO 






7 




iy o 


oi 7 n oi 






START : 




1 Q Q 

iy y 


01 9R0I 
10 ZDlO 








Tun 1 C. /T TPCT 
IWlr ID/ L itol 


0 01 01 
ZwIO 


01 7(301 
10 ZOI0 


ft n "3 9 


A 




r r\ d7 UPY7£0I 
bL) KJ,nbA/DI0 


901 i 
/.it? i 


01 9R1 
10 ZD1 


0IA1 ft 

13 fi X O 


A 
ft 




DTM PI 1 ft 
KIN 10 1 o 


901 9 
ZIO z 


Pi 7R7 
10 ZDZ 


4 ft PI 1 
H o 10 X 


A 
ft 




A T O 7 O 01 1 

Alb It K!0 / 1 


0 01 "3 
Z!0 .5 


PI7Q7 
10 Z £3 J 


9P 1 R 
ZL. 1 9 


D 
D 




TOD flTTMTT 


0 01 j! 
ZI04 


01 9R A 
10 ZB4 






J 




7 01 K 


01 "IDA 
10 ZB4 


APPI 1 
41- 10 1 


A 
ft 




LI K13 / 1 


001ft 
ZWO 


Pi 7RC; 
10 Z D D 


a oiftQ 
Aiooy 


£5 




O 1 KI3 / INJJbV 


ZIO 1 


KJ Z DO 


A PIQ£ 

aio y o 


D 
D 




coi d 01 uc nn 


0 01 ft 
ZVJ O 


0I9R7 
K» Z O / 


a piq 7 
ft o y / 


Q 
D 




bl KIO/XiFMUD 


zioy 


PI9Rft 
10 ZDO 


APPiPl 

4 ^ 10 10 


A 
ft 




LI R0,0 


0 1 01 
Zl KJ 


01 9RQ 

io ztsy 


A 01 0IP 

ftio m_ 


A 
ft 




ST R0 , PNCHMD 


Oil 
/II 


PI 9RA 


a oi 

ft 10 DU 


R 
D 




ST R0,PASS 


91 9 


PI 9RR 

B Z DO 


QPQ ft 


T 
X 






il J 


Pi 9RP 


9PQ Q 


T 
X 




JSR ONLMSG 


91 A 

Z 1 H 


PI 9Rn 

10 Z DU 








KbAD MEMUKi bl^b 


9 1 


Pi 9Rn 


7PQ A 
ZV- jrt 


T 
X 




JSR RDTTY 


91 fi 


01 9RP 


9 1 P 1 


A 
ft 




Tun <T" m a r>m 


9 17 
Z 1 / 


01 7 HP 

KJ Z or 


9Q PI c 

zy ioci 


ft 




JSR GSIZE 


7 1 Q 
Zlo 


oi 7pci 
I0ZCI0 


7 1 01 A 
Z 1 13A 


A 
ft 




JMP $2 


z l y 


01 7 P 1 
w ZL 1 


1 1 01 1 
1 1 10 1 


A 
A 




BOC Z r . +2 


7 7 0! 
Z Z 10 


01 7P 7 
10 ZL. Z 


A 01 £ 7 
AW u O 


a 




ST R0 , BASEA 


7 7 1 
Z Z 1 


13 ZC J 


A4 0 4 


Q 
D 




3T R1,T0PA 


7 7 7 
Z Z Z 


01 OP j1 

10 ZC4 


A /I £ 7 
A4b / 


r> 
D 




ST R1,T0PB 


7 7 "3 
ZZ J 


0 ZL 9 


7 P Q Q 

ZLy H 


T 

L 




JSR GCOMMA 


224 


02C6 


2104 


A 




JMP $2 


225 


02C7 


2906 


A 




JSR GSIZE 


7 7 C 

ZZb 


a ZLo 


7 1 01 7 
Z 1 10 Z 


A 

A 




JMP $2 


7 7 7 
ZZ / 


iozt.y 


A 01 C K 


Q 
t> 




ST R0 f BASEB 


7 7 Q 

zzo 


oi 7P a 


A 4 C 7 
A4 0 / 


o 
o 




ST R1,T0P8 


7 7Q 

zzy 


01 9PR 

10 Z Id 






$2: 




7 1 01 


01 9PR 
•0 ZU rs 


9PQP 


T 
I 




JSR GNVC 


7 7 1 
Z J 1 


PI9PP 


9 1 1 ft 
Z 1 1 o 


A 

ft 




JMP NEWASM 


7 7 7 
Z J Z 


oi opn 
13 ZCU 


7 1 P 7 
Zl b Z 


A 
ft 




JMP START 


7 7 "3 
Z j j 


01 7 PC 

U ZLb 








END OF MEMORY SIZ 


7 "3 /I 
Z 34 


a 7Pi? 
(0 ZLb 










o o c 
Z J 5 


(3 zLE 








GET SIZE PAIR 


O O £ 

Z J6 


0 2CE 










237 


02CE 






GSIZE: 




238 


02CE 


290E 


A 




JSR $GDEC 


239 


02CF 


0200 


A 




RTS 


240 


02D0 


A511 


A 




ST Rl , $TMP 


241 


02D1 


2C9C 


I 




JSR GNVC 


242 


02D2 


2108 


A 




JMP $3 


243 


02D3 


F04B 


B 




SKNE R0 f COLAN 


244 


02D4 


2101 


A 




JMP .+2 



;PAGE STRING BUFFER 
;IF TABLE 



;USE DEFAULT SIZE 



jGBT ALTERNATE REGION SIZE 



; ERROR-EXTRA DATA 



4 



IMPASM 



245 


02D5 


2105 


A 




JMP 


$3 


246 


02D6 


2906 


A 




JSR 


$GDEC 


247 


02D7 


2103 


A 




JMP 


$3 


248 


02D8 


8109 


A 




LD 


R0, $TMP 


249 


02D9 


D426 


B 




SUB 


R1,K1 


250 


02DA 


0201 


A 




RTS 


1 


251 


02DB 


7C5E 


B 


$3: 


DSZ 


INPTR 


252 


02DC 


0200 


A 




RTS 


0 


253 


02DD 






; 






254 


02DD 








GET DECIMAL VAL FOR 


255 


02DD 






J 






256 


02DD 


2C9D 


I 


$GDEC: 


JSR 


GITEM 


257 


02DE 


0200 


A 




RTS 




258 


02DF 


8486 


B 




LD 


Rl . ITVAL 


259 


02E0 


5D0A 


A 




SHL 


Rl , 10 


260 


0 2 El 


0201 






RTS 




261 


02E2 


02E3 


A 


$TMP: 


. =. +1 




262 


02E3 


0760 


A 


HEX760 : 


. WORD 


0760 


263 


02E4 


1E63 


A 


LABST: 


WORD 


01E63 


264 


02E5 








. PAGE 


'new ASSEMB 


265 


02E5 








LOCAL 




266 


02E5 












267 


02E5 








BEGIN 


NEW ASSEMBLY 


268 


02E5 












269 


02E5 


4C00 


A 


NEWASM: 


LI 


R0 , 0 


270 


02E6 


A00C 


A 




ST 


R0 . PNCHMD 


271 


02E7 


A05D 


B 




ST 


R0 PARS 


272 


02E8 


A069 


B 




ST 




273 


02E9 


A090 


B 




qm 

o X 




274 


0 2EA 


A05A 


B 




qm 
O X 


R Cj RM A y 


275 


02EB 


A05B 


B 




qm 
O X 


S\ V f X Hrt A 


276 


02EC 


B09E 


I 




o X 


HOI PTBTAR 
t\KJ f Jr X Kino 


277 


02ED 


B09F 


I 




qrn 
O X 


R0I PTPPHn-1 


278 


02EE 


B0A0 


I 




Cm 
O X 


oo\ mr pr onpx7 

<\vj f X X LiDUr t / 


279 


02EF 


8064 


B 




r.n 




280 


02F0 


A065 


B 




O X 


t\VJ f iMCi A XH 


281 


02F1 


8067 


B 




LD 


R0 TOPR 


282 


02F2 


A068 


B 




qm 
O X 


S\VJ r IN Cj & X D 


283 


02F3 


4C01 


A 




T.T 

i-l X 


R0 1 


284 


0 2F4 


A093 


B 




qm 
O X 


R0I NOMAD 


285 


02F5 


A097 


B 




qm 

O X 


RCI TVDMnn 


286 


02F6 


A089 


B 




qm 

O X 


KB ^ X1N UCi V 


287 


02F7 


A091 


B 




ST 


R0 , NOLIST 


288 


02F8 


A08E 


B 




ST 


R0 , LISTMD 


289 


02F9 


A08F 


B 




ST 


R0 , ERRLST 


290 


02FA 


A096 


B 




ST 


R0,HSPR 


291 


02FB 


4CFE 


A 




LI- 


R0,-2 


292 


02FC 


A094 


B 




ST 


R0,IDSKIN 


293 


02FD 


A095 


B 




ST 


R.0 , IDSKTM 


294 


02FE 


A01E 


B 




ST 


R0 , DSKOB J 


295 


02FF 


4C05 


A 




LI 


R0, 5 


296 


0300 


B0A1 


I 




ST 


R0,TTLBUF 


297 


0301 


8138 


A 




LD 


R0 , $MAIN 


298 


0302 


B0A2 


I 




ST 


R0 , TTLBUF+4 


299 


0303 


8137 


A 




LD 


R0,$MAIN+1 


300 


0304 


B0A3 


I 




ST 


R0 , TTLBUF+5 


301 


0305 


8136 


A 




LD 


R0, $MAIN+2 


302 


0306 


B0A4 


I 




ST 


R0 r TTLBUF+6 


303 


0307 


A092 


B 




ST 


R0 , NOCOM 


304 


0308 


4FF5 


A 




LI 


R3,-ll 


305 


0309 


8048 


B 




LD 


R0 f BLANKS 


306 


030A 


890F 


A 




LD 


R2 , $TTL 


307 


030B 


A200 


A 




ST 


R0,0(R2) 



; FORCE ERROR 
; FORCE ERROR 



; INPUT CHAR PTR ; FORCE ERROR 



;VAL*1024 



0=PASS 1 

0= EXTENDED INSTR ILLEGAL 



; EMPTY POINTER TABLE 



; INPUT DEVICE 0=CR, 1=KB , 2=PT ;SET INPU 
;SET LISTING MODE 



5 



IMPASM 



308 


030C 


4A01 


A 




AISZ 


R2, 1 




309 


030D 


4B01 


A 




AISZ 


R3 f 1 




310 


030E 


21FC 


A 




JMP 


.-3 




311 


030F 


4F06 


A 




LI 


R3, 6 




312 


0310 


2CA5 


I 




JSR 


MANYNL 




313 


0311 


9CA6 


I 




LD 


R3,MSGNXT 


; NEXT ASSEMBLE *.ASM' 


314 


0312 


2C99 


I 




JSR 


ONLMSG 


315 


0313 






t 








316 


0313 






* 


INPUT CONTROL STATEMENT 




317 


0313 


2C9A 


I 




JSR 


RDTTY 




318 


0314 


21D0 


A 




JMP 


NEWASM 




319 


0315 


2CA7 


I 




JSR 


PRCTRL 


; PROCESS CONTROL STATEMENT 


320 


0316 


21CE 


A 




JMP 


NEWASM 




321 


0317 


2903 


A 




JSR 


PINIT 




322 


0318 


2CA8 


I 




JSR 


NEWLIN 




323 


0319 


2132 


A 




JMP 


NEXTST 




324 


031A 


01E1 


A 


$TTL: 


. WORD 


TTLBUF+7 




325 


031B 






; 








326 


031B 






; 


PASS INITIALIZATION 




327 


03.1B 






; 








328 


031B 


4D03 


A 


PINIT: 


LI 


Rl f 3 




329 


031C 


A46B 


B 




ST 


Rl , SECT 


;SECT:=TSECT 


330 


031D 


4D01 


A 




LI 


Rl,l 




331 


031E 


A48E 


B 




ST 


Rl , LISTMD 




332 


031F 


A470 


B 




ST 


Rl, IFMODE 




333 


0320 


4C00 


A 




T T 
Li J. 






334 


0321 


A00C 


A 




ST 


R0 , PNCHMD 




335 


0322 


B0A9 


I 




ST 


R0 , PGSTRG 


; RESET PAGE STRING 


336 


0323 


A06F 


B 




ST 


R0 , IFSTAT 




337 


0324 


A06C 


B 




ST 


R0 , LOCREG 


; LOCAL REGION NUMBER 


338 


0325 


A056 


B 




ST 


R0, ACTR 




339 


0326 


A057 


B 




ST 


R0 f BCTR 




340 


0327 


A058 


B 




ST 


R0,TCTR 




341 


0328 


A05C 


8 




ST 


R0 r LOCCTR 




342 


0329 


B0AA 


I 




ST 


R0,SOUCK 


;SOURCE CHECKSUM 


343 


032A 


B0AB 


I 




ST 


R0,OBJCK 


;OBJECT CHECKSUM 


344 


032B 


846E 


B 




LD 


Rl , IFPTRA 




345 


032C 


A46D 


B 




ST 


Rl , IFPTR 




346 


03 2D 


8431 


B 




CO 


R1,X6666 




347 


032E 


A488 


B 




ST 


Rl,EC 




348 


032F 


A48D 


B 




ST 


Rl,LCNT2 




349 


0330 


4D30 


A 




LI 


Rl, '07256 




350 


0331 


A48C 


B 




ST 


R1,LCNT1 




351 


0332 


4D37 


A 




LI 


Rl,55 




352 


0333 


A471 


B 




ST 


Rl , PGRL 




353 


0334 


8094 


B 




LD 


R0,IDSKIN 




354 


0335 


A01F 


B 




ST 


R0,DSKIN 




355 


0336 


8095 


B 




LD 


R0 , IDSKTM 




356 


0337 


A020 


B 




ST 


R0 , DSKTMP 




357 


0338 


2CAC 


I 




JSR 


INITOR 


; INITIALIZE OBJECT RECORD 


358 


0339 


0200 


A 




RTS 






359 


033A 


4D41 


A 


$MAIN : 


.ASCII 


'MAINPR' 






033B 


494E 


A 












033C 


5052 


A 










360 


033D 








.PAGE 


'STATEMENT PROCESS AND FORM USAGE ' 


361 


033D 








. LOCAL 







362 033D 

363 033D 

364 033D 

365 033D 

366 033D 0AF2 

367 033E 2042 



STATEMENT PROCESS 



$XARG: 
$CB: 



.WORD 
.WORD 



XARGCK 
' B' 



6 



IMPASM 



368 


033F 


join 

4Clo 


A 


XbKKUK: 


r t 
III 




^YNTiY FRROR • CJVNT'AY FRRC1R 


369 


0340 






* 








370 


0340 


2 CAD 


I 


XERRl : 


J bK 


PDDDD 




371 


0341 














372 


0341 


2105 


A 




Tun 
JMF 


U 1 IS.SliViU 




373 


0342 


2CAD 


I 


ERRST : 


JbK 


CiKKUK 




374 


0343 


4C00 


A 




LI 


KB , 10 




375 


0344 


infill 

4D01 


A 


INABS : 


III 


pi l 

KJ. f X 


• an? 


376 


034 5 


2CAE 


I 


INOUT : 


T O T3 


UU I WKD 




377 


0346 


2103 


A 




JMP 


T? NT P\ C T* 




378 


034 7 






? 








379 


0347 


2DF5 


A 


DIREND : 


JSR 


ifl c. v a or 1 




380 


0348 


2CAF 


I 




JSR 


f\ T D O O O 

Ul bKbr 


;UUlrUi INPUT bUrftiK AND KtrUKi bKKUKb 


381 


0349 


2102 


A 




JMP 


NEXJLbl 




382 


034A 


2DF2 


A 


ENDST : 


JSR 


(2 9XAKC3 




383 


034B 


2CB0 


I 




JSR 


D prjn r>"n 


;KfciPUKl EKKUKb 


384 


034C 






NEXTST: 








385 


034C 


8096 


B 




LD 


□ n tt n nil 




386 


034D 


a a ft "7 
A097 


B 




GIT 

b 1 






387 


034E 


8055 


B 




LD 


KM , EKKtJAb 




o o o 

388 


0 J4F 


AI0oB 


rj 
D 




b 1 


KW , tiKKf 1 




ion 

389 


fh O C f% 

0350 


4C00 


A 




Li 






390 


0351 


A06A 


B 




bT 


KM f MUr LAu 




391 


0352 


4DF1 


A 




LI 


Rl / —1 0 




392 


0353 


4400 


A 




PULL 


R0 




393 


0354 


4901 


A 




AISZ 


Rl , 1 




394 


0355 


21FD 


A 




JMP 


• — Z 




395 


0356 


81E7 


A 




LD 


R0 , $CB 




396 


0357 


B0B1 


I 




ST 


R0 , RELTB+3 


; REPLACE B IN ENTRY WHILH MAY HAVE 1 


397 


0358 






? 








398 


0358 






i 








399 


0358 


2CB2 


I 




Ton 

JSR 


READ 




400 


0359 


2C9C 


I 


NEXTLB: 


JSR 


GNVC 


•GET NEXT VALID CHAR 


401 


035A 


21EC 


A 




JMP 


DIREND 


;rINISn STATEMENT (END Ur blAl) 


402 


035B 


F04A 


B 




SKNE 


R0 , DOT 




403 


035C 


2108 


A 




JMP 


$D0T 


? DIRECTIVE OR .= 


404 


035D 






} 


LABEL , 


INSTR OR FORM 




405 


035D 


2CB3 


I 




JSR 


BLDNAM 


; BUILD NAME 


406 


035E 


21E0 


A 




JMP 


X ERROR 


;N0 NAME 


407 


035F 


F04B 


B 




SKNE 


R0 , COLAN 




408 


0360 


24B4 


I 




JMP 


LABEL 


; LABEL 


403 


0361 


F04C 


3 




SKNE 


jt\u f uyunu 




410 


0362 


24B5 


I 




JMP 


ASSIGN 


; ASSIGN DIRECTIVE 


411 


0363 


2CB6 


I 




JSR 


IFBYP 


•IF BYPASS? 


412 


0364 


2108 


A 




JMP 


$SERCH 


; INSTR OR FORM SEARCH 


413 


0365 


2C9C 


I 


$ DOT : 


JSR 


GNVC 




414 


0366 


21D8 


A 




JMP 


XERROR 




415 


0367 


F04C 


B 




SKNE 


R0 f EQUAL 




416 


0368 


24B7 


I 




JMP 


DOT AS N 




417 


0369 


7C5E 


B 




DSZ 


INPTR 


; INPUT CHAR PTR 


418 


036A 


4C2E 


A 




LI 


R0, '. 7256 




419 


036B 


2CB8 


I 




JSR 


BLDDIR 




420 


036C 


2102 


A 




JMP 


XERROR 




A O 1 










DIRECTIVE OR INSTR OR 


tUKM bliAKv^H 


422 


036D 


2CB9 


I 


$SERCH: 


JSR 


DISER 




423 


036E 


2107 


A 




JMP 


$5A 




424 


036F 






7 


MATCH 


FOUND 




425 


036F 


8300 


A 




LD 


R0 f 0 (R3) 




426 


0370 


8701 


A 




LD 


Rl,l(R3) 




427 


0371 


A072 


B 




ST 


R0 , IVAL 




428 


0372 


A473 


B 




ST 


Rl r ICLASS 




429 


0373 


8069 


B 




LD 


R0,XINOK 


; EXTENDED INST OK FLAG (0=NO) 


430 


0374 


3681 


A 




RCPY 


R1,R2 





IMPASM 



431 


0375 


2200 


A 




JMP 


0 (R2) 


432 


0376 






$5A : 






433 


0376 








. IF 


SIZE4 


434 


0376 


4C2A 


A 




LI 


R0,42 


435 


0377 


21CA 


A 




JMP 


ERRST 


436 


0378 








.PAGE 


'END DIRECTI\ 


437 


0378 








. LOCAL 




438 


0378 


2031 


A 


$X2031 : 


.WORD 


02031 


439 


0379 












440 


0379 








END DIRECTIVE 


441 


0379 












442 


0379 






END: 






443 


0379 


2CBA 


I 




."T<?R 

*J OA 




444 


037A 


2CBB 


I 




JSR 


EXP 


445 


037B 


3081 


A 




NOP 




446 


037C 


3881 


A 




RCPY 


R 9 R0 


447 


037D 


1502 


A 






IN L , . i J 


448 


037E 


4C2A 


A 




LI 


R0 4 0 • 


449 


037F 


2CAD 


I 




U OK 


FPROP 


450 


0380 


8C6B 


B 




LD 


R ~\ QFfP 

I\ J f O £j \* X 


451 


0381 


805C 


B 




r n 


pci t nrfTD 


452 


0382 


A355 


B 




o x 


PCI lfPD-1 / D O \ 


453 


0383 


8758 


B 




LD 


Rl , AMAX-1 (R3) 


454 


0384 


2CBC 


I 




JSR 


MAXR1 


455 


0385 


A758 


B 




ST 


R1,AMAX-1 (R3) 


456 


0386 


806D 


B 




LD 


R0, IFPTR 


457 


0387 


F06E 


B 




SKNE 


R0 , IFPTRA 


458 


0388 


2102 


A 




JMP 


.+3 


459 


0389 


4C12 


A 




LI 


R0,18; 


460 


038A 


2 CAD 


I 




JSR 


ERROR 


461 


038B 


807A 


B 




LD 


R0,EXPVAL 


462 


038C 


2CBD 


I 




JSR 


OVAL 


463 


038D 


2CAF 


I 




JSR 


OIBREP 


464 


038E 


805D 


B 




LD 


R0,PASS 


465 


038F 


C1E8 


A 




ADD 


R0,$X2031 


466 


0390 


B0BE 


I 




ST 


R0,MSGP 


467 


0391 


805D 


B 




LD 


R0,PASS 


468 


0392 


1102 


A 




BOC 


Z ,ENDP1 


469 


0393 


144F 


A 




BOC 


B1EQ1 ,ENDP3 


470 


0394 


131C 


A 




BOC 


ODD, ENDP2 


471 


0395 












472 


0395 








END PASS 1 


47 3 














474 


W J J J 






Hi In U r J. • 






47 R 


V O J D 








LI 


R0,0 


4 If, 


V j j o 


A 1 4 A 


A 
c \ 




ST 


R0 , TLAST 


477 


0397 


A14A 


A 




ST 


R0,OLAST 


478 


0398 




A 




LI 


Rl,l 


479 


0399 


8091 


B 




LD 


R0,NOLIST 


480 


039A 


C08F 


B 




ADD 


R0 , ERRLST 


481 


039B 


D0 26 


B 




SUB 


R0,K1 


482 


039C 


1501 


A 




BOC 


NZ, .+2 


483 


039D 


4nw ? 


A 
ri 




LI 


Rl,2 


484 


0 39E 


A4 5D 


B 




ST 


R1,PASS 


485 


039F 


8020 


B 




LD 


R0 , DSKTMP 


486 


03A0 


1B02 


A 




BOC 


LEZ,$51 


487 


03A1 


2C1C 


B 




JSR 


^CLOSET 


488 


03A2 


A13E 


A 




ST 


R0, TLAST 


489 


03A3 


8096 


B 


$51: 


LD 


R0,HSPR 


490 


03A4 


1502 


A 




BOC 


NZ, .+3 


491 


03A5 


8D5A 


A 




LD 


R3,$TTL 


492 


03A6 


2C1B 


B 




JSR 


@MESS 



;OUTPUT OBJECT RECORD IF ANY 



UNDEFINED ERROR 



;SET Rl = MAX OF Rl AND R0 



NESTING USAGE ERROR 



;OUTPUT INPUT BUFFER , REPORT ERRS. 



8 



IMPASM 



493 


03A7 


2960 


A 




JSR 


OEPM 


494 


03A8 


805D 


B 




LD 


R0 , PASS 


495 


03A9 


1410 


A 




BOC 


B1EQ1 ,BEGP3 


496 


03AA 












497 


03AA 








BEGIN 


PASS 2 


498 


03AA 












499 


03AA 


2CBF 


I 




JSR 


RESETP 


500 


03AB 


2CC0 


I 




JSR 


PINIT 


501 


03AC 


808F 


B 




LD 


R0 , ERRLST 


502 


03 AD 


A08E 


B 




ST 


R0 , LISTMD 


503 


03AE 


4F06 


A 




LI 


R3,6 


504 


03AF 


2CA5 


I 




JSR 


MANYNL 


505 


03B0 


219B 


A 




JMP 


NEXTST 


506 


03B1 












507 


03B1 








END PASS 2 


508 


03B1 












509 


03B1 






ENDP2 : 






510 


03B1 


2962 


A 




JSR 


OPTRS 


511 


03B2 


8093 


B 




LD 


R0 ,NOMAP 


512 


03B3 


1102 


A 




BOC 


Z, .+3 


513 


03B4 


2CC1 


I 




JSR 


OMAP 


514 


03B5 


2101 


A 




JMP 


.+2 


515 


03B6 


2CBF 


I 




JSR 


RESETP 


516 


03B7 


2919 


A 




JSR 


$EL 


517 


03B8 


294F 


A 




JSR 


OEPM 


518 


03B9 


785D 


B 




ISZ 


PASS 


519 


03BA 






BEGP34: 






520 


03BA 


8090 


B 




LD 


R0 ,OBJMOD 


521 


03BB 


113E 


A 




BOC 


Z , $FINIS 


522 


03BC 


801E 


B 




LD 


R0 ,DSKOBJ 


523 


03BD 


1206 


A 




BOC 


P. S50 


524 


03BE 


9CC2 


I 




LD 


R3 ,MSGTO 


525 


03BP 


AC97 


B 




ST 


R3,TYPMOD 


526 


03C0 


2C99 


I 




JSR 


ONLMSG 


527 


03C1 


2CA8 


I 




JSR 


NEWLIN 


528 


03C2 


0000 


A 




HALT 




529 


03C3 


2CC3 


I 




JSR 


LEAD 


530 


03C4 












531 


03C4 






$50: 






532 


03C4 


805B 


B 




LD 


R0 , TMAX 


533 


03C5 


B0C4 


I 




ST 


R0 ,TTLBUF+3 


534 


03C6 


805A 


B 




LD 


R0 , BMAX 


535 


03C7 


B0C5 


I 




ST 


R0 , TTLBUF+2 


536 


03C8 


8D37 


A 




LD 


R3 , $TTL 


537 


03C9 


2CC6 


I 




JSR 


CKPNCH 


538 


03CA 


2CC7 


I 




JSR 


OGLOB 


539 


03CB 


2CC0 


I 




JSR 


PINIT 


540 


03CC 


805D 


B 




LD 


R0 , PASS 


541 


03CD 


848F 


B 




LD 


Rl, ERRLST 


542 


03CE 


F027 


B 




SKNE 


R0 f K3 


543 


03CF 


A48E 


B 




ST 


Rl, LISTMD 


544 


03D0 


24C8 


I 




JMP 


NEXTST 


545 


03D1 












546 


03D1 








OUTPUT 


ERROR LINES 


547 


03D1 












548 


03D1 


4C01 


A 


$EL: 


LI 


R0,1 


549 


03D2 


A08E 


B 




ST 


R0 , LISTMD 


550 


0 3D3 


2CA8 


I 




JSR 


NEWLIN 


551 


03D4 


8888 


B 




LD 


R2 ,EC 


552 


03D5 


4D20 


A 




LI 


Rl, 020 


553 


03D6 


8109 


A 




LD 


R0 , $NO 


554 


03D7 


F831 


B 




SKNE 


R2,X6666 


555 


03D8 


2CC9 


I 




JSR 


02CH 



; BEGIN PASS 3 OR 4 



; RESET P BITS IN SYMBOL TABLE 



; OUTPUT ALL POINTERS 



?WAIT FOR PT PUNCH ON 



; CHECKSUM AND PUNCH 



9 



IMPASM 



^ ^ A 


10 J U J 


F8 31 


B 




SKNE 


R2,X6666 




JJ / 


pi i na 


9 1 011 

Z 1 W 1 






JMP 


.+2 




^ K ft 

JJO 


pi ^nR 


2CCA 


I 




JSR 


0SPDEC 




3 J 7 




9CCB 


I 




LD 


P3,MSGN0E 


; 'ERROR LINES ' 


C\ 01 
DDK) 


pi 'Jnn 

10 jUU 




I 




JSR 


0MSG 




DDI 


pi np 


pi 901 oi 

YJ ^YJ YJ 


^ 




RTS 






c £ o 

5bz 


0 iut 






r 








DO o 


10 J Ur 


01 7F 0 




$TMP: 


. = .+1 






Db4 


01 "3 P 01 

10 JEI0 


A P AP 


A 
ft 




. WORD 


'NO ' 




56 5 


0 3E1 


01 317 0 
YJ it, Z 


A 

A 


i LiftO 1 . 


■ • ' X 






566 


03E2 


03E3 


A 


r\ T A C Tl • 

UEAbl : 


_ 1 1 
. — . +1 






567 


03E3 














568 


03E3 






i 








C C Q 

Doy 


01 "3 P "3 














C T 01 

D / 10 


01 IP "3 
10 Jt J 






£j LN U Jr 3 • 








D / 1 




0 Q "3 01 

zy jh 


ft 




JSR 


0PTRS 




C "7 O 

51 Z 








?>Utj . 








57 3 


01 O c 1 >1 




A 




T.T 

Xj X 


R0 , 1 




57 4 


none 
0 JtD 


A 01 Q IP 

AlOoE 


rj 
o 




O X 


R0 , LISTMD 




C ""7 C 

575 


01 0 t? C 

kl J E b 


old /A 






t n 

XjU 


R0 EXPVAL 

iX \J f 1_J /\ A. V X* J-l 


; EXPRESSION VALUE 


C "7 £ 

576 


01 "3 X? 1 

0 JE / 


Aim 


A 




cm 
O X 


R0 , ENDBUF+3 




57 7 


01 "3 TP O 

0 JEo 


o oi ir 


D 
D 




r n 

XjU 


R0 FXPREL 

L\ tJ f Ci /\ir xvJ-» u 


EXPRESSION RELOCATION MODE 


D / o 


01 "3 P O 

is j e y 


1 1 PI 1 
l J. t) x 


A 




BOC 


Z , . +2 




579 


03EA 


D026 


B 




COR 


Rd Kl 




580 


0 3EB 


Al 18 


A 




Cm 
b 1 


pci PMnRnp+9 

t\YJ t CiHuuur 




Do I 


01 "3 PC" 


0 UX 4 


A 




LD 


R3 , $EB 




582 


0 3ED 


ZLLb 


1 




TOD 
UOH 






583 


03EE 


801E 


B 




LD 


R0,DSKOBJ 




584 


03EF 


1B03 


A 




BOC 


LEZ , .+4 




585 


0 jr 0 


ZL 1L) 


D 

a 




JDK 


OPT D^FD 




c: o a 
Dob 


01 T P 1 


A 1 P 01 
A 1 1 10 


A 
ft 




cm 
D X 


R0 OLAST 




CO? 
DO/ 


PI 1 P 9 
It) J r Z 


9 1 PI 9 

t. X YJ Z 


a 
ft 




JMP 


. +3 




Do o 


01 "3 P 1 




T 
J. 




JSR 


LEAD 


; OUTPUT LEADER TO PT 


con 

Doy 


PI ipi 
10 J r ft 


Pi 0| Pi pi 

YJ YJ YJ YJ 






HALT 




; WAIT FOR PT PUNCH OFF 




W Jr J 


2912 






JSR 


0EPM 




591 


0 3F6 


8D6E 


A 




XjU 


□ "3, MQnnrK 


; 'OBJECT CHECKSUM = ' 


r n n 

592 


a or I 




T 
1 




U 0 1\ 


0MSG 




593 


0 3F8 


O 1 Ot IP 

810E 


A 




XjU 


RPI DRTPK' 


;0BJECT CHECKSUM 


Dy 4 


01 "3 P Q 

yj j r y 


Z^v^ u 


T 
X 




JSR 


0HEX 




Dy d 


ffl "3 P A 

10 o r A 






CPTHTC . 

y r X IN X o • 








r rt r 

596 


0 3FA 


Z4LE 


T 
1 


9 r x in x • 


IMP 






597 


0 3FB 














598 


0 3FB 












;0UTPUT INPUT BUFFER , REPORT 


5yy 


H Jf D 


ZLAr 


T 
1 


p MriD A • 

El IN U C 4 • 


uot\ 


DTRRFP 


600 


01 O IP/™ 1 

kJ Jr L 


z y i / 


A 

A 




TCP 
(J CD 1A 


Ur 1 t\o 


;0UTPUT POINTERS 


601 


0 0 r U 


ZLL 1 


T 
1 




TCD 


\J l v l ft JT 




ox) Z 


01 "3 IPC 

k) J r E 


Z X b D 


A 
ft 




IMP 
U l v l c 


$0E 


;0UTPUT END RECORD 


603 


03FF 






7 








604 


0 3FF 


O (71 1 1 

Zyj jl 


A 

A 


XZlaol : 


. WUKU 


02031 




a n c 
D LI D 


(71 d 01 01 
YJ 4 10 10 


on na 
lOxUft 


A 
t\ 


9 X X Xj : 


WDRn 
• Vr vj r\ L> 


TTLBUF 




r m r~ 

6 0 6 


10 4 10 1 


01 ^ 01 0 

Yj 4 k£3 Z 


A 


y Lh5 : 


. WUKU 


ENDBUF 




607 


0402 


/~» (71 (71 >1 

C004 


A 


ENDBUr : 


mod n 


0C004 




608 


0403 


0406 


A 




— J. "3 






609 


0406 


oi a n ~i 

040 7 


A 


bUULK : 


- 4-1 
. — • 'X 






bit) 


01 A 01 7 
10 ft W / 


01 A PI R 
10 4 10 o 


A 
ft 


OR TPff • 


. = . +1 






611 


0408 














612 


0408 








OUTPUT 


END PASS X MESSAGE 


613 


0408 














614 


0408 






0EPM: 








615 


0408 


8D3C 


A 




LD 


R3,MSGEP 




616 


0409 


AC9 7 


B 




ST 


R3 , TYPMOD 




617 


040A 


2C99 


I 




JSR 


ONLMSG 


; 'END PASS 1 ' 


618 


040B 


8096 


B 




LD 


R0 ,HSPR 





10 



IMPASM 



619 


040C 


A097 


B 




ST 


R0 , TYPMOD 


620 


040D 


813C 


A 




LD 


R0,MSGP 


621 


040E 


F1F0 


A 




SKNE 


R0 f X2031 


622 


040F 


0200 


A 




RTS 




623 


0410 


8D3B 


A 




LD 


R3 f MSGSOV 


624 


0411 


2C99 


I 




JSR 


ONLMSG 


625 


0412 


81F3 


A 




LD 


R0,SOUCK 


626 


0413 


24CD 


I 




JMP 


OHEX 


627 


0414 






; 






628 


0414 






; 






629 


0414 






; 


OUTPUT 


POINTERS 


630 


0414 






; 






631 


0414 






OPTRS : 






632 


0414 


2CA8 


I 




JSR 


NEWLIN 


633 


0415 


2CCF 


I 




JSR 


06B 


634 


0416 


4F02 


A 




LI 


R3 , 2 


635 


0417 


AC6B 


B 




ST 


R3/SECT 


636 


0418 


8057 


B 




LD 


R0 , BCTR 


637 


0419 


A05C 


B 




ST 


R0, LOCCTR 


638 


041A 


9CD0 


I 




LD 


R3 1 PTABF 


639 


041B 


ADC 3 


A 




ST 


R3, $TMP 


640 


041C 


2CAC 


I 




JSR 


INITOR 


641 


041D 






$NP: 






642 


041D 


8DC1 


A 




LD 


R3,$TMP 


643 


041E 


8300 


A 




LD 


R0,0(R3) 


644 


041F 


1501 


A 




BOC 


NZ, .+2 


645 


0420 


24BA 


I 




JMP 


OOREC 


646 


0421 


3181 


A 




RCPY 


R0,R1 


647 


0422 


8301 


A 




LD 


R0,1(R3) 


648 


0423 


2CAE 


I 




JSR 


OUTWRD 


649 


0424 


79BA 


A 




ISZ 


$TMP 


650 


0425 


79B9 


A 




ISZ 


$TMP 


651 


0426 


21F6 


A 




JMP 


$NP ;LOOP FOR 


652 


0427 








END OF 


POINTER OUTPUT 


653 


0427 












654 


0427 


0428 


A 


MSGBEG: 


.WORD 


.+1 


655 


0428 


4E53 


A 




.ASCII 


'NSC IMP-16 ASSEMBLER' 




0429 


4320 


A 










042A 


494D 


A 










042B 


502D 


A 












jijc 


A 










042D 


2041 


A 










042E 


5353 


A 










042F 


454D 


A 










0430 


424C 


A 










0431 


4552 


A 








656 


0432 


0D0A 


A 




= WORD 


0D0A 


657 


0433 


4D4 5 


A 




.ASCII 


'MEMORY =' 




0434 


4D4F 


A 










0435 


5259 


A 










0436 


203D 


A 








658 


0437 


0000 


A 




.WORD 


0 


659 


0438 


0439 


A 


MSGNXT: 


.WORD 


.+1 


660 


0439 


4E45 


A 




.ASCII 


'NEXT ASSEMBLY ' 




043A 


5854 


A 










043B 


2041 


A 










043C 


5353 


A 










043D 


454D 


A 










043E 


424C 


A 










043F 


5920 


A 








661 


0440 


0D0A 


A 




.WORD 


0D0A 


662 


0441 


2A2E 


A 




.ASCII 


'*.ASM ' 




0442 


4153 


A 









11 



IMPASM 



663 
664 
665 



666 
667 
668 
669 



0443 
0444 
0445 
0446 
0447 
0448 
0449 
044A 
044B 
044C 
044D 
044E 
044F 
0450 



4D20 A 
0000 A 
0446 
454E 
4420 
5041 
5353 
0000 
0000 



MSGEP: 



MSGP: 



044D A MSGSOV: 
534F A 
5552 A 
4345 A 
2043 A 



.WORD 

. WORD 
.ASCII 



.WORD 
.WORD 
.WORD 
.ASCII 



.+1 
'END PASS' 



0 
0 

.+1 

'SOURCE CK. 



670 
671 
672 



673 
674 
675 



676 
677 
678 



679 

680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 



0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

045A 

045B 

045C 

045D 

045E 

045F 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

046A 

046B 

046C 

046D 

046E 

046F 

0470 

0471 

0472 

0473 



4B2E 
3D20 
0000 
0455 
5455 
524E 
2050 
5420 
5055 
4E43 
4820 
4F4E 
2041 
4E44 
2050 
5553 
4820 

5255 
4E20 

0000 

0466 

204F 

424A 

2E43 

4B2E 

3D20 A 

0000 A 

046D 

2045 

5252 

4F52 

204C 

494E 

4553 

0000 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



MSGTO: 



MSGOCK; 



MSGNOE: 



0474 
0474 
0474 
04 74 
0474 
0474 

0474 8070 B 

0475 C06F B 

0476 8C6D B 

0477 FD2D A 

0478 210F A 

0479 786D B 
047A A301 A 



IF 



.WORD 

.WORD 
.ASCII 



.+1 

'TURN PT PUNCH ON AND PUSH RUN 



.WORD 0 

.WORD .+1 
.ASCII ' OBJ.CK.= 



.WORD 0 

, WORD .+1 

.ASCII ' ERROR LINES 



. WORD 0 

.PAGE 'IF , ELSE , ENDIF DIRECTIVES 
. LOCAL 

IF f ELSE , ENDIF DIRECTIVES 



LD 

ADD 

LD 

SKNE 
JMP 
ISZ 
ST 



R0 , IFMODE 

R0 , IFSTAT 

R3,IFPTR 

R3 , IFTBL 

$OV 

IFPTR 

R0,1(R3) 



;IF TABLE OVERFLOW 



12 



IMPASM 



Q 1 


047R 

19 ft / D 


4T0 9 






LI 


R0 r 2 




&Q 4 


04 7r 

D ft / V- 


ni/vf 


g 




ST 


R0 , IFSTAT 




D3J 


04 7n 

K/ ft / U 


9rm 


I 




JSR 


EXPABS 




D3D 


fid 7F 

KJ ft / Ej 


210C 






JMP 


$N0EX 


; ERROR - NO EXP 


697 


047F 


E023 


B 




SKG 


R0,ZERO 




698 


0480 


4C00 


A. 




LI 


R0 , 0 




fi99 

V 3 3 


0481 


1101 






BOC 


Z, .+2 




700 


0482 


4C01 


A 


$1 : 

y J. • 


LI 


R0, 1 




701 


0483 


6070 


B 




AND 


R0 , IFMODE 




709 


0484 


A070 


B 




ST 


R0 , IFMODE 




70 "3 


04 85 


807 A 


B 




LD 


R0,EXPVAL 


; EXPRESSION VALUE 


704 


0486 

t O v 


2CD2 


I 




JSR 


OHEXIF 




70 5 


0487 


24D3 


I 




JMP 


D I REND 




IQlf, 

1 V u 


0488 






» 








707 


0488 








IF TABLE OVERFLOW 




/Xf o 


04ff ft 


4C24 




$0V: 


LI 


R0, 36; 


TABLE OVERFLOW ERRC R 


709 


0489 


2CAD 


I 




JSR 


ERROR 




710 


048A 


2 4 D 3 


X 




JMP 


DI REND 




711 


048B 






i 


NO EXP ERROR 




71 9 

1 X t. 


048B 


4C2A 




V W J-i /» • 


LI 


R0,42; 


UNDEFINED ERROR 


713 


048C 


2CAD 


I 




JSR 


ERROR 




714 

/ J- 1 


048D 


21F4 






JMP 


$1 




715 


048E 
















048F 

v ** o Hj 








ELSE 


DIRECTIVE 




71 7 

IX/ 


048F 

K/ ■* VJ i-i 














71 ft 
/ x o 








ELSE : 








719 


048E 


806F 


B 




LD 


R0, IFSTAT 


:IF STATUS 


790 


04ftF 


F040 


B 




SKNE 


R0, K2 




791 


0490 


2103 






JMP 


$EL0K 


•ELSE OK 


100 


0491 

U fr J X 








NESTING ERROR 




123 


0491 


4C12 


A 


$NERR: 


LI 


R0,18; 


NESTING - USAGE ERROR 


724 


0492 


2CAD 


I 




JSR 


ERROR 




795 


049 3 
w ft 3 j 


24D3 


I 




JMP 


DIREND 




10 6 


0494 

X) H 3 H 






* 


ELSE 


OK 




727 


0494 






$EL0K : 








79ft 


0494 

V ft -7 *r 


4C04 


A. 




LI 


R0, 4 




1 99 


0495 

10 ft 7 J 


A06F 


B 




ST 


R0, IFSTAT 




7 30 

1 OX) 


0496 
iy *± ^ v 


8070 


B 




LD 


R0, IFMODE 




771 


0497 

U t 3 1 


5000 


a. 




CAI 


R0, 0 




7 7 9 


0 4 9ft 

X) ft 3 O 


60 9fi 


R 




AND 


R0 , Kl 




1~\~K 
1 J J 


04 99 
v ft 3 3 


a 0 7 0 


R 




ST 


R0, IFMODE 


f \J rl C Li Lj rl O iM -L IT 11 <J U £j 


7 74 


04 9 A 


9 4r>7 


T 




JMP 


DIREND 




TIC 
/ J J 


04 9R 
13 ft 3 D 














7 76 


04 9R 








ENDIF 


DIRECTIVE 




7 1 7 


0 A QR 
1/ fl 3 D 














/JO 


04 9R 
W ft 3D 






ENDIF : 








7 79 
/ J 3 


049R 
K/ fr 3 D 


ft06F 


B 




LD 


R0, IFSTAT 




1 4 0 

/IB 


049P 
C13^ 


1 1 P4 

X X C ft 


A 
n 




BOC 


Z , $NERR 


•MPSTTWfi FRRDR 


7 A 1 


0 4Qn 

It) ft 3iJ 


3BDU 


R 




LD 


R0,iaiFPTR 




742 


049E 


6026 


B 




AND 


R0,K1 




743 


049F 


A070 


B 




ST 


R0, IFMODE 




1AA 

1 Hi fl 


0 4 A 0 




R 
D 




LD 


R0,@IFPTR 




/ ft D 


04a l 

x) ftrt J. 


0 9fl 
D W Z o 


R 
D 




AND 


R0,K6 


; STATUS 


7 A £ 
/ ft u 


04& 9 


a 0 s i? 






ST 


R0 , IFSTAT 




74 7 


04A3 


7C6D 


B 




DSZ 


IFPTR 




748 


04A4 


24D3 


I 




JMP 


DIREND 




749 


04A5 














750 


04A5 


019P 


A 


IFTBL: 


. WORD 


IFTAB+9 


;IF TABLE MUP 


7 51. 


04A6 








. PAGE 


'ASECT, BSECT ,TSECT AND EXTD DlKKC i' £tf IS.-3 


752 


04A6 














753 


04A6 








ASECT 


,BAECT f TSECT, 


AND EXTD DIRECT CVtiS 


754 


04A6 















13 



IMPASM 



755 


04A6 








. LOCAL 




756 


04A6 


4F01 


A 


ASECT: 


LI 


R3 f 1 


757 


04A7 






$1 : 






758 


04A7 


2CB6 


I 




JSR 


IFBYP 


759 


04A8 


886B 


B 




LD 


R2, SECT 


760 


04A9 


805C 


B 




LD 


R0 , LOCCTR 


761 


04AA 


A255 


B 




ST 


R0 ,ACTR-1 (R2) 


762 


04AB 


8658 


B 




LD 


Rl, AMAX-1 (R2) 


763 


04AC 


2910 


A 




JSR 


MAXRl 


764 


04AD 


A658 


B 




ST 


Rl , AMAX-1 (R2) 


765 


04AE 


8755 


B 




LD 


Rl , ACTR-1 (R3) 


766 


04AF 


AC6B 


B 




ST 


R3,SECT 


767 


04B0 


A4 5C 


B 




ST 


Rl, LOCCTR 


768 


04B1 


2CBA 


I 




JSR 


OOREC 


769 


04B2 


805C 


B 




LD 


R0 , LOCCTR 


770 


04B3 


2CBD 


I 




JSR 


OVAL 


771 


04B4 


24D3 


I 




JMP 


DIREND 


772 


04B5 












773 


04B5 


4F02 


A 


BSECT: 


LI 


R3 , 2 


774 


04B6 


21F0 


A 




JMP 


$1 


775 


04B7 






u 

t 






776 


04B7 


4F03 


A 


TSECT: 


LI 


R3, 3 


777 


04B8 


21EE 


A 




JMP 


$1 


778 


04B9 












779 


04B9 












780 


04B9 






EXTD: 






781 


04B9 


2CB6 


I 




JSR 


IFBYP 


782 


04BA 


4C01 


A 




LI 


R0 , 1 


783 


04BB 


A069 


B 




ST 


R0 , XINOK 


784 


04BC 


24D3 


I 




JMP 


DIREND 


785 


04BD 












786 


04BD 








PUT MAX 


OF R0 AND Rl 


787 


04BD 












788 


04BO 


A109 


A 


MAXRl : 


ST 


R0,$TMP 


789 


04BE 


3482 


A 




RXOR 


Rl ,R0 


790 


04BF 


1204 


A 




BOC 


P , $SAME 


791 


04C0 


8106 


A 




LD 


R0, STMP 


792 


04C1 


1201 


A 




BOC 


P f .+2 


793 


04C2 


8504 


A 




LD 


R1,$TMP 


794 


04C3 


0200 


A 




RTS 




795 


04C4 








SAME SIGN 


796 


04C4 


E502 


A 


$SAME : 


SKG 


Rl,$TMP 


797 


04C5 


8501 


A 




LD 


R1,$TMP 


798 


04C6 


0200 


A 




RTS 




799 


04C7 


04C8 


A 


$TMP: 


. = .+1 




800 


04C8 








. PAGE 


'GLOBL, LOCAL, 


801 


04C8 








. LOCAL 




802 


04C8 












803 


04C8 








GLOBL, LOCAL, ASCII AND 


804 


04C8 












805 


04C8 






V_J LJ V_/ Jul • 






806 


04C8 


2CB6 


x 




JSR 


IFBYP 


807 


04C9 


2CD4 


I 




JSR 


GSYM 


808 


04CA 


210E 


A 




JMP 


$4 


809 


04CB 


8300 


A 


$1: 


LD 


R0,0(R3) 


810 


04CC 


6029 


B 




AND 


R0,KP 


811 


04CD 


1508 


A 




BOC 


NZ,$3 


812 


04CE 






> 


SET GLOBL BIT 


813 


04CE 


83FF 


A 




LD 


R0 r -1 (R3) 


814 


04CF 


682C 


B 




OR 


R0,K4 


815 


04D0 


A3FF 


A 




ST 


R0,-1 (R3) 


816 


04D1 






$1A: 






817 


04D1 


2C9B 


I 




JSR 


GCOMMA 



;SET Rl = MAX OF Rl AND R0 



?OUTPUT OBJECT RECORD IF ANY 



;IF BYPASS 
;NO SYMBOL 

; ERROR-LOCAL CAN NOT BE MADE GLOBL 
?SET GLOBL BIT 



14 



IMPASM 



818 


04D2 


24D3 


I 




JMP 


DIREND 




819 


04D3 


2CD4 


I 




JSR 


GSYM 




820 


04D4 


24D3 


I 




JMP 


DIREND 


;LIST EXHAUSTED 


821 


04D5 


21F5 


A 




JMP 


$1 


;LOOP 


822 


04D6 














823 


04D6 


4C12 


A 


$3: 


LI 


R0,18? 


USAGE ERROR ; CONTRADICTON - 


824 


04D7 


2CAD 


I 


$2: 


JSR 


ERROR 




825 


04D8 


21F8 


A 




JMP 


$1A 




826 


04D9 


4C00 


A 


$4: 


LI 


R0,0; 


MISSING ARG. ERROR ; ERROR 


827 


04DA 


21FC 


A 




JMP 


$2 




828 


04DB 














829 


04DB 








LOCAL 


DIRECTIVE 




830 


04DB 














831 


04DB 






LOCAL: 








832 


04DB 


2CB6 


I 




JSR 


IFBYP 


;IF BYPASS 


833 


04DC 


4C01 


A 




LI 


R0, 1 




834 


04DD 


C06C 


B 




ADD 


R0 , LOCREG 




835 


04DE 


g033 


n 




SKG 


R0,HEX3F 




836 


04DF 


2103 


A 




JMP 


$5 




837 


04E0 


4C24 


A 




LI 


R0,36; 


TABLE OVERFLOW ERROR ; ERROR 


838 


04E1 


2CAD 


I 




JSR 


ERROR 


839 


04E2 


24D3 


I 




JMP 


DIREND 




840 


04E3 


A06C 


B 


$5: 


ST 


R0 , LOCREG 




841 


04E4 


24D3 


I 




JMP 


DIREND 




842 


04E5 














843 


04E5 








WORD DIRECTIVE 




844 


04E5 














845 


04E5 






WORD: 








846 


04E5 


2CB6 


I 




JSR 


IFBYP 


;IF BYPASS 


847 


04E6 


2CBB 


I 




JSR 


EXP 




848 


04E7 


24D5 


I 




JMP 


ERRST 




849 


04E8 


2CAE 


I 


$6: 


JSR 


OUTWRD 


; OUTPUT WORD 


850 


04E9 


2C9B 


I 




JSR 


GCOMMA 




851 


04EA 


24D6 


I 




JMP 


ENDST 




852 


04EB 


2CBB 


I 




JSR 


EXP 


;GET EXPRESSION 


853 


04EC 


24D6 


I 




JMP 


ENDST 




854 


04 ED 


21FA 


A 




JMP 


$6 




855 


04EE 














856 


04EE 








ASCII 


DIRECTIVE 




857 


04EE 














858 


04EE 






ASCII : 








859 


04EE 


2CB6 


I 




JSR 


IFBYP 




860 


04EF 


2CD7 


I 




JSR 


GNSTRG 


;GET NEW STRING 


861 


04F0 


2108 


A 




JMP 


$10 


; ERROR - NONE 


862 


04F1 


4D01 


A 


$12: 


LI 


Rl, 1 


;RELOCATION=ABS 


863 


04F2 


2CAE 


I 




JSR 


OUTWRD 


; OUTPUT WORD 


864 


04F3 


2CD8 


I 




JSR 


GCSTRG 


•GET CONTINUATION OF STRING 


865 


04F4 


2101 


A 




JMP 


$11 


; STRING END 


866 


04F5 


21FB 


A 




JMP 


$12 




867 


04F6 








IS THERE ANOTHER STRING 


868 


04F6 


2C9B 


I 


$11: 


JSR 


GCOMMA 


;GET COMMA 


869 


04F7 


24D6 


I 




JMP 


ENDST 




870 


04F8 


21F5 


A 




JMP 


ASCII 


? COMMA 


871 


04F9 








ERROR 






872 


04F9 


4C18 


A 


$10: 


LI 


R0,24; 


SYNTAX ERROR 


873 


04FA 


2CAD 


I 




JSR 


ERROR 




874 


04FB 


24D3 


I 




JMP 


DIREND 




875 


04FC 








.PAGE 


'PAGE SPACE 


AND LIST DIRECTIVES' 


876 


04FC 














877 


04FC 








PAGE, SPACE AND LIST 


DIRECTIVES 


878 


04FC 














879 


04FC 








. LOCAL 
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880 04FC 2926 A PAGE: 

881 04FD 2CB6 I 

882 04FE 4FE2 A 

883 04FF AD37 A 

884 0500 2CD7 I 

885 0501 210C A 

886 0502 2102 A 

887 0503 2CD8 I $2: 

888 0504 2105 A 

889 0505 $3: 

890 0505 8931 A 

891 0506 C931 A 

892 0507 A200 A 

893 0508 792E A 

894 0509 21F9 A 

895 050A 892C A $4: 

896 050B C92C A 

897 050C 4C00 A 

898 050D A200 A 

899 050E ; 

900 050E 4F07 A $1: 

901 050F CC71 B 

902 0510 2CD9 I 

903 0511 2CCF I 

904 0512 24D3 I 

905 0513 

906 0513 290F A SPACE: 

907 0514 2CB6 I 

908 0515 2CDA I 

909 0516 3081 A 

910 0517 E071 B 

911 0518 2101 A 

912 0519 21F4 A 

913 051A 3381 A 

914 051B 5001 A 

915 051C C071 B 

916 051D A071 B 

917 051E 4300 A 

918 051F 2CAF I 

919 0520 4700 A 

920 0521 2CA5 I 

921 0522 24C8 I 

922 0523 ; 

923 0523 805D B $BYPl: 

924 0524 1301 A 

925 0525 24D3 I 

926 0526 0200 A 

927 0527 ; 

928 0527 LIST: 

929 0527 2CB6 I 

930 0528 2CBB I 

931 0529 4C01 A 

932 052A E023 B 

933 052B 4C00 A 

934 052C 1101 A 

935 052D 4C01 A 

936 052E 4000 A 

937 052F 2CAF I 

938 0530 4400 A 

939 0531 848F B 

940 0532 F426 B 

941 0533 A08E B 

942 0534 1501 A 



JSR 


$BYP1 


;BYPASS IF PASS 1 


JSR 


IFBYP 




T T 

bl 


p J 1 JD 


;MAX. 60 CHAR. STRING 


bl 






TOO 
JDK 


Vji^O X I" W 


;GET NEW STRING 


J 1*1 IT 


v x 


;N0 STRING 


Tun 

J Mr 






J bK 




;GET NXT 2 CARS OF STRING 


"TMD 
J Fir 


S4 


•NONE LEFT 

0 llV/tl U XJ Xj L X 


T Pi 
LlD 


KZ f 9 X X 




ADD 


R3 CpfiRP 




ST 


Krl r V) ( K Z ; 




TOO 

IhZ 


>X 1 




J Fir 


■? z 










ADD 


R2,$PGBP 




LI 


R0,0 




bx 


RCI 01 ( R 9 } 


•^ET FND MSG INDICATOR 


bJ bLl 


irrtvjCi f\IHU IrKXIMX 




bx 


K J f / 




»nn 
ADU 


d "3 przpr. 


•PAfiF RFMAINING LINES 


JoK 


HDflQTR 


•OUTPUT PAGE STRING 


TOO 

>J oK 


UDD 




Jflr 


Dl KCjNU 




7 C D 

J bJK 


?DIrl 


•RVPA^^ TF PASS 1 


TOD 

J bK 


T PRVD 
J. r D X f 




TOD 

Jon 


VYDO 
Ei Arr 


• f^PT RVP POSTTTVE 

f <j Cj x uAr ruo J. 1 1 V L 


MOD 
WUr 






c it r* 
bK(j 


DPI Df-RT 
KB r rurb 




TUT) 


4.9 
. + Z 




J Mr 






RCPY 


R0,R3 




CAI 


R0,1 




ADD 


KB , fVjKL 




b I 


KB r rbKL 




nrio u 

PUon 






ton 

JbR 


Ux bKtF 




PULL 


R3 




JSR 


MANYNL 




JMP 


NEXTST 




LD 


R0,PASS 




BOC 


ODD, .+2 




JMP 


DIREND 




RTS 







JSR IFBYP 

JSR EXP 

LI R0,1 

SKG R0,ZERO 

LI R0,0 

BOC Z,.+2 

LI R0,1 

PUSH R0 

JSR OIBREP 

PULL R0 

LD Rl , ERRLST ;1=N0PMAL LISTING 0=EFROR LISTING 

SKNE R1,K1 

ST R0 , LISTMD ;SET LISTING MODE 

BOC NZ,.+2 
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943 0535 2CA8 I 

944 0536 24C8 I 

945 0537 ; 

946 0537 0000 A $Tl: 

947 0538 ; 

948 0538 018E A $PGBF: 

949 0539 ; 

950 0539 ASMDIR: 

951 0539 2CB6 I 

952 053A 2CA7 I 

953 053B 24DB I 

954 053C 24D3 I 



JSR 
JMP 



NEWLIN 
NEXTST 



955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 



053D 
053D 
053D 
053D 
053D 
053D 
053D 
053E 
053F 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
054A 
054B 
054C 
054D 
054E 
054F 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
055A 
055B 
055C 
055D 
055D 
055E 
055F 
0560 
0560 
0560 
0560 
0561 
0562 
0563 
0564 
0565 



2CB6 
2C9C 
24DB 
2CB3 
24DB 
805D B 
1523 A 
4C10 A 
B0A1 I 
807D B 
5C01 A 
5CFF A 
B0A2 I 



807E B 
B0A3 I 
807F B 
B0A4 
8120 
A11E 
2C9B 
210E 
2CD7 
24DB 
B119 
7918 
8117 
F118 A 
2104 A 
2CD8 
2105 
B112 
21F8 



4C00 
8D0C 
A300 
4B01 
FD0B 
24D3 



TITLE: 



$1: 



2CD8 I $2: 
24D3 I $4: 
21FD A 



$BLNK: 



$3: 



.WORD 0 



.WORD PGSTRG+30 



JSR 
JSR 
JMP 
JMP 



IFBYP 
PRCTRL 
XERROR 
DIREND 



.PAGE 
. LOCAL 



TITLE DIRECTIVE 
TITLE DIRECTIVE 



JSR 

JSR 

JMP 

JSR 

JMP 

LD 

BOC 

LI 

ST 

LD 

SHL 

SHR 

ST 

LD 

ST 

LD 

ST 

LD 

ST 

JSR 

JMP 

JSR 

JMP 

ST 

ISZ 

LD 

SKNE 

JMP 

JSR 

JMP 

ST 

JMP 

BUFFER 

JSR 

JMP 

JMP 



IFBYP 

GNVC 

XERROR 

BLDNAM 

XERROR 

R0,PASS 

NZ,$5 

R0,16 

R0,TTLBUF 

R0,NAM0 

R0 # 1 

R0, 1 

R0,TTLBUF+4 

R0,NAM1 

R0 ,TTLBUF+5 

R0 ,NAM2 

R0 , TTLBUF+6 

R0,$PTR1 

R0, $PTR 

GCOMMA 

SBLNK 

GNSTRG 

XERROR 

R0.0SPTR 

$PTR 

R0,$PTR 

R0,$PTRL 

$2 

GCSTRG 
$BLNK 
R0,@$PTR 
$1 
FULL 
GCSTRG 
DIREND 
$2 



?1ST 2 CHARACTERS OF NAME 

;3RD AND 4TH CHARACTERS OF NAME 
;5TH AND 6TH CHARACTERS OF NAME 

:NO STRING , BLANK OUT BUFFER 



;TITLE BUFFER FULL 

; END OF STRING 

;LOOP FOR REST OF STRING 



BLANK OUT REST OF TITLE BUFFER 



LI 
LD 
ST 

AISZ 
SKNE 
JMP 



R0, 0 
R3 f $PTR 
R0 f 0(R3) 
R3 f 1 

R3,$PTRL 
DIREND 
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1006 


0566 


21FB 


A 




JMP 


$3 


;LOOP BACK 


1007 


0567 






* 








1008 


0567 


2C9B 


I 


$5: 


JSR 


G COMMA 




1009 


056P 


24D3 


I 




JMP 


DIREND 




l 1/1 u 


0569 


2CD7 


I 




JSR 


GNSTRG 




1011 


056A 


24DB 


I 




JMP 


X ERROR 




1012 


056B 


2CD8 


I 




JSR 


GCSTRG 




1013 


056C 


24D3 


I 




JMP 


DIREND 




1014 


056D 


21FD 


A 




JMP 


.-2 




1015 


056E 














1016 


056E 


056F 


A 


$PTR: 


. = .+1 






1017 


056F 


01E1 


A 


$PTR1: 


.WORD 


TTLBUF+7 




1018 


0570 


01EC 


A 


$PTRL: 


.WORD 


TTLBUF+18 




1019 


0571 








.PAGE 


'PROCESS LABEL' 




1020 


0571 








. LOCAL 






1021 


0571 






; 








1022 


0571 






; 


PROCESS 


LABEL: 




1023 


0571 






; 








1024 


0571 






LABEL: 








1025 


0571 


885E 


B 




LD 


R2 , INPTR 




1026 


0572 


82FF 


A 




LD 


R0,-1 (R2) 




1027 


0573 


F034 


B 




SKNE 


R0, BLANK 




1028 


0574 


24DB 


I 




JMP 


XERROR 




1029 


0575 


785E 


B 




ISZ 


INPTR 


; INPUT CHAR PTR 


1030 


0576 


2947 


A 




JSR 


PREPLB 




1031 


0577 


24DC 


I 




JMP 


NEXTLB 


;BYPASS LBL ASSIGNMENT , GO 


1032 


0578 


8083 


B 




LD 


R0 , STPDEF 




1033 


0579 


1103 


A 




BOC 


Z,$7 




1034 


057A 






$20: 








1035 


057A 


4C30 


A 




LI 


R0,4P; 


DUPLICATE DEF ERROR 


1036 


057B 


2CAD 


I 




JSR 


ERROR 


; ERROR - DUPLICATE DEF 


1037 


057C 


24DC 


I 




JMP 


NEXTLB 




1038 


057D 


2CDD 


I 


$7: 


JSR 


P2P1 




1039 


057E 


2107 


A 




JMP 


$CK 




1040 


057F 


805C 


B 




LD 


R0,LOCCTR 




1041 


0580 


A3FE 


A 




ST 


R0,-2(R3) 




1042 


0581 


806B 


B 




LD 


R0,SECT 




1043 


0582 


C029 


B 




ADD 


R0,K8 


;SET PDEF BIT 


1044 


0583 


C3FF 


A 




ADD 


R0,-1 (R3) 




1045 


0584 


A3FF 


A 




ST 


R0,-1(R3) 


;SET RELOCATION 


1046 


0585 


24DC 


I 




JMP 


NEXTLB 


;GO TO NEXT LBEL 


1047 


0586 






? 


CHECK LOCCTP ALIGNMENT 




1048 


0586 


83FF 


A 


$CK: 


LD 


R0,-1 (R3) 




1049 


0587 


C029 


B 




ADD 


R0 , K8 




1050 


0588 


A3FF 


A 




ST 


R0 f -1 (R3) 




1051 


0589 


83FE 


A 




LD 


R0,-2(R3) 




1052 


058A 


F05C 


B 




SKNE 


R0 f LOCCTR 




1053 


058B 


24DC 


I 




JMP 


NEXTLB 




1054 


058C 


21ED 


A 




JMP 


$20 


;MISALIN 


1055 


058D 






; 








1056 


058D 






; 


ASSIGN 


DIRECTIVE 




1057 


058D 






; 








1058 


058D 






ASSIGN: 








1059 


058D 


785E 


B 




ISZ 


INPTR 


; INPUT CHAR PTR 


1060 


058E 


292F 


A 




JSR 


PREPLB 


;PREP LABEL 


1061 


058F 


24D3 


I 




JMP 


DIREND 




1062 


0590 


AC 8 A 


B 




ST 


R3 , LBLPT 


; SAVE LABEL PTR 


1063 


0591 


2930 


A 




JSR 


EXP 




1064 


0592 


2125 


A 




JMP 


$2 


; NO EXP - ERROR 


1065 


0593 


8C8A 


3 




LD 


R3, LBLPT 




1066 


0594 


83FF 


A 




LD 


R0,-1 (R3) 




1067 


0595 


6029 


B 




AND 


R0,K8 
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1 Plfifl 
1 i) Do 




1 CWF 

J. D Br 


A 
M 


1 ACQ 
XBD5 


01 CQ7 


fi 01 7 a 
OB / A 


D 

D 


J. v 1 a 


v D y o 


a "J ff 

A JP E< 


A 
A 


i cm 

1 B / 1 


VDyy 


R017P 
OB /L 


D 

D 


1 01 7 0 

It) 1 £. 


v D yt\ 


fi n 77 

D V c. 1 


D 

a 


107 7 
lii / j 


vzjyo 




A 
rt 




v D y\. 


OHIO 


D 

D 


1075 


059D 








0! CQF 

B J7Ei 


JlBB 


A 

A 


1 01 7 7 


BDyr 


o / r r 


A 

A 


1 017 0 
IB / O 


oi c a oi 
B DAB 


fi yl OF 


D 
D 


1 017 Q 
1 B / y 


B DAI 


o x n oi 
.34 BB 


A 


i a a n 
lBoB 


W DAZ 


Ajf r 


A 

A 


IBol 


B DAo 






inoo 
looZ 


B jAJ 


o on a 
OB /A 


D 
D 




01 C A A 

0DA4 






1084 


0 5A*i 


^ ^ ^ 
BD 


1 


1 BO D 


oi c a c 
B DAD 


O » rvfi 


T 
1 


1 B o 0 


61 C A £. 
B D AO 






1 (710 7 


B DAD 


OlDU 

ajr r 


A 


1 aoo 

1 B o o 


oi c a 7 
B DA / 


fi a op 
o B zL 


D 


1 ACQ 
lBtjy 


fit C B. Q 
D DAo 


i cfa 
l Dr A 


A 

A 


1 ci o a 

Iv j V 


CI CA Q 
B JflS 


AC T CI 


A 


i aa l 


01 CB & 
B DAA 


op a n 
ZLAU 


T 
1 


1 01 Q 0 


oi c a n 
BDArJ 


01 F7 


A 


"1 CIQ 1 

IB? j 


oi c a p 

B DflL 








01 KIP 

B DAL 






1 01 Q C 

iwy d 


BDAL 






i b y o 


oi c a p 
B DAL 






1 01 Q 7 

lay J 


oi £ &r 
B DAL 


OPDfi 


T 
1 


1 01 Q Q 

i w y o 


B DAU 


OQ 1 A 
Zy 1 4 


A 

A 


1 0IQQ 

iByy 


01 C a t? 
B DAti 


0 1 01 Q 

/I By 


A 

A 


1 1 0101 


ACAD 

B DAP 


"3 o q a 


A 

A 


i i a i 
1101 


01 C D 01 
B DoB 


linn 

iikjy 


A 

A 


1 1 ci o 

1 1 V Z 


a cd i 
B DDI 


D / CD 

r 4 ot3 


D 

D 


llvo 


0 CRO 


o i a i 
ZlBl 


A 

A 


11B4 


oi cm 

B JDJ 


Ol no 


A 

A 


I 1 01 C 

I I B D 


oi ;n a 
B DB4 


Ao DL 


a 




BDoD 


OP D A 


T 

1 


11(9 / 


acne 
BDBo 


oner 
oBDC 


B 


1 1 01 o 
llBO 


bdB7 


2.1 EC 


A 


I 1 an 

I I b y 


W Doc 






1110 


B DBo 


4C00 


A 


1111 

1111 


B SB? 


z4DE 


I 


i l l o 


05BA 


A P 1 1 

4L 1 ^ 


A 


1 1 1 o 

111 J 


05BB 


24DE 


I 


1114 


05BC 


4C12 


A 


1115 


05BD 


24DE 


I 


lllO 


B D Bti 






HIT 

111/ 


01 CDC* 

B DBb 






1 1 1 Q 

1 llo 


BDBb 






l l i a 

Illy 


05BE 






I i o a 

II Zv 


B DBfc. 






1121 


05BE 






1122 


05BE 






1123 


05BE 






1124 


05BE 


2CB6 


I 


1125 


05BF 


2CDF 


I 


1126 


05C0 


0200 


A 


1127 


05C1 


0201 


A 



$10: 



so: 



$1 



D0TASN: 



$2: 
$3: 
$6: 



PREPLB: 



BOC 

LD 

ST 

LD 

AND 

BOC 

LD 

SHL 

RADD 

LD 

AND 

RADD 

ST 



NZ, $1 

R0, EXPVAL 

R0,-2(R3) 

R0 r EXPREL 
R0 f K3 
Z,$3 

R1,EXPPD 

Rl r 3 

R1,R0 

R1,-1(R3) 

Rl, XFFF0 

R1,R0 

R0,-1(R3) 



EXPRESSION VALUE 
; SET VALUE 

; EXPRESSION RELOCATION MODE 



LD R0, EXPVAL 

OUTPUT VALUE AND RETURN 
JSR OVAL 
JMP ENDST 



;0FFF0 



; EXPRESSION VALUE 



LD 

AND 

BOC 

LI 

JSR 

JMP 



R0,-1 (R3) 

R0,K4 

NZ,$10 

R0,4B; 

ERROR 

$10 



DUPLICATE DEF ERROR 



DOT ASSIGN DIRECTIVE 



JSR 

JSR 

JMP 

RXCH 

BOC 

SKNE 

JMP 

JMP 

ST 

JSR 

LD 

JMP 

LI 

JMP 

LI 

JMP 

LI 

JMP 



IFBYP 

EXP 

$2 

R0,R2 
Z,$3 
Rl , SECT 
.+2 

$6 

R2,LOCCTR 

OOREC 

R0 , LOCCTR 

$5 

R0,0; 
XERR1 
R0 f 18; 
XERR1 
R0, 18; 
XERR1 



;N0 EXP ERROR 
;NOT PREV DEF 



MISSING ARG. ERROR 
NOT PREV DEFINED ERROR 
USAGE ERROR 



;MISSING EXP E 
;NOT PREV 



PREPARE LABEL FOR ASSIGNMENT OF VALUE 

JSR PREPLB 
NOT OK 

OK -LBL READY 



JSR 
JSR 
RTS 
RTS 



IFBYP 
STSER 



; SYMBOL TABLE SEARCH 
; OVERFLOW 



1128 05C2 



.PAGE 'EXPRESSION CALC. ' 
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IMPASM 



1129 


05C2 






1130 


05C2 






1131 


05C2 






1132 


05C2 






1133 


05C2 






1134 


05C2 






1135 


05C2 






1136 


05C2 


4C00 


A 


1137 


05C3 


A07A 


B 


1138 


05C4 


4C01 


A 


1139 


05C5 


A07C 


B 


1140 


05C6 


A07B 


B 


1141 


05C7 


2C9D 


I 


1142 


05C8 


2106 


A 


1143 


05C9 


F42C 


B 


1144 


05CA 


2101 


A 


1145 


05CB 


2125 


A 


1146 


05CC 


A07A 


B 


1147 


05CD 


A47C 


B 


1148 


05CE 


216D 


A 


1149 


05CF 


2C9C 


I 


1150 


05D0 


216F 


A 


1151 


05D1 


F050 


B 


1152 


05D2 


2101 


A 


1153 


05D3 


2105 


A 


1154 


05D4 


4C18 


A 


1155 


05D5 


2CAD 


I 


1156 


05D6 


21F8 


A 


1157 


05D7 






1158 


05D7 


2C9C 


I 


1159 


05D8 


215D 


A 


1160 


05D9 






1161 


05D9 






1162 


05D9 


A116 


A 


1163 


05DA 


F04F 


B 


1164 


05DB 


2159 


A 


1165 


05DC 


F043 


B 


1166 


05DD 


2157 


A 


1167 


05DE 


F046 


B 


1168 


05DF 


2155 


A 


1169 


05E0 






1170 


05E0 


2970 


A 


1171 


05E1 


21 2D 


A 


1172 


05E2 


810D 


A 


1173 


05E3 






1174 


05E3 


F050 


B 


1175 


05E4 


210C 


A 


1176 


05E5 


F051 


B 


1177 


05E6 


2117 


A 


1178 


05E7 


F03C 


B 


1179 


05E8 


2137 


A 


1180 


05E9 


F035 


B 


1181 


05EA 


213B 


A 


1182 


05EB 


F053 


B 


1183 


05EC 


213F 


A 


1184 


05ED 


F054 


B 


1185 


05EE 


2142 


A 


1186 


05EF 


2109 


A 


1187 


05F0 


05F1 


A 


1188 


05F1 






1189 


05F1 






1190 


05F1 






1191 


05F1 







. LOCAL 



EXP: 



SI: 



$NXT: 



$1A: 



$OP: 



JSR EXP 

NO EXP RETURN (NOT AN ERROR) - EXPVAL=0 
NORMAL RETURN - R0=EXPVAL 

R2=EXPPD (PREV.DEF.) 



;EXPRESSION VALUE 



LI 




ST 


R0 , EXPVAL 


LI 


R0 , 1 


ST 


R0 , EXPKLL 


ST 


R0 ,EXPPD 


JSR 


GITEM 


JMP 


$1 


SKNE 


Rl ,K4 


JMP 


. +2 


JMP 


$PLUS 


ST 


R0,EXPVAL 


ST 


Rl , EXPREL 


JMP 


$FIN 


JSR 


GNVC 


JMP 


$EX0 


SKNE 


R0 ,CPLUS 


JMP 


. +2 


JMP 


$1A 


LI 


R0,24; 


JSR 


ERROR 


JMP 


$1 


JSR 


GNVC 


JMP 


$EXPND 


CECK 


OPERATOR ELSE 


ST 


R0 , $OP 


SKNE 


R0 , COMMA 


JMP 


$COM 


SKNE 


R0 , RPAREN 


JMP 


$COM 


SKNE 


R0 , LPAREN 


JMP 


$COM 


JSR 


GITEM 


JMP 


$XERR 


LD 


R0,$OP 


SKNE 


R0,CPLUS 


JMP 


SPLUS 


SKNE 


R0,CMINUS 


JMP 


SMINUS 


SKNE 


R0 f CMPY 


JMP 


$MPY 


SKNE 


R0,CDIV 


JMP 


$DIV 


SKNE 


R0 , CAND 


JMP 


SAND 


SKNE 


R0 f COR 


JMP 


$OR 


JMP 


SEERR 


. = .+1 




PLUS 


OPERATOR 



? EXPRESSION RELOCATION MODE ;SET ABS 
; PREV. DEF . 1=YES ;SET PREV. DEF. YES 

?NO ITEM, PROBABLY AN OPERATOR 



;NO EXP 



ERROR SYNTAX 



jEXP. END 



;EXP. ERROR 

; TEMP SAVE OPERATOR 



20 



IMPASM 



1192 


05F1 


8486 


B 


$PLUS: 


LD 


Rl , ITVAL 




1193 


05F2 


C47A 


B 




ADD 


R1,EXPVAL 


; EXPRESSION VALUE 


1194 


05F3 


291E 


A 




JSR 


$PMREL 


;PLUS/MINUS REL.CALC. 


1195 


05F4 


2104 


A 




JMP 


$EERP 


;1ST RETURN , BOTH T, B OR G RELOCATION 


1196 


05F5 


A47C 


B 




ST 


F1,EXPPEL 


EXPRESSION RELOCATION MODE ; 2ND RETURN 


1197 


05F6 


F42C 


B 




SKNE 


Rl f K4 


; EXTERNAL? 


1198 


05F7 


2101 


A 




JMP 


$EERR 


;YES 


1199 


05F8 


21DE 


A 




JMP 


$NXT 


;GO TO NXT OPERATOR 


1200 


05F9 


4C12 


A 


$EERR: 


LI 


R0,18? 


EXP. -USAGE ERROR ? GLOBAL SYMBOL 


1201 


05FA 


2CAD 


I 


$15: 


JSR 


ERROR 




1202 


05FB 


4C00 


A 




LI 


R0,0 




1203 


05FC 


A07C 


B 




ST 


R0 r EXPREL 


; EXPRESSION RELOCATION MODE ?SET UNDEFI 


1204 


05FD 


21D9 


A 




JMP 


$NXT 


;CONTNUE TO NXT OPERATOR 


1205 


05FE 






; 








1206 


05FE 






; 


MINUS 


OPERATOR 




1207 


05FE 






; 








1208 


05FE 


847A 


B 


$MINUS: 


LD 


Rl.EXPVAL 


; EXPRESSION VALUE 


1209 


05FF 


D486 


B 




SUB 


Rl, ITVAL 




1210 


0600 


2911 


A 




JSR 


$PMREL 


yPLUS/MINUS RL.CALC. 


1211 


0603 


2106 


A 




JMP 


$13 


; RET 1- BOTH T,B OR G RELOCATION 


1212 


0602 


F087 


B 




SKNE 


R0,ITREL 


; RET 2- LOWEST IS ABS. 


1213 


0603 


2101 


A 




JMP 


$14 


; ARG 2 IS ABS 


1214 


0604 






r 


ARG 1 


IS ABS, ARG2 GR THAN ABS (1) 


1215 


0604 


21F4 


A 




JMP 


$EERR 




1216 


0605 


F42C 


B 


$14: 


SKNE 


Rl,K4 




1217 


0606 


21F2 


A 




JMP 


$EERR 


;GLOBAL USAGE ERROR 


1218 


0607 


21CF 


A 




JMP 


$NXT 


;NEXT OPERATOR 


1219 


0608 








BOTH 


ARGS HAVE T,B OR 


G RELOCATION 


1220 


0608 


F42C 


B 


$13: 


SKNE 


Rl,K4 




1221 


0609 


21EF 


A 




JMP 


$EERR 


? GLOBAL ERROR 


1222 


060A 


3482 


A 




RXOR 


Rl , R0 




JL £• £m J 


v u Yjd 








nor 


NZ , $EERR 


;NOT SAME - ERROR 


1224 


060C 








SAME 


- SAME REL = ABS 




1225 


060C 


4C01 


A 




LI 


R0,1 




1226 


060D 


A07C 


B 




ST 


R0 , EXPREL 


; EXPRESSION RELOCATION MODE 


1227 


060E 


21C8 


A 




JMP 


$NXT 


;NEXT OPERATOR 


1228 


060F 


4C18 


A 


$XERR: 


LI 


R0,24; 


SYNTAX ERROR 


1229 


0610 


2CAD 


I 




JSR 


ERROR 




1230 


0611 


2124 


A 




JMP 


$EXPND 




1231 


0612 














1232 


0612 








SPECIAL SUBR. USED TO 


HELP WITH REL.CALC. FOR PLUS/MINUS 


1233 


0612 






7 








1234 


0612 


A47A 


B 


$PMREL: 


ST 


R1,EXPVAL 


; EXPRESSION VALUE ; STORE VALUE RESULT 


1235 


0613 


8087 


B 




LD 


R0 , ITREL 




1236 


0614 


847C 


B 




LD 


Rl, EXPREL 


; EXPRESSION RELOCATION MODE 


1237 


0615 


E487 


B 




SKG 


Rl , ITREL 




1238 


0616 


3180 


A 




RXCH 


R0,R1 




1239 


0617 








R0 LE 


SS OR EQUAL TO Rl 


NOW 


1240 


0617 


1105 


A 




BOC 


Z,$ll 


;UNDEF INHERIT 


1241 


0618 


F426 


B 




SKNE 


R1,K1 




1242 


0619 


2104 


A 




JMP 


$12 


;BOTH ABS 


1243 


061A 


F026 


B 




SKNE 


R0,K1 




1244 


061B 


0201 


A 




RTS 


1 


;LOW I ABS, OTHER? 


1245 


061C 


0200 


A 




RTS 




;LOW IS GR THAN ABS (1) 


1246 


061D 








UNDEFINED 




1247 


061D 


A07C 


B 


$11: 


ST 


R0, EXPREL 


; EXPRESSION RELOCATION MODE 


1248 


061E 








FINISHED BUT MUST POP 


RET. FROM STACK, THEN GO TO NXT OPERATOR 


1249 


061E 


4400 


A 


$12: 


PULL 


R0 




1250 


061F 


21B7 


A 




JMP 


$NXT 




1251 


0620 














1252 


0620 














1253 


0620 














1254 


0620 


2923 


A 


$MPY: 


JSR 


$REL 





IMPASM 



1 TCC 

X Z D D 


a ft t l 
0 b Z 1 


o a "7 a 

OB /A 


B 




LD 


R0 , EXPVAL 


1 9 £ ft 
li JO 


a ft o o 
06 z z 


Q A Q C 

o4 8b 


B 




LD 


O 1 T m T TUT 

Rl , ITVAL 


X Z 5 / 


W 6 z 3 


ZL0D 


B 




JSR 


@MULT 


TOCO 

1258 


06 24 


A4 7A 


B 


SMPYl : 


ST 


Rl , EXPVAL 


1259 


06 25 


21B1 


A 




JMP 


$NXT 


1260 


06 26 






> 






1261 


0626 


291D 


A 


$DIV: 


JSR 


SREL 


X ZD Z 


01 £ O T 

06 z / 


4C00 


A 




LI 


R0 , 0 


1 9 ft. 9 


(71 ft 9 Q 

wbZc 


D A 1 A 


b 




LD 


Kl , EXPVAL 


1 9ftA 
X Z O <t 


Cl ft 9 Q 

wb zy 


opo/r 

oLoo 


D 




LD 


rj O T mi JUT 

K3 , ITVAL 


X ZD D 


10 0 ZA 


9r* oi c 


Q 




Ten 
J bK 


PDIVD 


1 9ftft 


01 ft 9D 
V) D ZtS 


9 1 E* Q 

z lr o 


A 

A 




JMP 


$MPY1 


X Z O / 


pi ft 9r 






* 






X Z u o 


v D ZV- 








AND 


OPERATOR 




otft 9r* 

B O Zv_ 












1 9 "7 01 
X Z / YJ 


oi ft or 1 
0 b ZL 


ion 
zyi / 


A 


$AND: 


JSR 


$REL 


1 9 "7 1 
X Z / X 


(7ift on 
0b ZD 


8 0 /A 


B 




LD 


R0 , EXPVAL 


x z / z 


(AC lu 

0b zfc. 


6086 


B 




AND 


R0, ITVAL 


1273 


06 2F 


A07A 


B 


$20 : 


ST 


R0, EXPVAL 


127 4 


0630 


21A6 


A 




JMP 


$NXT 


1275 


0631 












1276 


0631 






; 


OR OPERATOR 


1277 


0631 












1 Z / 8 


06 31 


2912 


A 


$0R : 


JSR 


SREL 


1 9 9 Q 

x z / y 


01 ft "3 1 

feJ o 3 z 


807A 


B 




LD 


R0, EXPVAL 


X Z o K> 


01 ft 9 9 


boob 


r> 

a 




OR 


R0, ITVAL 


1 9 C 1 
X Z C X 


01 ft X 


zlr A 


A 




JMP 


$20 


1 9 Q 9 
X Z o Z 


0b 3 5 






i 






1 Opl 
IlOJ 


01 ft 9 c: 
BO J3 






7 


EXPRESSION END 


1 o o >i 
1Z84 


oi ft i c 
0635 






7 






1 9 Q C 

X £ C D 


01 ft 1 c 

0635 


7C5E 


8 


$C0M : 


DSZ 


INPTR 


1 00£ 

X Zo b 


ft ft "3 C 

06 36 






$EXPND: 






1 TOT 


ffl C "J c 

wb 3b 








DIAGNOSE IF PASS 2 




0b 3b 


2CE0 


I 




JSR 


P1P2 


1289 


0637 


2104 


A 




JMP 


$FIN 


1290 


0638 


807C 


B 




LD 


R0 , EXPREL 


X 1 


06 39 


150 2 


A 




BOC 


NZ r $FIN 


1 9Q 9 
X Z 


01 ft 1 A 

u b 3A 


4L ZA 


A 




LI 


R0,42? 


x zy o 


01 ft ^ u 

0 6 3b 


ZLAD 


I 




JSR 


ERROR 


1294 


063C 


807A 


B 


$FIN: 


LD 


R0 , EXPVAL 


line 

129 5 


0 6 3D 


887B 


B 




LD 


R2,EXPPD 


l zy b 


06 3E 


847C 


B 




LD 


Rl , EXPREL 


1297 


063F 


0201 


A 




RTS 


1 


i mo 

1 zy 8 


0640 












1 O Q Q 

izy y 


0 b 4 0 


807A 


B 


$EX0 : 


LD 


R0 r EXPVAL 


i odd 

1 JB0 


0641 


887B 


B 




LD 


R2,EXPPD 


1301 


0642 


847C 


B 




LD 


Rl , EXPREL 


1302 


0643 


0200 


A 




RTS 


0 


130 3 


0644 












1304 


0644 








CALC 


. REL. FOR AND 


1305 


(7\ C A A 

0 6 4 4 












13 06 


Oi C A A 

0 6 4 4 


8087 


B 


$REL: 


LD 


R0 , ITREL 


i o a i 
13(3/ 


A C A C 

0645 


847C 


B 




LD 


Rl, EXPREL 


1308 


0646 


E487 


B 




SKG 


Rl, ITREL 


1309 


flfi 4 7 

WD 1 */ 




A 
M 




RXCH 


R0,R1 


1310 


0648 


E426 


B 




SKG 


Rl, Kl 


1311 


0649 


2105 


A 




JMP 


$30 


1312 


064A 


4C00 


A 




LI 


R0, 0 


1313 


064B 


A07C 


B 




ST 


R0, EXPREL 


1314 


064C 


A07A 


B 




ST 


R0, EXPVAL 


1315 


064D 


4400 


A 




PULL 


R0 


1316 


064E 


21AA 


A 




JMP 


SEERR 


1317 


064F 


A07C 


B 


$30: 


ST 


R0, EXPREL 



EXPRESSION VALUE 
; EXPRESSION VALUE 

; EXPRESSION VALUE 



^EXPRESSION VALUE 
; EXPRESSION VALUE 



; EXPRESSION VALUE 



7 INPUT CHAR PTR 
JNDEFINED 

; EXPRESSION RELOCATION MODE 

UNDEFINED ERROR 
; EXPRESSION VALUE 

; PREV . DEF . 1=YES ;PPEV. DEF. CODE 
; EXPRESSION RELOCATION MODE 



^EXPRESSION VALUE 
;PREV.PEF. 1=YES 
; EXPRESS ION RELOCATION MODE 



; EXPRESSION RELOCATION MODE 



EXPRESSION RELOCATION *10DE 
; EXPRESSION VALUE 

; REL . ERROR IN EXP. 

; EXPRESS ION RELOCATION MODE 
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IMPASM 



1 1 1 Q 
1 3 1 O 


n c c r* 


CA 0 01 ffl 


A 

A 






KID 






i j i y 


w6b± 










• fAUt 


' PPT TT'PM ' 




1 32V 


Bobl 










T r\f^ A T 






1 OOl 

I j/1 


















1 TOT 


BODl 












TC D P TTPM 




1 "3 O O 


06 51 












NUNt ( NU 1 


AN tKKUK) IivALi=W irPciL = l (ABS) 


I J Z4 


06bl 












MPT3MAT DPT 

NUr(f*)ALi Ktl 


132D 


Uobl 














OCT 1 TTU A T Trnnnr /TC C A jxktta . p Tin it 

br. i 1 1 V A L f 1 iHhL ( Ir « , AND WITH 


1 o o c 
13 2b 


0651 














• HKc LKb 1U LOLCTK 


1 "3 O ~3 

13 2 / 


0651 














a T r f\t*i rum nv p«no 

ALLUVV UNARY UPS 


T O 1 O 


H 6 5 1 
















linn 


fit £ C 1 
06b I 
















1 Tin 


















1 JjJ 


(71 C C 1 
U 6 D 1 


4L\o v 


A 


GITEM: 


LI 


R0,0 






W o b /! 


A0 8 6 


r> 

13 






ST 


R0,ITVAL 




1 "3 "3 "3 


BOD j 


A 1 "3 01 

HUB 


Pi 






ST 


R0,$UOP 




1334 


0654 


4C0 1 


A 






LI 


R0 , 1 




1 "3 1 C 

1 3 3d 


Ot c c c 

ODJJ 


» (1 C T 

AWr / 


D 






ST 


R0 , ITREL 




1 o o c 
13 36 


C1 r c C 




I 






JSP 


GNVC 




13 3/ 


Bob / 




A 






PTS 




;NO ITEM RETURN 


1 "3 "3 O 

1 3 3o 


WO DO 
















1 33y 


£ c o 










TEST LEADING CHAR. 




i "3 a a 
1 34 VI 


















1341 


/if r o 

06 bb 


F0 4 A 


B 


$TEST: 


SKNE 


R0,DOT 




1 "3 A 1 

1342 


156 by 


21bL 


A 






JMP 


$D0T 




1 1 A 1 

134 3 


ft C C A 

06 bA 




B 






SKNE 


R0,CZEPO 




1 j 4 4 


w o bts 


0 111 
2111 


A 






JMP 


$HEX 




1 "3 A K 

1 34 b 


racer' 


t 04 b 


T") 

b 






SKNE 


R0 ,0UOTE 




1 lif 
1 34 b 


Wobu 


z 1 4 a 


A 

A 






JMP 


$0U0TE 




1 / 


(A C c r? 

Wo be, 


F04F 


B 






SKNE 


R0,COMMA 




1 "3 A Q 

134 o 


Wo br 


ZI 2d 


A 






JMP 


$100 




1 ~) A O 




p ra c o 
r H b 2 


B 






SKNE 


R0 ,CN0T 




1 Jb0 


fTI C C 1 

0661 


J3 


A 






JMP 


SNOT 




1351 


0662 


F051 


B 






SKNE 


R0,CMINUS 




1352. 


fl* £ C "3 

0663 


Till 

213 3 


A 






JMP 


S^INUS 




1353 


fit ^ C A 

0664 


F04 4 


B 






SKNE 


R0,CHARX 




1354 


066 5 


214B 


A 






JMP 


$X 




1355 


0666 


F04E 


B 






SKNE 


R0 , DOLLAR 




1356 


066 7 


2 1 4 E 








JMP 


$NAME 




1357 


0668 


E035 


B 






SKG 


R0,HEX2F 




i o c c 


fTi c a a 
06 69 


zl67 


A 






JMP 


$BS0 


•PACKSPACF AND RETURN 0 




066A 


E 0 3 6 


3 






c zrr> 


R0 , KEX39 




1360 


066B 


2136 


A 






JMP 


$DEC 




1361 


066C 


2149 


A 






JMP 


$NAME 


• ALPHA - TRY NAME 


1362 


066D 
















1363 


066D 
















1364 


066D 










ZERO - 


HEX CONS1ANT 




1365 


066D 
















1366 


066D 


2CE1 


I 


$HEX: 


JSR 


GNCVC 




1367 


066E 


2109 


A 






JMP 


SRETl 


; FINISHED CONSTANT-GO PROCESS UNARY 


1368 


066F 


E035 


3 






SKG 


R0 , HEX2F 




1369 


0670 


2106 


A 






JMP 


$BSPP1 


; BACKSPACE AND RETURN 1 


1370 


B671 


E036 


B 






SKG 


R0, HEX39 




1 3 J 1 


01 C "7 O 

W b / 2 


otic; 
21 Id 


A 






JMP 


$1 




1372 


0673 


E032 


B 






SKG 


R0,H£X4fc 


;A -1 


1373 


0674 


2102 


A 






JMP 


SBSPRl 




1374 


0675 


E037 


B 






SKG 


R0 f HEX46 


;F 


1375 


0676 


2113 


A 






JMP 


$2 




1376 


0677 










BACKSPACE 




1377 


0677 


7C5E 


B 


$BSPR1: 


DSZ 


INPTR 


; INPUT CHAR PTR 


1370 


0678 
















1379 


0678 






! 




RETURN 


VALUE AFTER PROCESSING UNARY OPS WHICH WERE SAVED 
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IMPASM 



1380 


06 to 












TOOT 
1381 


n c i q 
06 / b 


Q A Q C 
8 4 CO 


D 


C DPT 1 • 

? KJi X X ; 


t n 


Rl TTVAT. 

I>i f 1 i V rtlJ 


1382 


0679 


81 0A 


A 




blJ 


f?£» CHOP 


i o o o 


Ol £L 1 A 

06 /A 


1 1 CI "3 
1 1 V J 


A 






7 ^Nnnw 

it / yHUUW 


1 "3 Q A 


(A C 1 D 

136 Id 


1 *3 CI K 
1 3 V 0 


ft 






\J U \J p yUl 1 


1 o o c 


a an c 
Mb /L 


c i ct a 
bl (3 b 


A 


C lIHflT • 

i> UNU 1 I 




p 1 a 

-TV X f XJ 


1 O O £ 
1386 


fc)6 /D 


A4 0 6 


D 
b 


c 1 a . 


Cm 
O 1 


Rl TTVAT 


TOOT 

1387 


Ci £ "7 C 

06 /E 


O A Q £ 

8086 


ts 


>NUUN : 


T n 


x\tj f x x vftij 


i o o o 

1 Joe 


ci £ 1 n> 
Kb /r 


Q A Q T 

848 / 


£5 




t n 


Rl TTRPT. 
rvx ^ i iiMjij 


i o o n 

1 Joy 


CI £ Q CI 


CI O CI 1 

lo2k3 1 


A 

A 




Kit) 




i o n ci 
13913 


0 6 81 


bl V 1 


A 

A 


C MM * 


CAI 


Rl f 1 


1 O O 1 

ijyi 


CI C Q ") 

eb o 2 


1 JPQ 

1 4r y 


A 

A 




BOC 


BlEQx,$UNOT 


t o a o 
1392 


fcJ6 8 J 


21r y 


A 

A 




JMP 


$30 


1393 


o yi 

0684 


CK Ck CI A 
0000 


A 


puup : 


.WORD 


0 


1394 


0 6 o D 


4L18 


A 

A 


(inn. 


LI 


R0,24; 


i o n c 
139b 


n c o c 


2LAD 


T 
1 




JSR 


ERROR 


1 O O, £ 

1396 


068 / 


0 1 1? 1? 
21hr 


A 

A 




JMP 


$BSPR1 


1 "3 Q "7 


n r Q O 
B 6 O 0 












l jy o 


n c Q O 

Bono 








CONTINUE HEX 


i inn 

i jy y 


Pi C D Q 












1 A 01 CI 


Iflb8c 


L) t3 Jo 


D 
D 


91 : 


SUB 


R0,HEX30 


14151 


nt on 


0 1 CI 1 
2 1 B 1 


A 

A 




JMP 


$3 


l >i ci o 
1453 / 


CI £ O A 

B68A 


n CI "3 Q 

uw jy 


0 

D 


$2 : 


SUB 


R0,HEX37 


1403 


068B 


8486 


B 


C *3 . 

93 : 


LD 


Rl , ITVAL 


1404 


068C 


1 546 


A 




SKAZ 


Rl f XF000 


1405 


068D 


2104 


A 




JMP 


$4 


1 A n c 

1406 


068E 


DD04 


A 




SHL 


Rl f 4 


14 0 7 


068F 


3400 


A 




RADD 


R1,R0 


1408 


0690 


A086 


B 




ST 


R0, ITVAL 


1409 


ci r* n i 

0691 


21DB 


A 




JMP 


$HEX 


inn 
1410 


01 c o. 0 
0692 


a r* ci c 
4C0 6 


A 


C >l « 

p4 : 


LI 


R0,6? 


1411 


/i ^ q 1 
0693 


2 CAD 


1 




JSR 


ERROR 


1412 


/1 £ 0 A 

0694 


11 nl 

21E3 


A 




JMP 


SRETl 


1 A 1 O 

1413 


fir n c 

0 6 9b 












1414 


0695 








% - NOT 




1415 


0695 












1416 


n e r\ a 

0695 


A r\ CI 1 

4D02 


A 


$N0T : 


LI 


Rl,2 


1417 


0696 


2101 


A 




JMP 


$MIN1 


1418 


0697 












1419 


0697 






* 


MINUS 


1420 


0697 












1421 


0697 






$HINUS : 






1422 


0697 


4D01 


A 




LI 


Rl, 1 


1423 


0698 


8 1EB 


A 


5MIN1 : 


LD 


R0,$UOP 


14 24 


0699 


3482 


A 




RXOR 


R1,R0 


1425 


069A 


A1E9 


A 




ST 


R0,$UOP 


1426 


069B 


2C9C 


I 




JSR 


GNVC 


14 27 


069C 


2131 


A 




JMP 


$ERR 


1428 


069D 


21BA 


A 




JMP 


$TEST 


1429 


069E 






7 






1430 


069E 






* 


OUOTE - 


STRING CONS 


1431 


069E 


2CE2 


I 


$0U0TE : 


JSR 


GSTCON 


1432 


069F 


212E 


A 




JMP 


$ERR 


1433 


06A0 


A086 


B 




ST 


R0, ITVAL 


1434 


0 6A1 


21D6 


A 

A 




JMP 


$RET1 


1435 


06A2 






7 






1436 


06A2 








NON-ZERO DIGIT 


1437 


06A2 


D038 


B 


$DEC: 


SUB 


R0,HEX30 


1438 


06A3 








MPY ITVAL BY 10 AND 


1439 


06A3 


8486 


B 




LD 


Rl f ITVAL 


1440 


06A4 


5D01 


A 




SHL 


Rl f 1 


1441 


06A5 


A486 


B 




ST 


Rl , ITVAL 


1442 


06A6 


5D02 


A 




SHL 


Rl,2 



;N0 UNARY 

; UNARY MINUS 



; UNARY OP CODE 
SYNTAX ERROR 



BIT 0 MIN , BIT 1 NOT 



?L00P BACK FOR NEXT HEX DIGIT 
VALUE ERROR 



; ERROR - NO ITEM FOLLOWS UNAR Y0PERAT0P 
; TEST NEW CHAR. 



24 



IMPASM 



1443 


06A7 


C486 


B 




ADD 


Rl , ITVAL 




1444 


06A8 


3400 


A 




RADD 


Rl f R0 




1445 


06A9 


A086 


B 




ST 


R0 , ITVAL 




1446 


06AA 


2CE1 


I 




JSR 


GNCVC 


;GET NEXT VALID CHAR. 


1447 


06AB 


21CC 


A 




JMP 


$RET1 


;NO MORE 


1448 


06AC 


E035 


B 




SKG 


R0,HEX2F 




1449 


06AD 


21C9 


A 




JMP 


$BSPR1 


; BACKSPACE AND RETURN 1 


1450 


06AE 


E036 


B 




SKG 


R0 r HEX39 




1451 


06AF 


21F2 


A 




JMP 


$DEC 




1452 


06B0 


21C6 


A 




JMP 


SBSPR1 




1453 


06B1 






* 








1454 


06B1 






* 


X - HEX 


OR NAME 




1455 


06B1 


2CE1 


I 


$X: 


JSR 


GNCVC 




1456 


06B2 


2103 


A 




JMP 


$NAME 


;NONE - NAME IS X 


1457 


06B3 


F045 


B 




SKNE 


R0 r QUOTE 




1458 


06B4 


21B8 


A 




JMP 


$HEX 


? X' 


1459 


06B5 


7C5E 


B 




DSZ 


INPTR 


; INPUT CHAR PTR 


1460 


06B6 














1461 


06B6 








NAME 






1462 


06B6 


7C5E 


B 


$NAME: 


DSZ 


INPTR 


; INPUT CHAR PTR 


1463 


06B7 


291C 


A 




JSR 


GSYM 


;GET SYMBOL 


1464 


06B8 


2115 


A 




JMP 


$ERR 


;NOT A VALID NAME 


1465 


06B9 


8082 


B 




LD 


R0,STVAL 




1466 


06BA 


A086 


B 




ST 


R0 , ITVAL 




1467 


06BB 


8083 


B 




LD 


R0 , STPDEF 




1468 


06BC 


607B 


B 




AND 


R0, EXPPD 


; PREV. DEF . 1=YES 


1469 


06BD 


A07B 


B 




ST 


R0,EXPPD 


;PREV. DEF. 1=YES 


1470 


06BE 


8300 


A 




LD 


R0,0 (F3) 




1471 


06BF 


682C 


B 




OR 


R0 r K4 




1472 


06C0 


A300 


A 




ST 


R0, 0(R3) 


? SET USED BIT 


1473 


06C1 


8084 


B 




LD 


R0,STREL 




1474 


06C2 


E02C 


B 




SKG 


R0 r K4 




14 75 


06C3 


2105 


A 




JMP 


SSYRET 


; SYMBL RETURN 


1476 


06C4 


6027 


B 




AND 


R0,K3 




1477 


06C5 


2103 


A 




JMP 


$SYRET 




1478 


06C6 














1479 


06C6 








. USE 


LOCCTR 




1480 


06C6 


845C 


B $DOT: 


LD 


Rl,LOCCTR 




1481 


06C7 


8 0 6B 


n 

o 




r tn 

JLiU 


nu r ott ± 




1482 


06C8 


A486 


B 




ST 


Rl, ITVAL 




1483 


06C9 


A087 


B $SYFET: 


ST 


R0 , ITREL 






06CA 


F026 


B 




SKNE 


R0 , Kl 




1485 


06CB 


21AC 


A 




JMP 


$RET1 


?ABS - PROCESS UNARY OPS IF 


1486 


06CC 


81B7 


A 




LD 


R0 f $UOP 




1487 


06CD 


11B0 


A 




BOC 


Z,$NOUN 




1488 


06CE 






* 








1489 


06CE 














1490 


06CE 


4C18 


A SERF: 


LI 


R0-24? 


SYNTAX ERROR ; SYNTAX 


1491 


06CF 


2CAD 


I 




JSR 


ERROR 




1492 


06D0 


0200 


A 




RTS 


0 




1493 


06D1 












1494 


06D1 


7C5E 


B $BS0: 


DSZ 


INPTR 


; INPUT CHAR PTR 


1495 


06D2 


0200 


A 




RTS 


0 




1496 


06D3 


F000 


A XF000: 


.WORD 


0F000 




1497 


06D4 








.PAGE 


'GET SYMBOL 


, BUILD NAME/DIR ' 


1498 


06D4 








. LOCAL 




1500 


06D4 










SCANS NAME , 


SEARCHES SYMBOL TABLE , R0=STVAL , Rl 


1501 


06D4 










R3=STPT 




1502 


06D4 














1503 


06D4 










JSR GSYM 




1504 


06D4 










NO SYMBOL RETURN 


1505 


06D4 










NORMAL 


RETURN 



ERROR 



25 



IMPASM 



1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 



06D4 

06D5 

06D6 

06D6 

06D7 

06D8 

06D9 

06DA 

0 6DB 

06DC 

06DD 

06DE 

06DF 

06E0 

06E1 

06E2 

06E3 

06E4 

06E5 

06E6 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E7 

06E8 

06E9 

06EA 

06EB 

06EC 

0 6ED 

06EE 

06EE 

06EF 

06F0 



4C00 A GSYM: 
2101 A 



4C02 
A10E 
2C9C 
0200 
290C 
0200 
8109 
C080 B 
A080 B 
2963 A 
24E3 I 
8082 B 
8484 B 
0201 A 
4400 A 
24D6 I 
06E7 A 



GFORM i 
$GS2: 



$GS1: 
$SORF: 



F04E B BLDNAM: 

2105 A 

E032 B 

0200 A 

E033 B 

2108 A 

0200 A 

4D08 A $1 x 
A480 B 
806C B 



LI 

JMP 

LI 

ST 

JSR 

RTS 

JSR 

RTS 

LD 

ADD 

ST 

JSR 

JMP 

LD 

LD 

RTS 

PULL 

JMP 

. = .+1 



R0, 0 

$GS2 

R0,2 

R0, $SORF 
GNVC 

BLDNAM 

R0, $SORF 

R0,CNAM0 

R0,CNAM0 

STSER 

INABS-1 

R0,STVAL 

Rl , STREL 

1 

R0 

ENDST 



; SYMBOL30R3FORM 

;NO SYMBOL RETURN 
; BUILD NAME 
;NO NAME RETURN 

;1ST 2 COMPRESSED CHARS. OF NAME 
;1ST 2 COMPRESSED CHARS. OF NAME 
; SEARCH SYM30L TABLE 

; VALUE 

; RELOCATION CODE 



; STATEMENT END 



BUILD NAME OR DIRECTIVE 



JSR BLDNAM OR BLDDIR 
NO NAME RETURN 
NORML RETURN 

ENTRY: R0 CONTAINS 1ST CHAR 

EXIT: R0 CONTAINS NEXT VALID CHAR (BUT NOT SKIPPE 
$ REPLACED WITH REGION NUM. 
SET NAM0 , NAM1 , NAM 2 , CNAM 0 , CNAMl 



R0, DOLLAR 
$1 

R0,HEX40 

R0,HEX5A 
$2 



SKNE 
JMP 
SKG 
RTS 
SKG 
JMP 
RTS 

BUILD LOCAL NAME 
LI Rl,8 
ST R1,CNAM0 
LD R0,LOCPEG 



;$ OK 
jA -1 

;NOT A VALID NAME 

•z 

;NOT A VALID NAME 



;1ST 2 COMPRESSED CHARS. OF NAME ; SET LO 



1549 


06F1 


5C08 


A 




SHL 


R0,8 




1550 


06F2 


3181 


A 




RCPY 


R0,R1 




1551 


06F3 


5D02 


A 




SHL 


Rl,2 




1552 


06F4 


2103 


A 




JMP 


S3 




1553 


06F5 














1554 


06F5 








BUILD 


NON LOCAL NAME 




1555 


06F5 






BLDDIR: 








1556 


06F5 


4D00 


A 


$2: 


LI 


R1,0 




1557 


06F6 


A4 8 0 


B 




ST 


Rl r CNAM0 


ylST 2 COMPRESSED CHARS . OF NAME 


1558 


06F7 


2933 


A 




JSR 


$GL1 




1559 


06FP 


2929 


A 


$3: 


JSR 


$GP1 


;1ST 2 CHARACTERS OF NAME ; STORE 1ST 


1560 


06F9 


A07D 


B 




ST 


R0 , NAM0 


1561 


06FA 


C480 


B 




ADD 


R1,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME ; PICK U 


1562 


06FB 


A480 


B 




ST 


Rl f CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME 


1563 


06FC 






* 








1564 


06FC 


2924 


A 




JSR 


$GP 




1565 


06FD 


A07E 


B 




ST 


R0 f NAMl 


;3RD AND 4TH CHARACTERS OF NAME ; STORE 


1566 


06FE 


A481 


B 




ST 


Rl, CNAMl 


;COM?RESSED 3RD AND 4TH CHARS. COM PRE SSE 


1567 


06FF 


2921 


A 




JSR 


$GP 


; 5TH AND 6TH CHARACTERS OF NAME ; STORE 


1568 


0700 


A07F 


B 




ST 


R0,NAM2 



26 



IMPASM 



1569 


0701 


F048 


B 




SKNE 


R0, BLANKS 




1570 


0702 


210F 


A 




JMP 


$4 




1571 


0703 








SET LONG SYMBOL FLAGS 


1572 


0703 


8030 


B 




LD 


R0 f X8 000 




1573 


0704 


C07D 


B 




ADD 


R0 , NAM0 


;1ST 2 CHARACTERS OF NAME 


1574 


0705 


A07D 


B 




ST 


R0 , NAM0 


;1ST 2 CHARACTERS OF NAME 


1575 


0706 


4C01 


A 




LI 


R0,1 




1576 


0707 


C080 


B 




ADD 


R0,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME 


1577 


0708 


A080 


B 




ST 


R0,CNAM0 


?1ST 2 COMPRESSED CHARS. OF NAME 


1578 


0709 








TEST IF 


LOCAL LONG 


SYMBOL 


1579 


0709 


4C08 


A 




LI 


R0 f 8 




1580 


070A 


7080 


B 




SKAZ 


R0,CNAM0 


;1ST 2 COMPRESSED CHARS. OF NAME 


1581 


070B 


2101 


A 




JMP 


.+2 




1582 


070C 


2105 


A 




JMP 


$4 




1583 


070D 








YES-FORCE BLANK IN 


6TH CHAR OF LOCAL SYMBOL 


1584 


070D 


807F 


B 




LD 


R0,NAM2 


;5TH AND 6TH CHARACTERS OF NAME 


1585 


070E 


5CF8 


A 




SHR 


R0,8 




1586 


070F 


5C08 


A 




SHL 


R0,8 




1587 


0710 


C034 


B 




ADD 


R0 , BLANK 




1588 


0711 


A07F 


B 




ST 


R0 r NAM 2 


;5TH AND 6TH CHARACTERS OF NAME 


1589 


0712 


807D 


B 


$4: 


LD 


R0 , NAM0 


;1ST 2 CHARACTERS OF NAME ; TEST 


1590 


0713 


F10B 


A 




SKNE 


R0,$DT 




1591 


0714 


24DB 


I 




JMP 


XERROR 




1592 


0715 


F10A 


A 




SKNE 


R0,$DL 


; $ 


1593 


0716 


24DB 


I 




JMP 


XERROR 




1594 


0717 








SKIP EXCESS CHARS. 


IN NAME IF ANY 


1595 


0717 


291D 


A 


$4B: 


JSR 


$GAN 




1596 


0718 


F034 


B 




SKNE 


R0, BLANK 




1597 


0719 


2101 


A 




JMP 


$4A 




1598 


071A 


21FC 


A 




JMP 


$4B 




1599 


071B 


2C9C 


I 


$4A: 


JSR 


GNVC 




1600 


071C 


0201 


A 




RTS 


1 




1601 


071D 


7C5E 


B 




DSZ 


INPTR 


; INPUT CHAR PTR 


1602 


071E 


0201 


A 




RTS 


1 




1603 


071F 


2E20 


A 


$DT: 


.WORD 






1604 


0720 


2420 


A 


SDL: 


.WORD 


'$' 




1605 


0721 














1606 


0721 








GET PAIF 


OF CHAR 




1607 


0721 














1608 


0721 


2908 


A 


$GP: 


JSR 


$GL 




1609 


0722 


A105 


A 


$GP1 : 


ST 


R0,$T0 




1610 


0723 


A505 


A 




ST 


Rl, ST1 




1611 


0724 


290B 


A 




JSR 


$GR 




1612 


0725 


C102 


A 




ADD 


R0,$T0 




1613 


0726 


C502 


A 




ADD 


Rl,$Tl 




1614 


0727 


0200 


A 




RTS 






1615 


0728 






i 








1616 


0728 


0000 


A 


$T0 : 


. WORD 


6 


. TEMP0 


1617 


0729 


0000 


A 


$Tl : 


.WORD 


0 


; TEMPI 


1618 


07 2A 














1619 


072A 








GET LEFT CHAR 




1620 


072A 














1621 


072A 


29 0A 


A 


$GL: 


JSR 


$GAN 




1622 


072B 


3181 


A 


$GL1: 


RCPY 


R0 , Rl 




1623 


072C 


D434 


B 




SU3 


Rl,HEX20 




1624 


072D 


5C08 


A 




SHL 


R0,8 




1625 


072E 


5D0A 


A 




SHL 


Rl,10 




1626 


072F 


0200 


A 




RTS 






1627 


0730 














1628 


0730 








GET RIGA 


CHAR 




1629 


0730 














1630 


0730 


2904 


A 


$GR: 


JSR 


$GAN 




1631 


0731 


3181 


A 




RCPY 


R0,R1 





IMPASM 



1632 


0732 


D434 


B 




SUB 


Rl, HEX20 






1633 


0733 


5D04 


A 




SHL 


Rl,4 






1634 


0734 


0200 


A 




RTS 








1635 


0735 
















1636 


0735 








GET NEXT CONSECUTIVE 


CHAR IF ALPHA/NUM ELSE BLANK 


1637 


0735 
















1638 


0735 


2CE4 


I $GAN : 


JSR 


GNC 




;NEXT CHAR 


1639 


0736 


2107 


A 




JMP 








1640 


0737 


E035 


B 




SKG 


R0,HEX2F 




;0 -1 


1641 


0738 


2104 


A 




JMP 


$10 




;NCT A/N 


1642 


0739 


E032 


B 




SKG 


R0,HEX40 






1643 


073A 


2105 


A 




JMP 


$12 




;MAY BE NUMERIC 


1 C A A 
J. O 4 ft 


073B 


E033 


B 




SKG 


P0,HEX5A 




•z 


1645 


073C 


0200 


A 




RTS 






; CHAR I A/N 


1646 


073D 


7C5E 


B $10: 


DSZ 


INPTR 




; INPUT CHAR PTR ;NOT A/N - 


1647 


073E 


8034 


B $11: 


LD 


R0, BLANK 






1648 


073F 


0200 


A 




RTS 








1649 


0740 


E036 


B $12: 


SKG 


R0,HEX39 




•9 


1650 


0741 


0200 


A 




RTS 






; RETURN WITH A/N 


1651 


0742 


21FA 


A 




JMP 


$10 






STSER 


- SYMBOL TABLE SEARCH 








1652 


0743 








. PAGE 


'STSER - SYMBOL 


TABLE SEARCH ' 


1653 


0743 








. LOCAL 








1654 


0743 
















1655 


0743 








SYMBOL 


TABLE SEARCH 






1656 


0743 
















1657 


0743 










JSR STSER 






1658 


0743 










OVERFLOW 


RETURN 


1659 


0743 










NORMAL 


RETURN (R3 PTS . TO ENTRY) 


1660 


0743 
















1661 


0743 










WILL APPEND 


NEW 


ENTRY IF NOT FOUND 


1662 


0743 
















1663 


0 / 4 6 




STSER: 










1664 


0743 






' 










1665 


0743 






! 


SET REGION A 






1666 


0743 


8065 


B 




LD 


R0 , NEXT A 






1667 


0744 


A062 


B 




ST 


R0 , NEXT 






1668 


0745 


8064 


B 




LD 


R0 ,TOPA 






1669 


0746 


A061 


B 




ST 


R0,TOP 






1670 


0747 


8063 


B 




LD 


R0 , BASEA 






1671 


0748 


A060 


B 




ST 


R0 , BASE 






1672 


0749 


8152 


A 




LD 


R0 , $NXTA 






1673 


074A 
















1674 


074A 








REGION 


SEARCH 






1675 


074A 
















1676 


074A 


8C61 


B $RSER: 


LD 


R3,TOP 






1677 


074B 


A152 


A 




ST 


R0,$ONXT 






1678 


074C 


2108 


A 




JMP 


$4 






1679 


074D 








TOP OF 


LOOP 






1680 


074D 


8300 


A 


$1: 


LD 


R0, 0 (R3) 






1681 


074E 


6150 


A 




AND 


R0 , XFFFB 






1682 


074F 


F080 


B 




SKNE 


R0 f CNAM0 




?1ST 2 COMPRESSED CHARS. OF 


1683 


0750 


211D 


A 




JMP 


$2 




;WORD 0 MATCH 


1684 


0751 








NO MATCH-LOOP 






1685 


0751 


8300 


A 


$3: 


LD 


R0,0 (R3) 






1686 


0752 


6027 


B 




AMD 


R0, K3 






1687 


0753 


50FE 


A 




CAI 


R0,-2 






1688 


0754 


3300 


A 




RADD 


R0,R3 






1689 


0755 


FC62 


B 


$4: 


SKNE 


R3 f NEXT 






1690 


0756 


2137 


A 




JMP 


$REND 




; REGION END 


1691 


0757 


21F5 


A 




JMP 


$1 




; NEXT ENTRY LOOP 


1692 


0758 








APPEND 


ENRY IF ROOM 






16.93 


0758 






$APEND: 











- BACKSPACE I 



28 



IMPASM 





8 7^8 

V 1 ™) c 


8080 


B 


$APPEND: 


LD 


R0,CNAM0 ;1ST 2 COMPRESSED CHARS. 


OF NAME 


1695 


0759 


6027 


B 




AND 


R0,K3 




1696 


075A 


50FE 


A 




CAI 


R0,-2 




1697 


075B 


C062 


B 




ADD 


R0 , NEXT 




1698 


075C 


E060 


B 




SKG 


R0 , BASE 




1699 


075D 


212A 


A 




JMP 


$ROV ; REGION OVERFLOW 




1700 


075E 






i 


YES - 


ROOM AVAIL. - APPEND ENTRY 




1701 


075E 


A062 


B 




ST 


R0 f NEXT 




1702 


075F 


B13E 


A 




ST 


R0,@$QNXT 




1703 


0760 


4801 


A 




AISZ 


R0, 1 




1704 


0761 


A074 


B 




ST 


R0 , FOR MPT 


OF NAME 


1705 


0762 


8080 


B 




LD 


R0,CNAM0 ;1ST 2 COMPRESSED CHARS. 


1706 


0763 


A300 


A 




ST 


R0,0 (R3) 




1707 


0764 


8481 


B 




LD 


R1,CNAM1 ;COMPRESSED 3RD AND 4TH 


CHARS . 


1708 


0765 


A7FF 


A 




ST 


Rl.-l (R3) 




1709 


0766 


4D00 


A 




LI 


R1,0 




1710 


0767 


A7FE 


A 




ST 


Rl,-2(R3) 




1711 


0768 


1301 


A 




BOC 


ODD, $6 ; LONG SYMBOL 




1712 


0769 


2102 


A 




JMP 


$7 




1713 


076A 






r 


NEW ENTRY TO CONTAIN LONG SYMBOL 




1714 


076A 


847F 


B 


$6: 


LD 


R1,NAM2 ;5TH AND 6TH CHARACTERS 


OF NAME 


1715 


076B 


A7FD 


A 




ST 


Rl,-3(R3) 




1716 


076C 


AC85 


E 


$7: 


ST 


R3,STPT 




1717 


076D 


2106 


A 




JMP 


$9 ;SET UP RESULTS AND RETURN 


1718 


076E 






* 


WORDS 


MATCH CHECK OTHERS 




1719 


076E 


87FF 


A 


$2: 


LD 


R1,-1(R3) 




1720 


076F 


642E 


B 




AND 


R1,XFFF0 ; FFF0 INCLUDES LOCAL BIT 


1721 


0770 


F481 


B 




SKNE 


R1,CNAM1 ;COMPRESSED 3RD AND 4TH 


CHARS. 


1722 


0771 


2101 


A 




JMP 


$2A 




1723 


0772 


21DE 


A 




JMP 


$3 ;NO MATCH 




1724 


0773 


1310 


A 


$2A: 


BOC 


ODD, $8 ;CHECK 3RD WORD 




1725 


0774 








MATCH 


GOOD - SET RESULTS AND RETURN 




1726 


0774 


8300 


A 


$9: 


LD 


R0, 0(R3) 




1727 


0775 


6027 


B 




AND 


R0, K3 




1728 


0776 


50FF 


A 




CAI 


R0,-1 




1729 


0777 


3C00 


A 




RADD 


R3,R0 




1730 


0778 


A074 


B 




ST 


R0 f FORMPT 




1731 


0779 


83FF 


A 




LD 


R0,-1 (R3) 




1732 


077A 


5CFD 


A 




SHR 


R0,3 




1733 


077B 


6026 


B 




AND 


R0,K1 




1734 


077C 


A083 


B 




ST 


R0 , STPDEF 




1735 


077D 


83FF 


A 




LD 


R0 r -1(R3) 




1736 


077E 


602A 


B 




AND 


R0, K7 




1737 


077F 


A084 


B 




ST 


R0 , STREL 




1738 


0780 


83FE 


A 




LD 


R0,-2(R3) 




1739 


0781 


A082 


3 




ST 


R0,STVAL 




1740 


0782 


AC85 


B 




ST 


R3,STPT 




1741 


0783 


0201 


A 




RTS 


1 




1742 


0784 














1743 


0784 






; 


CHECK 


MATCH OF 3RD WORD 




1744 


0784 


87FD 


A 


$8: 


LD 


Rl,-3(R3) 




1745 


0785 


F47F 


B 




SKNE 


Rl , NAM 2 ;5TH AND 6TH CHARACTERS 


OF NAME 


1746 


0786 


21ED 


A 




JMP 


$9 ; MATCH 




1747 


0787 


21C9 


A 




JMP 


$3 ;NO MATCH - LOOP 




1748 


0788 














1749 


0788 








REGION OVERFLOW 




1750 


0788 














1751 


0788 


8060 


B 


$ROV: 


LD 


R0 , BASE 




1752 


0789 


F066 


B 




SKNE 


R0 , BASEB ;IS THIS LAST REGION? 




1753 


078A 


2101 


A 




JMP 


$10 




1754 


078B 


2108 


A 




JMP 


$SETB 




1,755 


078C 






; YES- 


SYMBOL TABLE OVERFLOW , 





2% 



IMPASM 



1756 


078C 


4C24 


A 


^ i ft . 
$10 : 


LI 


D ft •} C . 

KB, JO' 


iAtiJLit. UVbKrLUW bKKOK 


1 / o / 


0 1 ou 


O A A r\ 
z4AD 


T 
1 




TMD 


PDDnp 

E/KKUK 


,HLiOU KCjIUKIM IU FIX L.ALLiDK 


1 "7 C O 

1758 


0 /8E 














l / by 


0 / oh. 














i t ^ ft 
1 fbvi 


ft "7 Q £? 
H / tit 














1 lb 1 


ft T O C 
B / Ob 


o ft £ ft 

O0D0 


D 


?KbNU : 




Kid) f DttDCi 




7. "7 £ O 
1 /OZ 


0 / or 


Oi c c 

t 0bo 


B 






Dfl RaGFR 


,io lnla JjAbJ. KtiialUNr 


1 / b i 


0 /y w 


o i /"■ *7 
zlL / 


A 

A 




tj rlJr 


t\ tr d IN U 


; X do 


17o4 


A "7 Cl 7, 

0 /yi 






7 


KA lob 




nur pec pmdtv 


7 "5 £ C 

1765 


0791 


O ft /" o 

8068 


B 




LU 


KB f NtA 1 £3 




1766 


0792 


O ft £ "7 

F067 


B 




bK.NL 


D ft irinnR 


f lO KtiVjlUN D bHFll 


1767 


a "j o 

079 J 


O 7 A 

21C4 


A 




ivin 

J«r 


aflrCiWU 


; i tib 


1 "7 £ O 

1768 


0794 














1 "7 C Ck 

1769 


ft "7 n >i 

0 /y 4 








c rr* m nn 
bfc. 1 UF 


KIjVjIUN c 




7 "7 *7 A 

±770 


(inn 4 

0 /y 4 














1/71 


A "7 fi A 

0 / y 4 


o a £ o 


B 


9bfciD : 


t r\ 
LD 


Dft HC VTU 
Kid) , Nrj A I O 




177 2 


079 5 


A ft £ O 

A062 


B 




ST 


KV) f Nt A 1 




1 / / J 


0 /y b 


cobb 


t> 




LiU 


KB , 15 t\t3 CitJ 




1774 


0797 


A060 


B 




ST 


R0 , BASE 




1775 


0798 


8067 


B 




LD 


R0,TOPB 




7 *7 "7 £ 

1776 


ft *7 n n 
0799 


A ft C 1 

A061 


B 




ST 


Rv , IUP 




1777 


079 A 


8102 


A 




LD 


R0 , $NXTB 




1778 


079B 


21AE 


A 




JMP 


ri P p n 

J?KbER 


;REGION SEARCH 


i "7 *7 n 
1779 


A "7 a r* 

079C 


0065 


B 


?NXTA : 


. WORD 


NEXTA 




1780 


079D 


ft ft f o 

006 8 


B 


5NXTB : 


. WORD 


NEXTB 




1781 


079E 


079F 


A 


SQNXT : 


. = .+1 






1 ""7 O *7 

178/ 


079F 


r FFB 


A 


v n» rrt t» n ^ 

XFFFB : 


.WORD 


0FFFB 




1 /o J 


mil n 

V) /Ak; 








.PAGE 






1/84 


ft "7 71 01 

0 /AM 








. LOCAL 






1 "7 Q E 


ft "7 A A 

a /A0 














1 / 00 


0 /A0 








DIRECTIVE / INSTRUCTION SEARCH 


1787 


0 7 A0 














1788 


07A0 






DISER : 








1789 


07A0 


on! c 

8D15 


A 




LD 


R3 r DITBLF 




1790 


ft T 71 T, 

07A1 


84 7E 


B 




LD 


Rl , NAM1 


;3RD AND 4TH CHARACTERS OF NAME 


1791 


07A2 


887F 


B 




LD 


R2,NAM2 


;5TH AND 6TH CHARACTERS OF NAME 


1792 


07A3 






» 


BEGIN 


LOOP 




1793 


07A3 


807D 


B 


$2 : 


LD 


R0 , NAM0 


j 1ST 2 CHARACTERS OF NAME 1ST 2 


1794 


0 7A4 


F302 


A 




SKNE 


R0, 2(R3) 




1795 


07A5 


2101 


A 




JMP 


.+2 




1796 


07A6 


2107 


A 




JMP 


$3 




1797 


07A7 


F703 


A 




SKNE 


R1,3(R3) 




1798 


07A8 


2101 


A 




JMP 


$2B 




1799 


07A9 


2105 


A 




JMP 


$4 




1800 


07AA 


1201 


A 


$2B : 


BOC 


P, .+2 




1801 


07AB 


FB04 


A 




SKNE 


R2,4(R3) 




1802 


07AC 


0201 


A 




RTS 


1 


; FOUND 


1803 


07 AD 


2101 


A 




JMP 


$4 




1804 


07AE 








NOT FOUND YET 




1805 


07AE 


8302 


A 


$3: 


LD 


R0,2(F3) 




1806 


07AF 


1201 


h 


$4: 


BOC 


P, .+2 




1807 


07B0 


4B01 


A 




AISZ 


R3,l 


; 5 WORD ENTRY 


1808 


07B1 


4B04 


A 




AISZ 


R3, 4 




1809 


07B2 


FD02 


A 




SKNE 


R3, DITBLL 




1 o 1 V 


A —i d o 
0 /BJ 


ft O ft ft 

0 z 0 0 


A 

A 




RTS 




;NOT FOUND 


1811 


07B4 


21EE 


A 




JMP 


$2 


; REPEAT LOOP 


1812 


07B5 


0ED6 


A 


DITBLL: 


. WORD 


DITBL2 




1813 


07B6 


0D85 


A 


DITBLF: 


.WORD 


DITBLB 




1814 


07B7 








.PAGE 


'GET STRING 


- GNSTRG ,GCSTRG , GSTCON ' 


1815 


07B7 














1816 


07B7 








GET NEW STRING FIRST 


2 CHARACTERS - DO NOT HAVE 1ST QUOTE 


1817 


07B7 










JSR GNSTRG 





30^ 



IMPASM 



1818 


07B7 












NONE OR ERROR RETURN (ERROR ALREADY GENERATED) 


1819 


07B7 












9 PHAPQ TN RFf; 




1820 


07B7 
















1821 


07B7 










t cc a t 






1822 


07B7 






GNSTRG: 








1823 


07B7 


2C9C 


I 






JSR 


GNVC 




1824 


07B8 


0200 


A 






RTS 




; END OF STATEMNT 


1825 


07B9 


F045 


B 






SKNE 






1826 


07BA 


2101 


A 






JMP 


<! 9a 

s> ZA 




1827 


07BB 


2122 


A 






JMP 




•PRROR — HOT & QTPTHr 


1828 


07BC 


4C00 


A 


$2A: 


LI 


D 01 Oi 
KB , 13 




1829 


07BD 


A134 


A 






ST 


o < p m n 




1830 


07BE 


4C00 


A 


$2: 


LI 


Kb f W 




1831 


07BF 


A131 


A 






ST 


Kb , 5>WURD 




WILL 


HIT TO CHANGE A SYSTEM PACK. 


. 2 MIN. . 




1832 


07C0 


2CE4 


I 


$5: 


JSR 






1833 


0 7C1 


211C 


A 






JMP 


V>1 


•PDDnO _ TTTPPAT CTDTMf 
• CjKKUK ~ IJjLitiljAJj olKlNIa 


1834 


07C2 


F045 


B 






SKNE 


KB , yuui fc 




1835 


07C3 


2109 


A 






JMP 


9-5 


; y u u 1 b 


1836 


07C4 


852C 


A 


$7: 


LD 


Kl, 9WUKD 




1837 


07C5 


3180 


A 






RXCH 


R0,R1 




1838 


07C6 


1502 


A 






BOC 


NZ,$4 


- Tun T C TUTC TC 9 MP. PUAD 

;JMr Ir inlb lb zNu LHAK 


1839 


07C7 






* 


THIS IS 


1ST CHAR 




1840 


07C7 


A529 


A 






ST 


Rl , SWORD 




1841 


07C8 


?1 F7 


ft 






JMP 


$5 


;RhPbAr rUR zND LHAK 


1842 


01 1C Q 








THIS IS 


2ND CHAR 




1843 


01 1C Q 


a r 09. 

rt 3 Z O 


A 


$4: 


ST 


Rl , $END 


;btf END IND1AIUR NUN ZbKU-NUI 


1844 






a 






SHL 


R0, 8 




184 5 


Oi ICR 


C 1 9 A 


A 






ADD 


R0 , SEND 




1 C A C 

1 o 4 b 


(A ICC 


(71 9 0! 1 
SO Z B ± 


A 

A 






RTS 


1 


; 2ND KblUHN W11H Z LHKb, IN KsJ 


1847 


v 1 s-U 








DO WE HAVE DOUBLE QUOTE 


OR CLOSING QUOTE 


1848 


fl icr\ 
v i v_ u 


9PP4 

Z>~ Ej 1 


T 
J. 


$3: 


JSR 


GNC 




1849 


aicw 

V /V.D 




A 
n 






JMP 


$6 


_ r~> t apt Kir 1 AnAmn 


1850 




t BID 


□ 






SKNE 


R0 , QUOTE 




1851 


V 1 UK) 


9 1 P 1 








JMP 


$7 


; DOUBLE QUOTE 


1852 


v /Lil 










CLOSING 


QUOTE - ZERO OR 


ONE CHAR STRING 


1853 


a nr\ l 
O/l/l 


/\, JEl 


o 
D 






r*c *7 


INPTR 


; INPUT CHAR PTR 


1854 


10 / L)Z 


Blip 

o JL J. Ci 


A 

M 


$6: 


LD 


R0, SWORD 




1855 


07D3 


5C08 


A 






SHL 


R0, 8 




1856 


0 7D4 


1104 


A 








II f •? 0 




1857 


07D5 


C034 


B 






ADD 


R0 , BLANK 




1858 


07D6 


4D00 


A 






LI 


Rl,0 




1859 


07D7 


A51A 


A 


$9: 


ST 


Rl t SEND 


;SET STRING END 


1860 


07D8 


0201 


A 






RTS 


1 




1861 


07D9 








WAS A ZERO CHAR STRING 




1862 


07D9 


8118 


A 


$8: 


LD 


R0 f SEND 




1863 


07DA 


1101 


A 






BOC 


Z, .+2 




1864 


07DB 


0200 


A 






RTS 


; STRING CONTINUATION EMPTY 


1865 


07DC 


8048 


B 






LD 


R0 , BLANKS 




1866 


07DD 


21F9 


A 






JMP 


$9 




1867 


07DE 








ERROR 






1868 


07DE 


4C18 


A 


$1: 


LI 


R0, 24; 


SYNTAX ERROR 


1869 


07DF 


2CAD 


I 






JSR 


ERROR 




1870 


07E0 


0200 


A 


$10: 


RTS 




; RETURN WITH NO STRING 


lo/l 


07E1 
















1872 


07E1 










GET CONTINUATION OF STRING (2 CHARS AT A TIME) 


1873 


07E1 












JSR GCSTRG 




1874 


07E1 












NONE 




1875 


07E1 












2 CHARS IN REG 


0 


1876 


07E1 
















1877 


07E1 


8110 


A 


GCSTRG: 


LD 


R0 , SEND 




1878 


07E2 


ilFD 


A 






BOC 


Z,$10 


; END 


1879 


07E3 


21DA 


A 






JMP 


S2 


;N0T END 


1880 


07 E 4 

















31 



IMPASM 



1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
SCAN 



07E4 
07E4 
07E4 
07E4 
07E4 
07E4 

07E4 29D7 
07E5 0200 
07E6 A10A 
07E7 810A 
07E8 1106 A 
07E9 2CE4 I 
07EA 2102 A 
07EB F045 B 
07EC 2102 A 
07ED 4C18 
07EE 24AD 
07EF 

07EF 8101 
07F0 0201 
07F1 
07F1 

07F1 0000 



GSTCON: 



$12: 



$11: 



$WORD: 
$END: 



07F2 0000 
07F3 
07F3 
07F3 
07F3 

SYMBOL TABLE - MAP, 



GET STRING CONSTANT (2 CHAR STRING) - WE HAVE 1ST QUOTE 

JSR GSTCON 

ERROR RETURN 

2 CHARS IN R0 RETURN 



JSR 
RTS 
ST 
LD 
BOC 
JSR 
JMP 
SKNE 
JMP 
LI 
JMP 



$2A 



R0, $WORD 
R0,$END 
Z,S11 
GNC 
$12 

R0, QUOTE 
$11 

R0,24; 

ERROR 

LEGAL STRING CONSTANT 
LD R0 , SWORD 

RTS 1 



; ERROR ALREADY NOTED 



; NOTE ERROR AND RETURN TO MY CALLER 

;NOTE ERROR AND RETURN TO MY CALLER 
SYNTAX ERROR 



.WORD 
.WORD 



;SAVES 2 CHAR RESULT 
;0=STRING CONTINUED 



1909 


07F3 










1910 


07F3 










1911 


07F3 










1912 


07F3 










1913 


07F3 










1914 


07F3 










1915 


07F3 










1916 


07F3 










1917 


07F3 


4D01 


A 


OGLOB: 


1918 


07F4 


2103 


A 






1919 


07F5 










1920 


07F5 










1921 


07F5 










1922 


07F5 


4D00 


A 


RESETP: 


1923 


07F6 


2101 


A 






1924 


07F7 










1925 


07F7 










1926 


07F7 










1927 


07F7 






OMAP: 


1928 


07F7 


4D02 


A 






1929 


07F8 










1930 


07F8 


80 2F 


B 


$STRT: 


1931 


07F9 


2103 


A 






1932 


07FA 


07FB 


A 


SLAST: 


1933 


07FB 










1934 


07FB 










1935 


07FB 










1936 


07FB 






OMAPNR: 


1937 


07FB 


4D02 


A 






1938 


07FC 


4CFF 


A 






1939 


07FD 










1940 


07FD 


A162 


A 


$STR1: 


1941 


07FE 


A562 


A 






1942 


07FF 


4C01 


A 







GLOBAL SYMBOLS, RESET P BITS 

.PAGE 'SCAN SYMBOL TABLE - MAP, GLOBAL SYMBOLS, RESET P BITS 
.LOCAL 

SCAN SYMBOL TABLE: OUTPUT MAP, GLOBAL RECORDS AND RESET P BITS 



OUTPUT GLOBALS AND RESET P BITS 



LI 
JMP 



Rl,l 

$STRT 



RESET P BITS 

LI R1,0 
JMP $STRT 

OUTPUT MAP AND RESET P BITS 



LI Rl,2 
. ENDIF 

LD R0 f XFFF7 

JMP $STR1 
. = .+1 

OUTPUT MAP NO RESET OF P BITS 



LI 
LI 

.ENDIF 
ST 
ST 
LI 



Rl,2 
R0,-1 

R0,$FLAG 

R1,$MG 

R0,1 



;MAP OR GLOBAL INDICATOR 



.32 



IMPASM 



1943 


0800 


A158 


A 




ST 


R0 , $GLBN 




; GLOBAL NUMBER 


1944 


0801 


8C64 


B 




LD 


R3 ,TOPA 






1945 


0802 


8865 


B 




LD 


R2 , NEXTA 






1946 


0803 


2904 


A 




JSR 


SCANST 






1947 


0804 


8C67 


B 




LD 


R3 f TOPB 






1948 


0805 


8868 


B 




LD 


R2 f NEXTB 






1949 


0806 


2901 


A 




JSR 


SCANST 






1950 


0807 


0200 


A 




RTS 








1 OCT 


V O V O 
















1952 


0808 






SCANST: 










1953 


0808 


A9F1 


A 




ST 


R2 , $LAST 






1954 


0809 






$LOOP: 










1955 


0809 


FDF0 


A 




SKNE 


R3 , SLAST 






1956 


080A 


0200 


A 




RTS 








1957 


080B 


8155 


A 




LD 


R0,$MG 






1958 


080C 


1401 


A 




BOC 


B1E01. .+2 






1959 


080D 


2101 


A 




JMP 


$300 




;NO MAP 


1960 


080E 


295B 


A 




JSR 


MAPLIN 






1961 


080F 






$300: 










1962 


080F 






t 


FINISHED MAP, IS THIS 


A 


GLOBAL 


1963 


080F 


83FF 


A 




LD 


R0,-1 (R3) 






1964 


0810 


5CFE 


A 




SHR 


R0,2 






1965 


0811 


1301 


A 




BOC 


ODD,. +2 




;YES GLOBAL 


1966 


0812 


212E 


A 




JMP 


$6 




;NO GLOBAL 


1967 


0813 






> 


SHOULD 


WE ASSIGN GLOBAL 


A NUMBER 


1968 


0813 


814C 


A 




LD 


R0 , $FLAG 






1969 


0814 


5000 


A 




CAI 


R0,0 






1970 


0815 


1109 


A 




BOC 


Z,$3A 




?NO 


1971 


0816 


83FF 


A 




LD 


R0,-1 (R3) 






1972 


0817 


6027 


B 




AND 


R0,K3 






1973 


0818 


1506 


A 




BOC 


NZ,$3A 




;NO 


1974 


0819 


8300 


A 




LD 


R0,0(R3) 






1975 


081A 


602C 


B 




AND 


R0,K4 






1976 


081B 


1103 


A 




BOC 


Z,$3A 




; GLOBAL NOT USED 


1977 


081C 








ASSIGN 


GLOBAL NUMBER 






1978 


081C 


813C 


A 




LD 


R0 , SGLBN 






1979 


081D 


A3FE 


A 




ST 


R0,-2(R3) 






1980 


081E 


793A 


A 




ISZ 


SGLBN 






1981 


081F 








SHOULD 


WE OUTPUT GLOBALS? 


1982 


081F 






$3A: 










1983 


081F 


8141 


A 




LD 


R0,$MG 






1984 


0820 


1301 


A 




BOC 


ODD, .+2 






1985 


0821 


211F 


A 




JMP 


$6 




;GLOBAL NOT REOUESTED 


1986 


0822 


83FF 


A 




LD 


R0,-1 (R3) 






1987 


0823 


6027 


B 




AND 


R0,K3 






1988 


0824 


1503 


A 




BOC 


NZ,$5 






1989 


0825 


8300 


A 




T T> 








1990 


0826 


602C 


B 




AND 


R0,K4 






1991 


0827 


1119 


A 




BOC 


Z,$6 






1992 


0828 






• 










1993 


0828 






; 


OUTPUT 


GLOBAL SYMBOL 


IF 


ANY 


1994 


0828 






; 










1995 


0828 






; 


GLOBAL 


OUT CODE HERE 






1996 


0828 








******** 






1997 


0828 






$5: 










1998 


0828 


8300 


A 




LD 


R0,0(R3) 






1999 


0829 


291F 


A 




JSR 


$CONV 






2000 


082A 


A13B 


A 




ST 


R0,GLBUF+3 






2001 


082B 


83FF 


A 




LD 


R0,-1(R3) 






2002 


082C 


291C 


A 




JSR 


$CONV 






2003 


082D 


A139 


A 




ST 


R0,GLBUF+4 






2004 


08 2E 


8300 


A 




LD 


R0,0(R3) 






2^005 


082F 


87FD 


A 




LD 


Rt f -3(R3) 







3,3* 



IMPASM 



2006 


0830 


1301 


A 




BOC 


ODD, .+2 


7007 


0831 


8448 


B 




LD 


Rl, BLANKS 


2008 


0832 


291D 


A 




JSR 


$CBZ 


2009 


0833 


A134 


A 




ST 


R0,GLBUF+5 


2010 


0834 


8 3FE 


A 




LD 


R0,-2(R3) 


2011 


0835 


A133 


A 




ST 


R0,GLBUF+6 


7012 

Z. KJ X 


0836 


83FF 


A 




LD 


R0,-1(R3) 


2013 


0837 


6027 


B 




AND 


R0,K3 


7 0 1 4 
£ iy x i 


0838 


1501 


A 




BOC 


NZ , .+2 


2015 


0839 


4C04 


A 




LI 


R0,4 


2016 


083A 


D026 


B 




SUB 


P0,K1 


£. t) ± 1 


083B 


5C0E 


A 




SHL 


R0, 14 


70 1 ft 

£. W X o 


083C 


A128 


A 




ST 


R0,GLBUF+2 


70 1 Q 
z iy x z7 




4300 


A 




PUSH 


R3 


7070 
z z. rj 


083E 


8D23 


A 




LD 


R3,GLBUF-1 


z. iy z- x 


08 3F 


2CC6 


I 




JSR 


CKPNCH 


2022 


0840 


4700 


A 




PULL 


R3 


2023 


0841 






9 






2024 


0841 








BOTTOM OF LOOP 


70 2 5 

Z U Z. 


0841 






m 






2026 


0841 


83FF 


A 


$6 : 


LD 


Ktf , — ± ( K J ) 


2027 


0842 


611D 


A 




AND 


R0 , $FLAG 


707R 

z. lu z. r? 


0843 


A3FF 


A 




ST 


R0 ,-1 (Rj) 


70 7Q 


0R44 


8300 


A 




LD 


R0 , 0 (RJ) 


70^0 


0845 


6027 


B 




AND 


R0 ,K3 


2031 


0846 


50FE 


A 




CAI 


R0 , -2 


7032 


0847 


3300 


A 




RADD 


R0 ,R3 


70 

W J J 


0R4R 


21C0 


A 




JMP 


$LOOP 


2034 


0849 






# 






Z, V J J 


084 9 






m 


CONVERT 


6 BIT NAME 


70 36 

Z. V J U 


0849 






* 






2037 


0849 


5CFC 


A 


$C0NV: 


SHR 


R0 , 4 


70 38 

Z, V >J o 


084A 


3181 


A 




RCPY 


R0 ,R1 


2039 


084B 


603B 


B 




AND 


R0 , HEX3F 


7040 
Z. t/ ** ici 


0R4C 


5DFA 


A 




SHR 


Rl r 6 


7041 

z v *4 X 


0R4D 

KJ O *t U 


5D08 


A 




SHL 


Rl,8 


704 7 

& VI '1 z 


0R4F 

V O *4 Lj 


J X V V 


A 




RADD 


R0,R1 


9 fl A 


0fi 4F 


T50R 

V* J KJ O 


A 




ADD 


R1,X2020 


7 04 4 


0ft50 






> 






704 5 


0 R 50 






> 


CONVERT 


BLANKS TO 


9 0 A 
z fcf O 


(71 ft 5 0 
10 0 3 10 






r 






9 0 4 7 
Z. 10 *i / 


0 ft 5 0 
t> C J 10 


4T0 R 


A 


$CBZ : 


LI 


P0 f 0 


904 P 
tilt C 


0 ft 5 1 


R4 4 ft 


B 




SKNE 


Rl , BLANKS 


904Q 


0 R 5 9 

\> 0 3 £ 


0900 
f z, t» t< 


A 




RTS 




9050 


0 P 5 1 

)£/ C ~J J 


3481 


A 




RCPY 


R1,R0 


90 51 


0R54 

10 O D H 


6424 


B 




AND 


R1,K255 


90 5 9 


0 ft 5 5 

V O D D 


P4 ? 4 
r ** j *i 


B 




SKNE 


Rl , BLANK 


9 0 T 

ZU J J 


0R 5fi 

Wo JO 


fi04 9 

D v *r z 


n 

D 




AND 


R0 f XFF00 


90R4 
z K) _} 4 


0R 57 

V C D I 


0 900 
V £. V V 


A 




RTS 




2055 


0858 






* 






2056 


0858 


2020 


A 


X2020: 


.WORD 


02020 




ffiocn 
Bojy 


0 CI 0 (71 


A 


5r;r.BN • 

V u Jj u n ■ 


.WORD 


0 


*3 oi c; o 


0 P C A 


wo JD 


A 


P IN Ju x • 


. = .+1 




9 Q\ ^ Q 

z, itl D J 


ti C D D 


0R 5P 




$PT : 


. = .+1 




2060 


085C 


085D 


A 


$CT: 


. = .+1 




2061 


085D 


464F 


A 


$F0: 


.WORD 


'FO' 


2062 


085E 


524D 


A 


$RM: 


.WORD 


'rm ' 


2063 


085F 


0A7A 


A 


$RTB : 


.WORD 


RELTB+1 


2064 


0860 


0861 


A 


$FLAG: 


. = .+1 




2065 


0861 


0862 


A 


$MG: 


. = .+1 


; MAP/GLOB 


2066 


0862 


0863 


A 




. WORD 


.+1 


2067 


0863 


4005 


A 


GLBUF: 


.WORD 


04005 



; RESET P BIT 



•UPDATE TABLE PTR, 



; GLOBAL NUMBER 



! FFFF IF MAP DIRECTIVE ELSE FFF7 
?OR 0=NONE 1=GL0BAL 2=MAP 



34 



IMPASM 



2068 0864 086A A 

2069 086A ; 

2070 086A ? 

2071 086A ; 

2072 086A MAPLIN: 

2073 086A ADEF A 

2074 086B 7C71 B 

2075 086C 2102 A 

2076 086D 4F07 A 

2077 086E 2CD9 I 

2078 086F 2CA8 I 

2079 0870 ; 

2080 0870 8DE9 A 

2081 0871 8300 A 

2082 0872 6029 B 

2083 0873 1103 A 

2084 0874 ; 

2085 0874 4C24 A 

2086 0875 2CE5 I 

2087 0876 2104 A 

2088 0877 ; 

2089 0877 $NLCL: 

2090 0877 8300 A 

2091 0878 5CF6 A 

2092 0879 C034 B 

2093 087A 2CE5 I 

2094 087B 8300 A $1: 

2095 087C 5CFC A 

2096 087D 603B B 

2097 087E C034 B 

2098 087F 2CE5 I 

2099 0880 83FF A 

2100 0881 5CF6 A 

2101 0882 C034 B 

2102 0883 2CE5 I 

2103 0884 83FF A 

2104 0885 5CFC A 

2105 0886 603B B 

2106 0887 C034 S 

2107 0888 2CE5 I 

2108 0889 ; 

2109 0889 8300 A 

2110 088A 1302 A 

2111 088B ; 

2112 088B 2CE6 I 

2113 088C 2102 A 

2114 088D ; 

2115 088D 83FD A $LONG: 

2116 088E 2CC9 I 

2117 088F ; 

2118 088F ; 

2119 088F 2CE6 I S2: 

2120 0890 8300 A 

2121 0891 1401 A 

2122 0892 2105 A 

2123 0893 ; 

2124 0893 81C9 A $2A: 

2125 0894 2CC9 I 

2126 0895 81C8 A 

2127 0896 2CC9 I 

2128 0897 2109 A 

2129 0898 $2B: 

2130 0898 83FE A 



. = .+6 

PRINT 1 MAP LINE 



ST R3,$NEXT 

DSZ PGRL 

JMP .+3 

LI R3,7 

JSR OPGSTR 

JSR NEWLIN 

NEW ENTRY 

LD R3 r $NEXT 

LD R0,0(R3) 

AND R0,K8 

BOC Z - $NLCL 

LOCAL SYMBOL 

LI R0,'$'/256 

JSR OICH 

JMP $ 1 

NON LOCAL 



; OUTPUT PAGE STRING 

:NON LOCAL 

?OUT $ (1ST CHAR) 
; GO TO 2ND CHAR 



LD 

SHR 

ADD 

JSR 

LD 

SHR 

AND 

ADD 

JSR 

LD 

SHR 

ADD 

JSR 



R0,0 (R3) 

R0,10 

R0,HEX20 

OICH 

R0,0(R3) 

R0,4 

R0, HEX3F 
R0,HEX20 
OICH 

R0 f -1 (R3) 
R0,10 
R0, HEX20 
OICH 



LD 


R0,-1(R3) 


SHR 


R0, 4 


AND 


R0 , HEX3F 


ADD 


R0 r HEX20 


JSR 


OICH 


DO WE 


HAVE A LONG 


LD 


R0, 0(R3) 


BOC 


ODD f $LONG 


SHORT 


SYMBOL 


JSR 


02B 


JMP 


$2 


LONG 


SYMBOL 


LD 


R0 f -3(R3) 


JSR 


02CH 


OUTPUT VALUE 


JSR 


02B 


LD 


R0, 0(R3) 


BOC 


BlEQl,$2A 


jIMP 


$2B 


FORM 


ENTRY 


LD 


R0 f $FO 


JSR 


02CH 


LD 


R0,$RM 


JSR 


02CH 


JMP 


$7 


LD 


R0,-2(R3) 



;0UT 1ST CHAR 



;OUT 2ND CHAR 



?OUT 3RD CHAR 



;OUT 4TH CHAR 



;OUTPUT 2 BLANKS 



; OUTPUT 'FORM 



35 



IMPASM 



2131 


0899 


2CCD 


I 




JSR 


OHEX 




2132 


089A 


2CE7 


I 




JSR 


01B 




2133 


089B 


8 3FF 


A 




LD 


R0,-1 (R3) 




2134 


089C 


602A 


B 




AND 


R0,K7 




2135 


089D 


3281 


A 




RCPY 


R0,R2 




2136 


089E 


C9C0 


A 




ADD 


R2,$RTB 




2137 


089F 


8200 


A 




LD 


R0,0(R2) 




2138 


08A0 


2CC9 


I 




JSR 


02CH 


•OUTPUT REL KEY 


2139 


08A1 










R0, '*'/256 




2140 


08A1 


4C2A 


A 


$7: 


LI 




2141 


08A2 


8700 


A 




LD 


R1,0 (R3) 




2142 


08A3 


742C 


B 




SKAZ 


R1,K4 




2143 


08A4 


4C20 


A 




LI 


R0,' 7256 




2144 


08A5 


2CE5 


I 




JSR 


01CH 




2145 


08A6 








FINISHED SPECIAL DEBUG CODE 


2146 


08A6 














2147 


08A6 


0200 


A 


$3: 


RTS 






2148 


08A7 








. PAGE 


' INSTRUCTION 


CLASS PROCESSING' 


2149 


08A7 








LOCAL 






2150 


08A7 














2151 


08A7 








LD, ST 




REG , @ADR (X) 


2152 


08A7 














2153 


08A7 


2CE8 


I 


IC1 : 


JSR 


EXPP2 




2154 


08A8 


2CE9 


I 




JSR 


INERR 




2155 


08A9 


5C0A 


A 




SHL 


R0 , 10 




2156 


08AA 


C072 


B 




ADD 


R0 - TVAr, 




2157 


0 8AB 


A072 


B 




Crn 
o ± 


R0I TUAT. 

l\ YJ f 1 V nL 




2158 


08AC 


2C9B 


I 




uurl 






2159 


08AD 


214A 


A 




.7 MP 


y O X) 




2160 


08AE 


2C9C 


I 




TOO 
U OK 






2161 


08AF 


2103 


A 




one 


oil 




2162 


08B0 


F032 


B 




SMNCi 


D 01 f IT 
KB ,Lnl 




2163 


08B1 


2104 


A 




J 1*1 XT 


9 J. Z 




2164 


08B2 


7C5E 


B 




r»c 7 
Uoii 


1 INF 1 K 


• TMDriT PHAD DTD 
' INrUl LnflK KlK 


2165 


08B3 


803E 


B 


$11 : 


t n 

LiU 


DO Y 1 (ft (ft (ft 
KB , A J. W B B 




2166 


08B4 


2CEA 


I 




tod 


H A r\ O T V 


, "piTi AnD A T T OT«7 TMnTDET'P )i r r ni.i T MnCV 


2167 


08B5 


210D 


A 




Tun 

J !*1 tr 






2168 


08B6 


8072 


B 


$12: 


LiD 


KB , L VrtLi 




2169 


08B7 


C03E 


B 




Ann 
AUU 


nj| v 1 01 (ft (ft 




2170 


08B8 


A072 


B 




ST 


R0,IVAL 




2171 


08B9 


2CEB 


I 




JSR 


GADRX 




2172 


08BA 


2108 


A 




JMP 


$41 




2173 


08BB 






m 








2174 


08BB 








ADD, SUB 


,SKG,SKNE 


REG , ADR (X) 


217 5 


0 8BB 














2176 


08BB 


2CE8 


I 


IC2 : 


JSR 


EXPP2 




2177 


08BC 


2CE9 


I 




JSR 


INERR 




2178 


08BD 


5C0A 


A 




SHL 


R0, 10 




2179 


08BE 


C0 72 


3 


$21 : 


ADD 


R0,IVAL 




2180 


08BF 


A072 


B 




ST 


R0 , IVAL 




2181 


08C0 


2C9B 


I 




JSR 


GCOMMA 




2182 


0 8C1 


2136 


A 




JMP 


$80 




2183 


08C2 






m 








2184 


08C2 








ISZ,DSZ 




ADR (X) 


2185 


08C2 














2186 


08C2 


2CEB 


I 


IC4: 


JSR 


GADRX 


; GET ADR , X OK, NO INDIRECT ALLOWED 


2187 


08C3 


8072 


B 


$41: 


LD 


R0,IVAL 




2188 


08C4 


855F 


A 




LD 


Rl , IREL 


•INSTRUCTION RELOCATION MODE 


2189 


08C5 


24EC 


I 




JMP 


INOUT 




2190 


08C6 














2191 


08C6 








AND, OR, 


SKAZ 


REG0/1,ADR(X) 


2192 


08C6 














2193 


08C6 


2CED 


I 


IC3: 


JSR 


EXPP1 





IMPASM 



2194 08C7 2CE9 I 

2195 08C8 5C0A A 

2196 08C9 21F4 A 

2197 08CA 

2198 08CA 

2199 08CA 



2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 



08CA 

08CB 

08CC 

08CC 

08CC 

08CC 

08CD 

08CE 

08CF 

08CF 

08CF 

08CF 

08D0 

08D1 

08D2 

08D3 

08D4 

08D4 

08D4 

08D4 

08D5 

08D6 

08D7 

08D8 

08D9 

08DA 

08DB 

08DC 

08DD 

08DE 

08DF 

08DF 

08DF 

08DF 

08E0 

08E1 

08E2 

08E3 

08E4 

08E5 

08E6 

08E7 

08E8 

08E9 

08EA 

08EB 

08EC 

08EC 

08EC 

08EC 

08ED 

08EE 



8072 B IC5: 
24EE I 



15FD A IC5A: 
2CEF I 
21FB A 



2CE8 I IC6: 
2CE9 I 
5C08 A 
C072 B 
24EE I 



2CE8 I 
2CE9 I 
5C08 A 
C072 B 
A072 B 
2C9B I 
211D A 
2CF0 I 
2CE9 I 
C072 B 
24EE I 



IC7: 



2CE8 I 
2CE9 I 
5C08 A 
C072 B 
A072 B 



IC7A: 



2C9B 
2112 
2CF0 
2CE9 
5001 
6024 B 
C072 B 
24EE I 



2CE8 I IC8: 
2CE9 I 
5C0A A 



2252 08EF C072 B 

2253 08F0 A072 B 

2254 08F1 2C9B I 

2255 08F2 2105 A 



JSR 
SHL 
JMP 



INERR 
R0,10 
$21 



NOP , PULLF , PUSHF , HALT NO ARG 



LD 
JMP 

ISCAN 



R0 , IVAL 
INABS 



BOC NZ,IC5 
JSR QERROR 
JMP ICS 

PUSH, PULL, XCHRS 



;INSTR. ABS 



NO ARG 



; EXTD OK 



REG 



JSR 
JSR 
SHL 
ADD 
JMP 



EXPP2 

INERR 

R0,8 

R0,IVAL 

INABS 



INSTR 



ERROR 



AISZ,LI,CAI,ROL,SHL 



REG , IMMED 8 BIT 



JSR 

JSR 

SHL 

ADD 

ST 

JSR 

JMP 

JSR 

JSR 

ADD 

JMP 

ROR,SHP 

JSR 

JSR 

SHL 

ADD 

ST 

JSR 

JMP 

JSR 

JSR 

CAI 

AND 

ADD 

JMP 



EXPP2 

INERR 

R0,8 

R0,IVAL 

R0 , IVAL 

GCOMMA 

$80 

EXP8 

INERR 

R0,IVAL 

INABS 



EXPP2 

INERR 

R0 r 8 

R0 , IVAL 

R0 , IVAL 

GCOMMA 

$80 

EXP8 

INERR 

R0,1 

R0, K255 

R0, IVAL 

INABS 



REG , IMMED 8 BIT 



RADD , RXCH , RCPY , RXOR , RAND REG , REG 



JSR 


EXPP2 


JSR 


INERR 


SHL 


R0 f 10 


ADD 


R0,IVAL 


ST 


R0, IVAL 


JSR 


GCOMMA 


JMP 


$80 



37 



I MP ASM 



2256 


08F3 


2CE8 


I 




JSR 


EXPP2 


2 2 57 


08F4 


297B 


A 




JSP 


INERR 


2258 


08F5 


5C08 


A 




SHL 


R0 , 8 


2259 


08F6 


C072 


B 




ADD 


R0 , IVAL 


2260 


08F7 


24EE 


I 




JMP 


INABS 


2261 


08F8 












2262 


08F8 


2CF1 


I 


$80 : 


JSR 


MERROR 


2263 


08F9 


8072 


B 




LD 


R0 , IVAL 


2264 


08FA 


24EE 


I 




JMP 


INABS 


226 5 


08FB 












2266 


08FB 








JMP, JSR 




2267 


08FB 












2268 


08FB 


2C9C 


I 


IC9 : 


JSR 


GNVC 


2269 


08FC 


2103 


A 




JMP 


$91 


2270 


08FD 


F032 


B 




SKNE 


R0 , CAT 


2271 


08FE 


2104 


A 




JMP 


$92 


2272 


08FF 


7C5E 


B 




DSZ 


INPTR 


2273 


0900 


803D 


B 


$91 : 


LD 


R0 , HEX4 00 


2274 


G901 


2CEA 


I 




JSR 


GADRIX 


2275 


0902 


21C0 


A 




JMP 


$41 


2276 


0903 


8072 


B 


$92 : 


LD 


R0,IVAL 


2277 


0904 


C03D 


B 




ADD 


R0, HEX400 


2278 


0905 


A072 


B 




ST 


R0,IVAL 


2279 


0906 


297B 


A 




JSR 


GADRX 


2280 


0907 


21BB 


A 




JMP 


$41 


2281 


0908 












2282 


0908 








SFLG , PFLG 


2283 


0908 












2284 


0908 


2CF2 


I 


IC10 : 


TOD 
J O K 


P V DD 


2285 


0909 


2966 


A 




JSR 


INERR 


2286 


090A 


5C0 8 


A 




SHL 


R0,8 


2287 


090B 


C072 


B 




ADD 


R0, IVAL 


2288 


090C 


A072 






ST 


R0,IVAL 


2289 


090D 


2C9B 


I 




JSR 


GCOMMA 


2290 


090E 


24EE 


I 




JMP 


INABS 


2291 


090F 


2CF3 


I 




JSR 


EXPP7 


2292 


0910 


3081 


A 




NOP 




2293 


0911 


C072 


B 




ADD 


R0,IVAL 


2294 


0912 


24EE 


I 




JMP 


INABS 


2295 


0913 






; 






2296 


0913 






• 


BOC 




2297 


0913 












2298 


0913 


2CF4 


I 


IC11 : 


JSR 


EXPP4 


2299 


0914 


2953 






JSP 


INERR 


2300 


0915 


5C08 


A 




SHL 


R0,8 


2301 


0916 


C072 


B 




ADD 


R0 , IVAL 


2302 


V J _L / 


A0 72 


B 




ST 


R0, IVAL 


9 1 <A 1 

£* J3 YJ -J 


0918 


9PQR 


I 




JSR 


GCOMMA 


2304 


0919 


29 5F 


A 




JSR 


MERPOP 


230 5 


09 1A 


2CBB 


I 




JSR 


EXP 


2306 


09 IB 


29 54 


A 




JSR 


INERR 


2307 


091C 


2CF 5 


I 




JSR 


SPADR 


2308 


091D 


2103 


A 




JMP 


$111 




09 IE 




B 




SUB 


R0, K256 


2310 


091F 


A072 


B 




ST 


RR , IVAL 


2311 


0920 


24EE 


I 




JMP 


INABS 


2312 


0921 


2955 


A 


$111: 


JSR 


ADRERR 


2313 


0922 


8072 


E 




LD 


R0,IVAL 


2314 


0923 


24EE 


I 




JMP 


INABS 


2315 


0924 


0925 


A 


IREL: 


. = .+1 




2316 


0925 












2317 


0925 








RTS , RTI 


,RIN,ROUT 


2318 


0925 













@ADR(X) 
; NONE 

; INPUT CHAR PTR 



POS3,POS7 



P0S4 , SPADR 



;NOT VALID SOECIAL ADR 



; INSTRUCTION RELOCATION MODE 
POS7 
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IMPASM 



2319 


0925 


2CF3 


I 


IC12: 


JSR 


EXPP7 




2320 


0926 


3081 


A 




NOP 






2321 


0927 


C072 


B 




ADD 


R0,IVAL 




2322 


0928 


24EE 


I 




JMP 


INABS 




2323 


0929 






; 








2324 


0929 






; 


JSRP 




POS7 


2325 


0929 






; 






____ 


2326 


0929 


1501 


A 


IC12A: 


BOC 


NZ, .+2 




2327 


092A 


2945 


A 




JSR 


INERR 




2328 


092B 


2CF3 


I 




JSR 


EXPP7 




2329 


092C 


294C 


A 




JSR 


MERROR 




2330 


092D 


C072 


B 




ADD 


R0 , IVAL 




2331 


092E 


24EE 


I 




JMP 


INABS 




2332 


092F 






; 








2333 


092F 






• 


JINT,SETST,CLRST,SETBIT 


,CLRBIT,CMPBIT, JMPP 


2334 


092F 






: 






POS4 


2335 


092F 






; 









2336 


092F 


1501 


A 


IC13A: 


BOC 


NZ , IC13 


; EXTD OK 


2337 


0930 


2944 


A 




JSR 


OERROR 




2338 


0931 






? 








2339 


0931 


2CF4 


I 


IC13: 


JSR 


EXPP4 




2340 


0932 


293D 


A 




JSR 


INERR 




2341 


0933 


C072 


B 




ADD 


R0 , IVAL 




2342 


0934 


24EE 


I 




JMP 


INABS 




2343 


0935 






; 








2344 


0935 






; 


MPY,DIV 


, DADD, DSUB 


ADR (X) 


2345 


0935 












— ■ — 




yj y _> -J 


291A 


ft 


IC14 : 


JSR 


DBWIN 




2347 


0936 


24EC 


I 




JMP 


INOUT 




2348 


0937 






J 








2349 


0937 






; 


LDB , STB 


f uHiO f SLS 


ADR (X) 


2350 


0937 






; 









2351 


0937 


2918 


A 


IC15: 


JSR 


DBWIN 




2352 


0938 


5C01 


A 




SHL 


R0, 1 




2353 


0939 


2103 


A 




JMP 


IC16A 




2354 


093A 






* 








2355 


093A 






* 


LRB , SRB 




ADP (X) 


2356 


093A 















2357 


093A 


2915 


A 


IC16: 


JSR 


DBWIN 




2358 


093B 


5C01 


A 




SHL 


R0, 1 




2359 


093C 


C026 


B 




ADD 


R0,K1 




2360 


093D 


F426 


B 


IC16A: 


SKNE 


Rl, Kl 




2361 


09 3E 


24EC 


I 




JMP 


INOUT 




2362 


093F 


2937 


A 




JSR 


ADRERR 




2363 


0940 


24EC 


I 




JMP 


INOUT 




2364 


0941 














2365 


0941 






j 


JSPI 




ADR SPECIAL VALUE 


2366 


0941 






J 









2367 


0941 


2CBB 


I 


IC17: 


JSR 


EXP 




2368 


0942 


292D 


A 




JSR 


INERR 




2369 


0943 


F426 


B 




SKNE 


R1,K1 




2370 


0944 


2103 


A 




JMP 


.+4 




2371 


0945 


2931 


A 




JSR 


ADRERR 




2372 


0946 


8072 


3 




LD 


R0 , IVAL 




2373 


0947 


24EE 


I 




JMP 


INABS 




2374 


0948 


683A 


B 




OR 


R0,HEX7F 




2375 


0949 


5000 


A 




CAI 


R0 r 0 




2376 


094A 


15FA 


A 




BOC 


NZ, .-5 




2377 


094B 


807A 


B 




LD 


R0,EXPVAL 


; EXPRESSION VALUE 


2378 


094C 


5C09 


A 




SHL 


R0,9 




2379 


094D 


5CF7 


A 




SHR 


R0,9 




2380 


094E 


C072 


B 




ADD 


R0,IVAL 




2381 


094F 


24EE 


I 




JMP 


INABS 
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IMPASM 



2382 


0950 














2383 


0950 








DOUBLE 


WORD INSTRUCTION 


SUBROUTINE 


2384 


0950 














2385 


0950 






DBWIN: 








2386 


0950 


1501 


A 




BOC 


NZ, .+2 




2387 


0951 


2923 


A 




JSR 


QERROR 




2388 


0952 


2CBB 


I 




JSR 


EXP 




2389 


0953 


2925 


A 




JSR 


MERROR 




2390 


0954 


A119 


A 




ST 


R0,$VAL 




2391 


0955 


A519 


A 




ST 


Rl , SREL 




2392 


0956 


2C9C 


I 




JSR 


GNVC 




2393 


0957 


2110 


A 




JMP 


$NOX 


;NO INDEXING 


2394 


0958 


F046 


B 




SKNE 


R0 , LPAREN 




2395 


0959 


2102 


A 




JMP 


.+3 




2396 


095A 


7C5E 


B 




DSZ 


INPTR 


; INPUT CHAR PTR 


2397 


095B 


210C 


A 




JMP 


$NOX 


;NO INDEXING 


2398 


095C 








INDEXING USED 




2399 


095C 


2CE8 


I 




JSR 


EXPP2 




2400 


095D 


291B 


A 




JSR 


MERROR 




2401 


095E 


E026 


B 




SKG 


R0,K1 




2402 


095F 


291B 


A 




JSR 


VERROR 




2403 


0960 


5C08 


A 




SHL 


R0,8 




2404 


0961 


C072 


B 




ADD 


R0 , IVAL 




2405 


0962 


A072 


B 




ST 


R0,IVAL 




2406 


0963 


2C9C 


I 




JSR 


GNVC 




2407 


0964 


2918 


A 




JSR 


$XERR 




2408 


0965 


F043 


B 




SKNE 


R0 , RPAREN 




2409 


0966 


2101 


A 




JMP 


.+2 




2410 


0967 


2915 


A 




JSR 


$XERR 




2411 


0968 


8072 


B 


$NOX: 


LD 


R0, IVAL 




2412 


0969 


4D01 


A 




LI 


Rl,l 




2413 


096A 


2CAE 


I 




JSR 


OUTWRD 




2414 


096B 


8102 


A 




LD 


R0, $VAL 




2415 


096C 


8502 


A 




LD 


Rl , $REL 




2416 


096D 


0200 


A 




RTS 






2417 


096E 














2418 


096E 


096F 


A 


$VAL: 


. = .+1 






2419 


096F 


0970 


A 


$REL: 


. = .+1 






2420 


0970 














2421 


0970 








INSTRUCTION ERROR 




2422 


0970 














2423 


0970 


4C00 


A 


INERR: 


LI 


R0,0; 


MISSING ARGUMENT ERROR 


2424 


0971 






INERR1: 








2425 


0971 


2CAD 


I 




JSR 


ERROR 




2426 


0972 


80 7 A 


B 




LD 


R0 r EXPVAL 


EXPRESSION VALUE 


2427 


0973 


847C 


B 




LD 


Rl , EXPREL 


? EXPRESSION RELOCATION 


2428 


0974 


0200 


A 




RTS 






2429 


0975 














2430 


0975 


4C36 


A 


OERROR: 


LI 


R0,54; 


EXTENDED INSTR. ERROR 


2431 


0976 


24AD 


I 




JMP 


ERROR 




2432 


0977 














2433 


0977 


4C0C 


A 


ADRERR: 


LI 


R0,12; 


ADDRESS ERROR 


2434 


0978 


21F8 


A 




JMP 


INERR1 




2435 


0979 














2436 


0979 


4C00 


A 


MERROR: 


LI 


R0,0; 


MISSING ARG. ERROR 


2437 


097A 


21F6 


A 




JMP 


INERR1 




2438 


097B 














2439 


097B 


4C06 


A 


VERROR: 


LI 


R0, 6; 


VALUE ERROR 


2440 


097C 


21F4 


A 




JMP 


INERR1 




2441 


097D 














2442 


097D 


4C18 


A 


$XERR: 


LI 


R0,24; 


SYNTAX ERROR 


2443 


097E 


21F2 


A 




JMP 


INERR1 
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IMPASM 



2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 



097F 
097F 
097F 
0980 
0981 
0982 
0982 
0982 
0983 
0984 
0984 
0985 
0986 
0987 



0989 

098A 

098B 

098C 

098C 

098D 

098E 

098E 

098F 

0990 

0991 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

0999 

099A 

099A 

099A 

099B 

099C 

099D 

099E 

099F 

09A0 

09A1 

09A2 

09A3 

09A4 

09A5 

09A6 

09A7 

09A8 



4C00 A 
4D00 A 
2102 A 



4C00 A 
4D01 A 

A17C A 
A57C A 
2CBB I 
21 4B A 
847C B 
A59A A 
2CE0 I 
0200 A 

807C B 
1503 A 

4C2A A 
2CAD I 
0200 A 

F026 B 
2107 A 
F040 8 
2166 A 
F027 B 
2134 A 
F02C B 
2162 A 
0000 A 



GADR: 
GADRI 



GADRX: 
GADRIX: 

$ADR: 



$DEF : 



2C9C I 
2103 A 
7C5E B 
F046 B 
2106 A 
807A B 
1201 A 
2108 A 
E024 B 
210A A 
2105 A 
807A B 
E15E A 
2102 A 
E03A B 



$ABS: 



. PAGE 
. LOCAL 
LI 
LI 
JMP 



'ADDRESS ROUTINES ' 



R0,0 
Rl,0 
$ADR 



$ABS1: 



09A9 2104 A 

09AA 295B A $2: 

09AB 2122 A 

09AC 0200 A 

09AD ; 

09AD 807A B $ADROK 

09AE 6024 B $3: 

09AF C072 B 

09B0 A072 B 

09B1 8150 A 

09B2 1501 A 



LI 
LI 

ST 
ST 
JSR 
JMP 
LD 
ST 
J SR 
RTS 
PASS 
LD 
BOC 
UNDEFINED 



R0,0 
Rl,l 

R0,$IFLAG 
Rl f $XFLAG 
EXP 
$MERR 
Rl ,EXPREL 
Rl , IREL 
P1P2 



R0 , EXPREL 
NZ,$DEF 



;NO INDIRECT PERMITTED 
;NO INDEXING PERMITTED 



;NO INDIRECT PERMITTED 
; INDEXING PERMITTED 



; SAVE RELOC MODE FOR DISPLACEMENT 



;EXPRESSION RELOCATION MODE 



T T 

Lil 




UNDEFINED ERROR 




tKKUK 




KXb 








R0 , K 1 




Tun 
J ™Hr 


$ABS 




SKNE 


R0 , K2 




JMP 


5BSECT 




SKNE 


R0 , K3 




JMP 


STSECT 










JMP 


$EXT 




HALT 




;MY ERROR - REL MODE 


JSR 


GNVC 




JMP 


,+4 




DSZ 


INPTR 




SKNE 


R0 , LPAREN 




JMP 


$ABS1 




LD 


R0, EXPVAL 




BOC 


P, .+2 




JMP 


$2 




SKG 


R0,K255 




JMP 


$3 




JMP 


$2 




LD 


R0, EXPVAL 


; EXPRESSION VALUE 


SKG 


R0,KM129 




JMP 


$2 




SKG 


R0,HEX7F 




JMP 


$3 




JSR 


SPADR 


;SECIAL ADR-RELATIVF 


JMP 


$TRYI 


;NO - TRY INDIRECT 


RTS 




;YES 


ADDRESS 


OK 




LD 


R0 , EXPVAL 


; EXPRESSION VALUE 


AND 


R0, K255 




ADD 


R0,IVAL 




ST 


R0,IVAL 




LD 


R0 , SXFLAG 




BOC 


NZ, $XOK 


; INDEXING OK 



UNDEFINED ARG. E 



41 



IMPASM 



2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 



09B3 

09B4 

09B4 

09B5 

09B6 

09B7 

09B8 

09B9 

09BA 

09BA 

09BA 

09BB 

09BC 

09BD 

09BE 

09BF 

09C0 

09C1 

09C2 

09C3 

09C4 

09C5 

09C5 

09C5 

09C6 

09C7 

09C8 

09C9 

09CA 

09CB 

09CB 

09GB 

09CC 

09CD 

09CE 

09CE 

09CF 

09D0 

09D0 

09D1 

09D2 



0200 A 

2C9C I 
0200 A 
F046 B 
2102 A 
7C5E B 
0200 A 



RTS 

INDEXING OK 



$XOK: 



JSR 

RTS 

SKNE 

JMP 

DSZ 

RTS 



GNVC 

R0 , LPAREN 

$LP 

INPTR 



LEFT PAREN 



$LP: 



2971 
2109 
1401 
2107 
5C08 
C072 B 
A072 B 
2C9C I 
2102 A 
F043 B 
0200 A 



4C06 A $VERR: 
2CAD I 

4D01 A $ERET: 
A47C B 
B4F6 I 
0200 A 



806B B $TSECT: 
F027 B 
21DC A 

8132 A $TRYI: 
1506 A 

4C0C A $AERR: 
2CAD I 
21F4 A 



JSR 

JMP 

BOC 

JMP 

SHL 

ADD 

ST 

JSP 

JMP 

SKNE^ 

RTS 



LI 

JSR 

LI 

ST 

ST 

RTS 



2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 



09D3 

09D3 

09D4 

09D5 

09D6 

09D6 

09D6 

09D6 

09D6 

09D7 

09D8 

09D9 

09 DA 

09DB 

09DC 

09DD 

09DE 

09DF 

09DF 

09E0 

09E1 

09E2 



4C00 A $MERR; 
2CAD I 
0200 A 



$IOK: 



8072 B 
C129 A 
A072 B 
8145 A 
B0B1 
2CE0 
2117 
8D25 



847C B 

8B01 A $IOK5: 
8300 A 
1108 A 
3482 A 



EXPP2 
$VERR 
B1EQ1, .+2 

$ VERR 

R0,8 

R0, IVAL 

R0,IVAL 

GNVC 

$VERR 

R0 , RPAREN 



R0,6; 
ERROR 
Rl,l 

Rl , EXPREL 
Rl , IREL 



EXP REL = TSECT 
LD R0,SECT 
SKNE R0,K3 
JMP $2 
TRY INDIRECT 
LD R0 , $IFLAG 

BOC NZ,$IOK 
INDIRECT NOT OK 
LI R0,12? 
JSR ERROR 
JMP SERET 



LI 

JSR 

RTS 



R0, 0; 

ERROR 



; INPUT CHAR PTR 



; INDEX VALUE ERROR 



;SET INDEX FIELD 



VALUE ERROR 



; VALUE ERROR 



; EXPRESSION RELOCATION MODE 



;SECT « TSECT? 
;YES 



; INDIRECT OK 

ADDRESS ERROR 
; ADDRESSING ERROR 
; ERROR RETURN 



MISSING ARG. ERROR 



INDIRECT OK - GENERATE INDIRECT WORD 
GENERATE POINTER 



LD 


R0 , IVAL 


ADD 


R0, SIFLAG 


ST 


R2,IVAL 


LD 


R0, $CI 


ST 


R0 , RELTB+3 


JSR 


P1P2 


JMP 


SIOK1 


LD 


R3 , PTABF 


LD 


Rl , EXPREL 


TOP OF 


LOOP 


LD 


R2,l (R3) 


LD 


R0,0(R3) 


BOC 


Z,$IOK2 


RXOR 


R1,R0 



; REPLACE B WITH I IN REL TABLE 
;PASS1 

EXPRESSION RELOCATION MODE 
; ADD NEW ENTRY 



42 



IMPASM 



2570 


xj y a. 3 


1 nPI 9 

1 OYJ £. 








B0C 


NZ,$IOK3 


/ l\ LJ A JL 




9^71 




FR 7a 


3 






SKNE 


R2 ,EXPVAL 


• F YPRFQc td,m uar np 




9^79 

Z 3 / Z 


flat j 


9 1 CIQ 

z i b y 


A 






JMP 


$IOK4 






9 ^7 "3 


01 QPfi 
B y & O 








* 


NEXT3ENTRY 






9^74 








SI0K3: 










£.3/3 


B y £< D 


4 R 01 9 

*H3 B Z 


a 






AISZ 


R3 f 2 






9 ^7fi 


AQP7 

Bye,/ 


pm p 


A 






SKNE 


R3 , PTABL 






£.0 11 


wy be 


OI dp 


a 






JMP 


$IOK6 


; 1 AbLb JUVh-Hr LUW 




9 ^ 7 ft 


0 7 by 


oi re 
Zl r 0 


a 






JMP 


$IOK5 


. C\rn<^ o rp^Fi Or»por 
JbUlJjiUPjUt JIjUOP 




£.0 1? 


01 q p a 
b y OA 










ADD 3NEW3 ENTRY 






9 PI 

i JOB 


01 QPA 

io y da 


A 7 01 01 


a 

A 


$I0K2: 


ST 


R1,0(R3) 






9 ^R 1 


v.' y xjD 


ft ft 7 a 

OB /fl 


R 
£3 






LD 


R0,EXPVAL 


; bXrKhbblUN VALUt. 




9RR9 

J O t. 




njui 


A 
M 






ST 


R0,1(R3) 






2583 


09ED 




A 
A 






LI 


R0,0 






9 ^R A 


01 Q F F 


a 9 01 9 
A J B Z 


A 

A 






ST 


R0,2(R3) 






i JO J 


OS Q PP 
v y c< r 










E N T R Y 3 F 0 U N D 






9 Rftfi 


0QFF 
B y or 




A 


$I0K4: 


SUB 


R3, PTABF 






2587 


Ci Q F C! 


5FFF 








SHR 


R3,l 








b y r j. 


On. 


o 
o 






ADD 


R3 , BMAX 






2589 


09F2 


CC72 


B 






ADD 


P3,IVAL 






2590 


09F3 


AC72 


B 






ST 


R3,IVAL 








01 Q P4 
u y r t 










RETURN 








9 c;q 9 

ZOjZ 




>l n oi o 
huvj Z 


a 

A 


$I0K1: 


LI 


Rl,2 






i J3 J 




a 4 7P 


D 

t3 






ST 


Rl , EXPREL 


; EXPRESSION RELOCATION 


MODE 


9 t94 


PI Q F6 


R4 Ffi 
DM r D 


T 
X 






ST 


Rl , IREL 




z j y j 


0QF7 


01 9 01 01 


A 
A 






RTS 




















TABLE 30VERF LOW 






9 7 


C5 Q FR 


9 A 


A 

A 


$I0K6: 


LI 


R0, 36; 


ERROR TABLE OVERFLOW 




9SQR 






T 
J. 






JSR 


ERROR 






9 C Q Q 

Z j y y 


CI Q PI 


9 1 PQ 

Z i r y 


A 






JMP 


SI0K1 


; RETURN 




Z 0 B B 


01 Q PR 

b y r d 










END OF 


POINTER GENERATION 






CI Q PR 


















9fiCI 9 
Z D Y) Z 


01 Q PR 

b y r ts 


















9£,cn 

tDH J 


01 Q PR 

b y r d 










EXP REL 


= EXTERNAL 






z o sy 4 


w y r o 






$EXT: 










9 £ £i R 


01 Q PR 

b y r d 
















3 CMC 

Zobd 


01 Q P D 

By £ ts 










EXP REL 


= BSECT 






ZOB / 


b y r h5 


8 0 /A 


B 


SBSECT: 


LD 


R0,EXPVAL 


;EXPRESSION VALUE 








1/01 


A 






BOC 


P,$10 






H iC fii fi 


fll A C> T~\ 

<u y t u 


O 1 no 

z 1 L)z 


A 






JMP 


$AERR 








CA Q P P 

B y r b 


P 01 O yl 

bB/4 


fcs 


$10: 


SKG 


P.0,K255 






OCT! 
£.0 11 


fit n p p 
b y r r 


oi Tin 
z IAD 


A 






JMP 


$ADROK 


;0K - ADR IN RANGE 0 TO 2 55 


OCT") 

Zolz 


01 A fil fA 

B Ab B 


z ILc 


A 






JMP 


$AERR 






9£ 1 1 


CI A 01 1 
BAB ± 


















Zd±4 


At ill 

t)AB 1 


0A0 2 


A 


$IFLAG: 


. = .+1 




; INDIRECT FLAG - 0=N0T 


ALLOWED 


ZDi 3 


(1 A fl O 

BAfcJ z 


MAM i 


A 


$XFLAG: 


. = .+1 




; INDEX FLAG - 0=NOT 


ALLOWED 


/DID 


01 a oi "5 
BAB J 


b i y y 


A 

A 


PTABF: 


. WORD 


PTRTAB 






ZOl / 


(71 A 01 / 

BAB4 


(i l no 


A 


PTABL: 


.WORD 


PTREND-1 






of i o 
zoic 


oi a oi c: 
BAB O 


pp i p 
r r / r 


A 

A 


KM129: 


.WORD 


-129 






9£ 1 Q 

z o ± y 


(A a d A 

BAB D 


















9fi 9 A 
z d z b 


B A B O 


















ZOZ± 


01 A (71 C 
B AB O 










SPECIAL 


ADR ? 


JSR SPADR 




ocoo 

ZD// 


oi a oi c 

BAB D 














NO 




2623 


0A06 














YES 




2624 


0A06 


2C9C 


I 


SPADR: 


JSR 


GNVC 






2625 


0A07 


2103 


A 






JMP 


$50 






2626 


0A08 


7C5E 


B 






DSZ 


INPTR 


; INPUT CHAR PTR 




2627 


0A09 


F046 


B 






SKNE 


R0 , LPAREN 






2628 


0A0A 


0200 


A 






RTS 








2629 


0A0B 


806B 


B 


$50: 


LD 


R0 f SECT 






2630 


0A0C 


F07C 


B 






SKNE 


R0, EXPREL 


;EYPPESSION RELOCATION 


MODE 


2631 


0A0D 


2101 


A 






JMP 


$51 






2632 


0A0E 


0200 


A 






RTS 
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IMPASM 



2633 0A0F 807A B 


S51 : 


LjIJ 


Da FXPVAL 


;EXPRESSION VALUF 


2634 0A10 D05C B 




c n r 

t> U B 


pa T.OCCTR 




2635 0A11 D026 B 




CUR 


R0 Kl 


; -129 


2636 0A12 E1F2 A 






R0 ,KM129 


2637 0A13 0200 A 




RTS 


pa HFX7F 




2638 0A14 E03A B 








2639 0A15 2101 A 




J Clir 






2640 0A16 0200 A 




is i D 


R0 K255 




2641 0A17 6024 B 


cel. 


ft IN JJ 




2642 0A18 C03F B 




ADD 


R0,K256 




2643 0A19 C072 B 




ADD 


R0,IVAL 




2644 0A1A A072 B 




ST . 


R0,IVAL 




2645 0A1B 4Dfc)± A 




T T 
Jji. 


Rl,l 




2646 WAIL A4 /L B 




O X 


Rl ,EXPREL 


; EXPRESSION RELOCATION 


2647 WA1D t54ro I 




O X 


R1,IREL 




2648 0A1E 0201 A 




PTC 
KID 


1 




2649 0A1F 










2650 0A1F 2049 A 


$CI : 


.WORD 


' I' 




2651 0A20 




. fftVjlj 


'SPECIAL EXPRESSION REQUESTS' 


2652 0A20 




. LUt-ALi 






2653 0A20 










2654 0A20 










2655 0A20 










2656 0A20 4C00 A 


EXPABS : 


LI 


R0,0 




2657 0A21 


$4 : 






;POS/NEG OK 


2658 0A21 4D0J. A 




r t 


Rl r l 


2659 0A22 2112 A 






$EXPN 




2660 0A23 


f 








2661 0A23 BWJB B 


t? V D D • 


t n 


R0,X8000 




2662 0A24 4D00 A 


$5 : 


T T 

Ul 


R1,0 


;POS ONLY 


2663 0A25 210F A 




J Mr 


$EXPN 




2664 0A26 


* 






;0FFF0 


2665 0A26 802E B 


EXP4 : 


LD 


R0,XFFF0 


2666 0A27 21F9 A 




J MP 


$4 




2667 0A28 










2668 0A28 8042 B 


EXP8 : 


LD 


R0,XFF00 




2669 0A29 21F7 A 




JMP 


$4 




2670 0A2A 


i 








2671 0A2A 4CFE A 


EXPP1 : 


LI 


R0,-2 




2672 0A2B 21F8 A 




J Mr 


$5 




2673 0A2C 


* 








2674 0A2C 4CFC A 


EXPP2 : 


LI 


R0,-4 




2675 0A2D 21F6 A 




JMP 


$5 




2676 0A2E 


r 








2677 0A2E 4CF8 A 


EXPP3 : 


LI 


R0,-8 




2678 0A2F 21F4 A 




JMP 


$5 




2679 0A30 


J 








2680 0A30 4CF0 A 


EXPP4 : 


LI 


R0,-16 




2681 0A31 21F2 A 




JMP 


$5 




2682 0A32 










2683 0A32 4C80 A 


EXPP7: 


LI 


R0 r -128 




2684 0A33 21F0 A 




JMP 


$5 




2685 0A34 


r 






(USED BY FORM DIRECTIVE) 


2686 0A34 


t 


EXP WITH MASK IN R0 


2687 0A34 4D01 A 


EXPFRM : 


LI 


Rl, 1 




2688 0A35 








Rl (0=POS) 


2689 0A35 




MASK 


IN R0, FLAG IN 


2690 0A35 










2691 0A35 A11E A 


$EXPN: 


ST 


R0 , $MASK 




2692 0A36 A51E A 




ST 


Rl , $FLAG 


;0=POS 


2693 0A37 2CBB I 




JSR 


EXP 




2694 0A38 0200 A 




RTS 


0 


;N0 EXP 


2695 0A39 847C B 




LD 


Rl, EXPREL. 


; EXPRESSION RELOCATION 
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IMPASM 



2696 0A3A E426 B 

2697 0A3B 2109 A 

2698 0A3C ; 

2699 0A3C 4C06 A $2: 

2700 0A3D 2CAD I 

2701 0A3E 4C00 A 

2702 0A3F 4E01 A 

2703 0A40 A07A B 

2704 0A41 A87B B 

2705 0A42 A07C B 

2706 0A43 847C B 

2707 0A44 0201 A 

2708 0A45 ; 

2709 0A45 850E A $1: 

2710 0A46 3483 A 

2711 0A47 1106 A 

2712 0A48 810C A 

2713 0A49 11F2 A 

2714 0A4A ; 

2715 0A4A 807A B 

2716 0A4B 3483 A 

2717 0A4C 3482 A 

2718 0A4D 15EE A 

2719 0A4E ; 

2720 0A4E 8105 A $3: 

2721 0A4F 5000 A 

2722 0A50 607A B 

2723 0A51 847C B 

2724 0A52 887B B 

2725 0A53 0201 A 

2726 0A54 ; 

2727 0A54 0A55 A $MASK: 

2728 0A55 0A56 A $FLAG: 

2729 0A56 

2730 0A56 

2731 0A56 ; 

2732 0A56 A12B A OUTWRD: 

2733 0A57 A52B A 

2734 0A58 805D B 

2735 0A59 1301 A 

2736 0A5A 2116 A 

2737 0A5B 806A B 

2738 0A5C 1106 A 

2739 0A5D 7C71 B 

2740 0A5E 2102 A 

2741 0A5F 4F07 A 

2742 0A60 2CD9 I 

2743 0A61 2972 A 

2744 0A62 2943 A 

2745 0A63 805C B SI: 

2746 0A64 2931 A 

2747 0A65 2944 A 

2748 0A66 811B A 

2749 0A67 292E A 

2750 0A6R 8D1A A 

2751 0A69 EC2C B 

2752 0A6A 2101 A 

2753 0A6B DC2C B 

2754 0A6C CD0C A 

2755 0A6D 8300 A 

2756 0A6E 2966 A 

2757 0A6F 293A A 



SKG 


R1,K1 




JMP 


$1 


;ABS OR UNDEF 


ERROR - 


SIZE 




LI 


R0 , 6 ; 


VALUE hRJsUH 


JSR 


ERROR 




LI 


R0, 0 




LI 


R2 , 1 




ST 


R0 , EXPVAL 


; EXPRESSION VALUE 


ST 


R2,EXPPD 


;PREV.DEF. 1=YES 


ST 


R0 , EXPREL 


; EXPRESSION RELOCATION MODE 


LD 


Rl , EXPREL 


; EXPRESSION RELOCATION MODE 


RTS 


1 




LD 


R1,$MASK 




RAND 


Rl, R0 




BOC 


Z,$3 


;OK 


LD 


R0,$FLAG 




BOC 


Z,$2 


; ERROR - WE NEED PUblllvb 


NEGATIVE OK 




LD 


R0, EXPVAL 


;EXPRESSION VALUE 


RAND 


Rl , R0 




RXOR 


Rl r R0 




BOC 


NZ, $2 


7 ERROR 


VALUE OK 




LD 


R0,$MASK 




CAI 


R0,0 




AND 


R0, EXPVAL 


; EXPRESS ION VALUE 


LD 


Rl, EXPREL 


; EXPRESSION RELOCATIUN MODE 


LD 


R2,EXPPD 


rPREV.DEF. 1=YES 


RTS 


1 




. = .+1 






. = .+1 




n_nAc kt<7 — n^o /\t rr n 


.PAGE 


'OUTPUT DATA 


vvORD TO LIST AND BINARY 


. LOCAL 










JSR OUTWRD 


ST 


R0 , $WRD 




ST 


Rl , $REL 




LD 


R0,PASS 




BOC 


ODD, .+2 




JMP 


$3 




LD 


R0,MOFLAG 


; MULTIPLE OUTPUT FLAG 0=1ST 


BOC 


Z,$l 




DSZ 


PGRL 


; PAGE REMAINING LINES 


JMP 


.+3 




LI 


R3,7 




JSR 


OPGSTR 


iGUTPUT PAGE STRING 


JSR 


NEWLIN 




JSR 


06B 




LD 


R0,LOCCTR 




JSR 


OBEX 




JSR 


OIB 




LD 


R0,$WRD 




JSR 


OHEX 




LD 


R3,$REL 




SKG 


R3,K4 




JMP 


.+2 




SUB 


R3,K4 




ADD 


R3,$RELTB 




LD 


R0,0(R3) 




JSR 


02CH 




JSR 


OIB 





45 



IMPASM 



2758 


0A70 


2CF7 


I 




JSR 


OIBUF yOUTPUT INPUT BUFFER 


2759 


0A71 


785C 


B 


$3: 


ISZ 


LOCCTR 


2760 


0A72 


3081 


A 




NOP 




2761 


0A73 


810E 


A 




LD 


R0, $WRD 


2762 


0A74 


890E 


A 




LD 


R2 , $REL 


2763 


0A75 


2D02 


A 




JSR 


@$LOOWRD ; OUTPUT OBJECT WORD 


2764 


0A76 


3081 


A 




NOP 




2765 


0A77 


0200 


A 




RTS 




2766 


0A78 


0C6F 


A 


$LOOWRD 


: .WORD 


OOWOPD 


2767 


0A79 






r 






2768 


0A79 






f 






2769 


0A79 






RELTB: 






2770 


0A79 


0A7A 


A 


$RELTB: 


.WORD 


.+1 


2771 


0A7A 


2055 


A 




.ASCII 


' U A B T XGAGBGT ' 




0A7B 


2041 


A 










I0A /L 


ZanZ 


A 










0A7D 


2054 


A 










0A7E 


2058 


A 










0A7F 


4741 


A 










0A80 


4742 


A 










0A81 


4754 


A 








2772 


0A82 


0A8 3 


A 


$WRD: 


. = .+1 




2773 


0A83 


0A84 


A 


$REL: 


. = .+1 




2774 


0A84 






• 






2775 


0A84 






• 


OUTPUT 


VALUE FROM ASSIGN OR END DIRECTIVES 


2776 


0A84 






• 






2777 


0A84 


2909 


A 


OVAL: 


JSR 


OHEXIF 


2778 


0A85 


805D 


B 




LD 


R0,PASS 


2779 


0A86 


1301 


A 




BOC 


ODD, .+2 


2780 


0A87 


0200 


A 




RTS 




2781 


0A88 


8089 


B 




LD 


R0,INDEV ; INPUT DEVICE 0=CR, 


2782 


0A89 


13FD 


A 




BOC 


ODD, .-2 


2783 


0A8A 


291D 


A 




JSR 


02B 


2784 


0A8B 


291E 


A 




JSR 


01B 


2785 


0A8C 


2CF7 


I 




JSR 


OIBUF 


2786 


0A8D 


0200 


A 




RTS 




2787 


0A8E 






• 






2788 


0A8E 








OUTPUT 


HEX IF PASS2 ELSE IGNORE 


2789 


0A8E 












2790 


0A8E 


4000 


A 


OHEXIF: 


PUSH 


R0 


2791 


0A8F 


805D 


B 




LD 


P0,PASS 


2792 


0A90 


1302 


A 




BOC 


ODD, .+3 


2793 


0A91 


4400 


A 




PULL 


R0 


2794 


0A92 


0200 


A 




RTS 




2795 


0A93 


2913 


A 




JSR 


043 


2796 


0A94 


2915 


A 




JSR 


01B 


2797 


0A95 


4400 


A 




PULL 


R0 


2798 


0A96 






; 






2799 


0A96 






; 


OUTPUT 


4 HEX DIGITS JSR OHEX 


2800 


0A96 






; 






2801 


0A96 


2903 


A 


OHEX: 


JSR 


$01X1 


2802 


0A97 


2901 


A 




JSR 


$01X 


2803 


0A98 


2900 


A 




JSR 


$01X 


2804 


0A99 






. 






2805 


0A99 


810A 


A 


SOIX: 


LD 


R0,$TEMP 


2806 


0A9A 


5804 


A 


$01X1: 


ROL 


R0,4 


2807 


0A9B 


A108 


A 




ST 


R0,$TEMP 


2808 


0A9C 


602D 


B 




AND 


R0,K15 


2809 


0A9D 


E02B 


B 




SKG 


P0,K9 


2810 


0A9E 


2103 


A 




JMP 


$01X2 


2811 


0A9F 


C039 


B 




ADD 


R0,HEX37 


2812 


0AA0 


290A 


A 


$01X3: 


JSR 


01CH 


2813 


0AA1 


0200 


A 




RTS 





IMPASM 



2814 0AA2 ; 

2815 0AA2 C038 B $01X2: 

2816 0AA3 21FC A 

2817 0AA4 

2818 0AA4 0AA5 A 

2819 0AA5 0D0A A 

2820 0AA6 

2821 0AA6 

2822 0AA6 

2823 0AA6 2901 A 06B: 

2824 0AA7 2900 A 04B: 

2825 0AA8 ; 



ADD R0,HEX30 
JMP $01X3 



$TEMP: .=.+1 
HEXD0A: .WORD 0D0A 

OUTPUT 6 /4 BLANKS 



; TEMP 



JSP 
JSR 



02B 
02B 



2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 

1 Q C 1 
{. O -J Z. 

2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 



0AA8 
0AA8 
0AA8 
0AA9 
0AAA 
0AAB 
0AAB 
0AAB 
0AAB 
0AAC 
0AAD 
0AAE 
0AAF 
0AB0 
0AB1 
0AB2 
0AB3 
0AB4 
0AB5 
0AB6 
0AB7 
0AB8 
0AB9 
0ABA 
0ABB 
0ABC 

0ABE 
0ABE 



4C20 A 02B: 
2901 A 
4C20 A 01B: 



4000 A 01CH: 
800C A 
1506 A 
805D B 
1306 A 

8097 B $PUT1: 
1502 A 
4400 A 
241A B 

4400 A $PUT3: 
2410 B 

808E B $PUT2: 
15F8 A 
808B B 
F055 B 
2101 A 
21F4 A 
4400 A 
0200 A 



BttDti 

0ABF 
0AC0 
0AC1 
0AC2 
0AC3 
0AC3 
0AC3 
0AC3 
0AC4 
0AC5 
0AC6 
0AC7 
0AC8 
0AC9 
0ACA 
0ACB 
0ACC 
0ACD 
0ACE 
0ACF 
0AD0 



own o ujitu. 

1502 A 
29E5 A 
29E4 A 
0200 A $RET: 



EC3B B MANYNL: 

FC23 B 

0200 A 

8096 B 

1508 A 

EC71 B 

2106 A 

8091 B 

1104 A 

4C0D A 

2C1A B 

4C0C A 

241A B 



OUTPUT 2 BLANKS , 1 BLANK OR 1 CHAR 

;0UTPUT 2 BLANKS 
; OUTPUT 1 BLANK 
PUT CHAR OUT IF IN LIST MODE 



LI R0,' '/256 

JSR 01CH 
LI R0, ' '/256 



PUSH 

LD 

BOC 

LD 

BOC 

LD 

BOC 

PULL 

JMP 

PULL 

JMP 

LD 

BOC 

LD 

SKNE 

JMP 

JMP 

PULL 

FTS 



BOC 
JSR 
JSR 
RTS 



R0 

R0 , PNCHMD 
NZ, $PUT3 
R0,PASS 
ODD, $PUT2 
R0 , TYPMOD 
NZ, .+3 
R0 

0HSPRT 
R0 

(3PUTC 
R0 , LISTMD 
NZ, SPUT1 
R0 , ERRPT 
R0 , ERRBAS 
.+2 
$PUT1 
P0 



R0 ,MOFLAG 
NZ , $RET 
06B 
06B 



OUTPUT N CR AND LF WHERE N IS IN R3 



SKG 


R3,HEX3F 


SKNE 


R3,ZER0 


RTS 




LD 


R0,HSPR 


BOC 


NZ,$MAN1 


SKG 


R3 , PGRL 


JMP 


$MAN1 


LD 


R0, NOLI ST 


BOC 


Z,$MAN1 


LI 


R0,0D 


JSR 


@HSPRT 


LI 


R0,0C 


JMP 


@HSPRT 



$MAN1: 
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IMPASM 



2877 


0AD0 


2903 


A 


2878 


0AD1 


4BFF 


A 


2879 


0AD2 


21FD 


A 


2880 


0AD3 


0200 


A 


2881 


0AD4 






2882 


0AD4 






2883 


0AD4 






2884 


0AD4 


81D0 


A 


2885 


0AD5 






2886 


0AD5 


A1CE 


A 


2887 


0AD6 


5CF8 


A 


2888 


0AD7 


29D3 


A 


2889 


0AD8 


81CB 


A 


2890 


0AD9 


6024 


B 


2891 


0ADA 


21D0 


A 


2892 


0ADB 






289 3 


0ADB 






2894 


0ADB 






2895 


0ADB 






2896 


0ADB 


29F8 


A 


2897 


0ADC 


8300 


A 


2898 


0ADD 


11E4 


A 


2899 


0ADE 


5C01 


A 


2900 


0ADF 


5CFF 


A 


2901 


0AE0 


29F4 


A 


2902 


0AE1 


8300 


A 


2903 


0AE2 


1201 


A 


2904 


0AE3 


0200 


A 


290 5 


0AE4 


4B01 


A 


2906 


0AE5 


21F6 


A 


290 7 


0AE6 


0200 


A 


2908 


0AE7 






2909 


0AE7 






2910 


0AE7 






2911 


0AE7 






2912 


0AE7 






2913 


0AE7 


29DB 


A 


2914 


0AE8 


4C37 


A 


2915 


0AE9 


A071 


B 


2916 


0AEA 


8D06 


A 


2917 


0AEB 


29EF 


A 


2918 


0AEC 


8D03 


A 


2919 


0AED 


29ED 


A 


2920 


0AEE 


4F02 


A 


2921 


0AEF 


21D3 


A 


2922 


0AF0 






2923 


0AF0 


0170 


A 


2924 


0AF1 


01DE 


A 


2925 


0AF2 






2926 


0AF2 






2927 


0AF2 






2928 


0AF2 






2929 


0AF2 






2930 


0AF2 






2931 


0AF2 


2C9C 


I 


2932 


0AF3 


0200 


A 


2933 


0AF4 


808B 


B 


2934 


0AF5 


D055 


B 


2935 


0AF6 


1502 


A 


2936 


0AF7 


4C1E 


A 


2937 


0AF8 


2CAD 


I 


2938 


0AF9 


0200 


A 



JSR 



NEWLIN 



AISZ R3,-l 
JMP .-2 
RTS 



OUTPUT CR AND LF 



OUTPUT 2 CHARS 



NEWLIN: LD 



02CH: 



ST 

SHR 

JSR 

LD 

AND 

JMP 



R0 , HEXD0A 

R0,$TEMP 

R0,8 

OICH 

R0,$TEMP 

R0,K255 

OICH 



?OUT CHAR AND RETURN 



OUTPUT NEW LINE AND MESSAGE 

P3 POINTS TO MESSAGE 0 WORD ENDS MESSAGE 



ONLMSG: 
OMSG: 



OPGSTP: 



$EQPG : 
$EQTTL: 



XARGCK; 



JSR 

LD 

BOC 

SHL 

SHR 

JSR 

LD 

BOC 

RTS 

AISZ 

JMP 

RTS 



NEWLIN 

R0,0(R3) 

Z,$RET 

R0,1 

R0,1 

02CH 

R0,0(R3) 

P, .+2 

R3, 1 
OMSG 



; LAST WORD NEG. 



OUTPUT PAGE STRING 

JSR MANYNL 

LI R0,55 

ST R0,PGPL 

LD R3 , SEOTTL 

JSR ONLMSG 

LD P3,SEOPG 

JSR ONLMSG 

LI R3,2 

JMP MANYNL 

.WORD PGSTRG 

. WORD TTLBUF+4 

.PAGE 'REPORT ERRORS' 
.LOCAL 

CHECK EXCESS ARGUMENTS 



;= PGSTRG 



JSP 

RTS 

LD 

SUB 

BOC 

LI 



GNVC 

R0 , ERRPT 
R0 , ERRBAS 
NZ , .+3 
P0,30; 



EXCESS ARGUMENTS ERROR 



JSR ERROR 
RTS 



48 



IMPASM 



2939 


0AFA 


0C35 


A 


PR2PTR: 


.WORD 


PRMPT2 


2940 


0AFB 






• 






2941 


0AFB 






• 


OUTPDT 


INPUT BUFFER A 


2942 


0AFB 






; 






2943 


0AFB 






OIBREP: 






2944 


0AFB 


8096 


B 




LD 


R0,HSPR 


2945 


0AFC 


A097 


B 




ST 


R0 , TYPMOD 


2946 


0AFD 


805D 


B 




LD 


R0,PASS 


2947 


0AFE 


1301 


A 




BOC 


ODD, .+2 


2948 


0AFF 


0200 


A 




RTS 




2949 


0B00 


8089 


B 




LD 


R0,INDEV 


2950 


0B01 


1303 


A 




BOC 


ODD, .+4 


2951 


0B02 


2DF7 


A 




JSR 


0PR2PTR 


2952 


0B03 


29BA 


A 




JSR 


012B 


2953 


0B04 


297A 


A 




JSR 


OIBUF 


2954 


0B05 






REPERR: 






2955 


0B05 


8096 


B 




LD 


R0,HSPR 


2956 


0B06 


A097 


B 




ST 


R0, TYPMOD 


2957 


0B07 






; 






2958 


0B07 






• 


ANY ERRORS TO REPORT 


2959 


0B07 






• 






2960 


0B07 






$102: 






2961 


0B07 


808B 


B 




LD 


R0,ERRPT 


2962 


0B08 


F055 


B 




SKNE 


R0,ERRBAS 


2963 


0B09 


0200 


A 




RTS 




2964 


0B0A 


805D 


B 




LD 


R0,PASS 


2965 


0B0B 


1301 


A 




BOC 


ODD,. +2 


2966 


0B0C 


0200 


A 




RTS 






\oaaD 






* 


INCREMENT ERROR COUNT 


2968 


0B0D 


7888 


B 




ISZ 


EC 


2969 


0B0E 


4EFC 


A 




LI 


R2,-4 


2970 


0B0F 


8488 


3 




LD 


Rl f EC 


2971 


0B10 


3481 


A 


$103: 


RCPY 


R1,R0 


2972 


0B11 


602D 


B 




AND 


R0,K15 


2973 


0B12 


1501 


A 




BOC 


NZ, .+2 


2974 


0B13 


C428 


B 




ADD 


R1,K6 


2975 


0B14 


5904 


A 




ROL 


Rl,4 


2976 


0B15 


4A01 


A 




AISZ 


R2,l 


2977 


0B16 


21F9 


A 




JMP 


$103 


2978 


0B17 


A488 


B 




ST 


R1,EC 


2979 


0B18 






• 






2980 


0B18 






• 


OUTPUT 


ERROR MESSAGE 


2981 


0B18 












2982 


0B18 


8855 


B 




LD 


R2,ERRBAS 


2983 


0B19 


A922 


A 




ST 


R2,$TMP 


2984 


0B1A 


8921 


A 


$100: 


LD 


R2,$TMP 


2985 


0B1B 


F88B 


B 




SKNE 


R2 , ERRPT 


2986 


0B1C 


211C 


A 




JMP 


$104 


2987 


0B1D 


7C71 


B 




DSZ 


PGRL 


2988 


0B1E 


3081 


A 




NOP 




2989 


0B1F 


8071 


B 




LD 


R0 , PGRL 


2990 


0B20 


1B01 


A 




BOC 


LEZ , . +2 


2991 


0B21 


2102 


A 




JMP 


.+3 


2992 


0B22 


4F07 


A 




LI 


R3,7 


2993 


0B23 


29C3 


A 




JSR 


OPGSTR 


2994 


0B24 


8D18 


A 




LD 


R3,ERRMSG 


2995 


0B25 


29B5 


A 




JSR 


ONLMSG 


2996 


0B26 


8915 


A 




LD 


R2,$TMP 


2997 


0B27 


8E00 


A 




LD 


R3,0(R2) 


2998 


0B28 


CD19 


A 




ADD 


R3,MSGTAB 


2999 


0B29 


29B2 


A 




JSR 


OMSG 


3000 


0B2A 


8911 


A 




LD 


R2,$TMP 


3001 


0B2B 






f 


OUTPUT 


CHAR PTR 



7 INPUT DEVICE 0=CP , 1=KB , 2=PT 



;OUTPUT INPUT BUFFER IF NOT YET OUT 



; PAGE REMAINING LINES 



;OUTPUT PAGE STRING 

; OUTPUT NEW LINE AND MESSAGE 
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IMPASM 



3002 


0B2B 


•8E09 


A 




LD 


P3 , ELIM+1 (R2) 


3003 


0B2C 


EC39 


B 




SKG 


R3 , HEX37 


3004 


0B2D 


2101 


A 




J MP 


. +2 


3005 


0B2E 


2108 


A 




JMP 


$200 


3006 


0B2F 


2CE7 


I 




JSR 


OlB 


3007 


0B30 


4BFF 


A 




AISZ 


R3 , -1 


3008 


0B31 


21FD 


A 




JMP 


. -2 


3009 


0B32 


4C40 


A 




LI 


R0, @ /256 


3010 


0B33 


2CE5 


I 




JSR 


OICH 


3011 


0B34 


808E 


B 




LD 


R0 , LISTMD 


3012 


0B35 


1501 


A 




BOC 


NZ , . +2 


3013 


0B36 


299D 


A 




JSR 


NEWLIN 


3014 


0B37 


7904 


A 


$200: 


ISZ 


$TMP 


3015 


0B38 


21E1 


A 




JMP 


$100 


3016 


0B39 


8055 


B 


$104: 


LD 


R0 ,ERRBAS 


3017 


0B3A 


A08B 


B 




ST 


R0 , ERRPT 


3018 


0B3B 


0200 


A 




RTS 




3019 


0B3C 












3020 


0B3C 


0B3D 


A 


STMP: 


. = .+1 




3021 


0B3D 


0B3E 


A 


ERRMSG: 


.WORD 


.+1 


3022 


0B3E 


4552 


A 




.ASCII 


'ERROR ' 




0B3F 


524F 


A 










0B40 


5220 


A 








3023 


0B41 


0000 


A 




.WORD 


0 


3024 


0B42 


0B43 


A 


MSGTAB: 


.WORD 


.+1 


3025 


0B43 


4D49 


A 




.ASCII 


'missing ar' 




0B44 


5353 


A 










0B45 


494E 


A 










0B46 


4720 


A 










0B47 


4152 


A 








3026 


0B4P 


C72E 


A 




.WORD 


'G. '+S 


3027 


0B49 


5641 


A 




.ASCII 


'VALUE 




0B4A 


4C55 


A 










0B4B 


4520 


A 










0B4C 


2020 


A 










0B4D 


2020 


A 








3028 


0B4E 


A020 


A 




.WORD 


0A020 


3029 


0B4F 


4144 


A 




.ASCII 


'ADDRESS 




0B50 


445? 


A 










0B51 


4553 


A 










0B52 


5320 


A 










0B53 


2020 


A 








3030 


0B54 


A020 


A 




.WORD 


0A020 


3031 


0B55 


5553 


A 




.ASCII 


'USAGE 




0B56 


4147 


A 










0B57 


4520 


A 










0B58 


2020 


A 










0B59 


2020 


A 








3032 


0B5A 


A020 


A 




.WORD 


0A020 


3033 


0B5B 


5359 


A 




.ASCII 


'SYNTAX 




0B5C 


4E54 


A 










0B5D 


4158 


A 










0B5E 


2020 


A 










0B5F 


2020 


A 








3034 


0B60 


A020 


A 




. WORD 


0A020 


3035 


0B61 


4558 


A 




.ASCII 


'EXCESS ARG ' 




0B62 


4345 


A 










0B63 


5353 


A 










BB64 


2041 


A 










0B65 


5247 


A 








3036 


0B66 


AE20 


A 




.WORD 


'. '+S 


3037 


0B67 


5442 


A 




.ASCII 


'TBL OVERFL ' 




0B68 


4C20 


A 
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IMPASM 





0B69 


4F56 


A 






0B6A 


4552 


A 






0B6B 


464C 


A 




3038 


0B6C 


CF57 


A 




3039 


0B6D 


554E 


A 






0B6E 


4445 


A 






vooh 


A C A Q 


A 






0B70 


4E45 


A 






0B71 


4420 


A 




3040 


0B72 


A020 


A 




3041 


0B73 


4455 


A 






0B74 


502E 


A 






0B75 


2044 


A 






0B76 


4546 


A 






0B77 


2E20 


A 




3042 


0B78 


A020 


A 




3043 


0B79 


4558 


A 






0B7A 


5444 


A 






0B7B 


2E20 


A 






0B7C 


494E 


A 






0B7D 


5354 


A 




3044 


0B7E 


AE20 


A 




3045 


0B7F 








3046 


0B7F 








3047 


0B7F 








3048 


0B7F 


806A 


B 


OIBUF: 


3049 


0B80 


1101 


A 




3050 


0B81 


0200 


A 




3051 


0B82 


805D 


B 


$1: 


3052 


0B83 


1301 


A 




3053 


0B84 


2120 


A 




3054 


0B85 


8089 


B 




3055 


0B86 


131E 


A 




3056 


0B87 








3057 


0B87 


8012 


B 


$8: 


3058 


0B88 


A11F 


A 




3059 


0B89 


2CE7 


I 




3060 


0B8A 


8D1D 


A 


$5: 


3061 


0B8B 


ED1D 


A 










A 




3063 


0B8D 


2117 


A 




3064 


0B8E 








3065 


0B8E 


8300 


A 


$3: 


3066 


0B8F 


F034 


B 




3067 


0B90 


2107 


A 




3068 


0B91 


F047 


B 


$7: 


3069 


0B92 


2112 


A 




3070 


0B93 


F092 


B 




3071 


0B94 


2110 


A 




3072 


0B95 


2CE5 


I 




3073 


0B96 


7911 


A 




3074 


0B97 


21F2 


A 




3075 


0B98 


4B01 


A 


$4: 


3076 


0B99 


ED0F 


A 




3077 


0B9A 


2101 


A 




3078 


0B9B 


2109 


A 




3079 


0B9C 






• 


3080 


0B9C 


8300 


A 


$6: 


3081 


0B9D 


F034 


B 




3082 


0B9E 


21F9 


A 




3083 


0B9F 


F092 


B 




3084 


0BA0 


2104 


A 





.WORD 'OW'+S 
.ASCII 'UNDEFINED ' 



.WORD 0A020 
.ASCII 'DUP. DEF. ' 



.WORD 0A020 
.ASCII 'EXTD. INST ' 



.WORD '.'+S 

.PAGE 'OUTPUT INPUT BUFFER ' 
. LOCAL 

JSR OIBUF 

LD R0 , MOFLAG 

BOC Z,$l 
RTS 

LD R0,PASS 

BOC ODD,. +2 

JMP $2 

LD R0,INDEV ; INPUT DEVICE 0=CR , 1*KB , 2=PT 

BOC ODD r $2 

NOT KB INPUT AND IS PASS2 

LD R0 , INBUFB 

ST R0,$IPTR 

JSR OIB 

LD R3,SIPTR 

SKG R3 , $IBEND 

JMP $3 

JMP $2 

LD R0,0(R3) 

SKNE R0, BLANK 

JMP $4 

SKNE R0,CR 

JMP $2 

SKNE R0,NOCOM 

JMP $2 

JSR OICH 

ISZ $IPTR 

JMP $5 

AISZ R3,l 

SKG R3 , SIBEND 

JMP $6 

JMP $2 

LD R0,0(R3) 

SKNE R0, BLANK 

JMP $4 

SKNE R0,NOCOM 

JMP $2 



; FINISHED 



;NO COMMENT TEST ( ' ; ' IF NO COMMENTS) 



; FINISHED 



;NO COMMENT TEST (';' IF HO COMMENTS) 



51 



IMPASM 



3085 


0BA1 


F047 


B 






SKNE 


R0 ,CR 


3086 


0BA2 


2102 


A 






JMP 


$2 




0BA 3 


9104 


A 






LD 


R0,@$IPTR 


3088 


0BA4 


21EC 


A 






JMP 


$7 


3089 


0BA5 






1 




FINISHED OUTPUT OF INPUT BUFFER 


3090 


0BA5 






$2: 






3091 


0BA5 


4C0D 


A 






LI 


R0, 0D 


3092 


0BA6 


A06A 


B 






ST 


R0 , MOFLAG ;SET MOFLAG NZ=SOURCE ALREADY 


3093 


0BA7 


0200 


A 






RTS 




3094 


0BA8 


0BA9 


A 


$IPTR: 


. = .+1 




3095 


0BA9 


0154 


A 


$IBEND: 


.WORD 


INBUF+52 


3096 


0BAA 










. PAGE 


'INPUT ROUTINES' 


3097 


0BAA 










. LOCAL 




3098 


0BAA 






READ: 






3099 


0BAA 


8012 


B 






LD 


R0 , INBUFB 


3100 


0BAB 


A05E 


B 






ST 


R0,INPTR ; INPUT CHAR PTR 


3101 


0BAC 


A05F 


B 






ST 


R0 , LCPTR 


3102 


0BAD 


805D 


B 






LD 


R0,PASS 


3103 


0BAE 


1303 


A 






BOC 


ODD,$PRM 


3104 


0BAF 






; PASS= 


I 




3105 


0BAF 


8089 


B 


$61: 


LD 


R0 , INDEV 


3106 


0BB0 


1301 


A 






BOC 


ODD,$PRM 


3107 


0BB1 


2106 


A 






JMP 


$NOPRT 


3108 


0BB2 














3109 


0BB2 










EITHER 


KB INPUT OR 2ND PASS OR BOTH 


3110 


0BB2 










BUT NOT 


(DSKTMP AND KB AND PASS . NE . 0) 


3111 


0BB2 














3112 


0BB2 


788D 


B 


$PRM: 


ISZ 


LCNT2 


3113 


0BB3 


2103 


A 






JMP 


$50 


3114 


0BB4 


8031 


B 






LD 


R0,X6666 


3115 


0BB5 


A08D 


6 






ST 


R0 r LCNT2 


3116 


0BB6 


788C 


B 






ISZ 


LCNT1 


3117 


0BB7 


2D1A 


A 


$50: 


JSR 


@$PROMPT 


3118 


0BB8 














3119 


0BB8 










FINISHED PRINTING LINE NUM AND PROMPT, NOW READ INPUT 


3120 


0BB8 














3121 


0BB8 






$NOPRT: 






3122 


0BB8 








TTY INPUT 


3123 


0BB8 


291A 


A 


$10: 


JSR 


RDTTY 


3124 


0BB9 


2114 


A 






JMP 


$10A 


3125 


0BBA 










COMPUTE 


SOURCE CHECKSUM 


3126 


0BBA 


805D 


B 


$10B: 


LD 


R0,PASS 


3127 


0BBB 


1504 


A 






BOC 


NZ f .+5 


3128 


0BBC 


8020 


B 






LD 


R0 , DSKTMP 


3129 


0BBD 


5000 


A 






CAI 


R0 f 0 


3130 


0BBE 


1201 


A 






BOC 


P, .+2 


3131 


0BBF 


2C16 


B 






JSR 


@WDSKTM 


3132 


0BC0 


9012 


B 






LD 


R0 , @INBUFB 


3133 


0BC1 


F092 


B 






SKNE 


R0,NOCOM 


3134 


0BC2 


21F5 


A 






JMP 


$NOPRT 


3135 


0BC3 


4C0D 


A 






LI 


R0 f 0D 


3136 


0BC4 


94AA 


I 






LD 


Rl f SOUCK 


3137 


0BC5 


8C12 


B 






LD 


R3 , INBUFB 


3138 


0BC6 


F300 


A 


$11C: 


SKNE 


R0 f 0 (F3) 


3139 


0BC7 


0200 


A 






RTS 




3140 


0BC8 


C700 


A 






ADD 


Rl r 0(R3) 


3141 


0BC9 


B4AA 


I 






ST 


Rl, SOUCK 


3142 


0BCA 


4B01 


A 






AISZ 


R3, 1 


3143 


0BCB 


FD5C 


A 






SKNE 


R3, $IBL 


3144 


0BCC 


0200 


A 






RTS 




3145 


0BCD 


21F8 


A 






J MP 


$11C 


3146 


0BCE 








f 






3147 


0BCE 
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IMPASM 



3148 


0BCE 


8089 


B 


$10A: 


LD 


R0,INDEV 


3149 


0BCF 


1301 


A 




BOC 


ODD, .+2 


3150 


0BD0 


21E7 


A 




JMP 


$10 


3151 


0BD1 






t 


INPUT 


DEVICE IS KB 


3152 


0BD1 


21E5 


A 




JMP 


$50 


3153 


0BD2 


0C3E 


A 


$ PROMPT 


: . WORD 


PROMPT 


3154 


0BD3 






; 






3155 


0BD3 






; 


READ 


TELETYPE 


3156 


0BD3 






; 






3157 


0BD3 


4EB8 


A 


RDTTY : 


LI 


R2,-72 


3158 


0BD4 


8C12 


B 




LD 


R3 , INBUFB 


3159 


0BD5 


AC5E 


B 




ST 


R3,INPTR 


3160 


0BD6 


8089 


B 


$12: 


LD 


R0 , INDEV 


3161 


0BD7 


1302 


A 




BOC 


0DD,$12B 


3162 


0BD8 


2C0F 


B 


$GC: 


JSR 


@GETC 


3163 


0BD9 


2104 


A 




JMP 


$12A 


3164 


0BDA 


805D 


B 


$12B: 


LD 


R0,PASS 


3165 


0BDB 


D040 


B 




SUB 


R0,K2 


3166 


0BDC 


11FB 


A 




BOC 


Z,$GC 


3167 


0BDD 


2C14 


B 




JSR 


@ECHOGC 


3168 


0BDE 


603A 


B 


$12A: 


AND 


R0 / HEX7F 


3169 


0BDF 


11F6 


A 




BOC 


Z, $12 


3170 


0BE0 


F047 


B 




SKNE 


R0,CR 


3171 


0BE1 


210F 


A 




JMP 


$11B 


3172 


0BE2 


F134 


A 




SKNE 


R0 , $LF 


3173 


0BE3 


21F2 


A 




JMP 


$12 


3174 


0BE4 


F03A 


B 




SKNE 


R0,HEX7F 


3175 


0BE5 


21F0 


A 




JMP 


$12 


3176 


0BE6 


F12E 


A 




SKNE 


R0,HEX5F 


3177 


0BE7 


212A 


A 




JMP 


$BKSP 


3178 


0BE8 


F12D 


A 




SKNE 


R0, HEX7D 


3179 


0BE9 


0200 


A 




RTS 




3180 


0BEA 


F02B 


B 




SKNE 


R0,K9 


3181 


0BEB 


210E 


A 




JMP 


$TAB 


3182 


0BEC 


A330 


A 




ST 


R0 f 0(R3) 


3183 


0BED 


4B01 


A 




AISZ 


R3,l 


3184 


0BEE 


4A01 


A 




AISZ 


R2 r l 


3185 


0BEF 


-l 1 r-> f 


A 




JMP 


$12 


3186 


0BF0 


0201 


A 




RTS 


1 


3187 


0BF1 


A300 


A 


$11B: 


ST 


R0 r 0(R3) 


3188 


0BF2 


8089 


B 




LD 


R0 , INDEV 


j jl o y 


lotJr j 


c n c n 


D 
D 




AND 


R0 , PASS 


3190 


0BF4 


1301 


A 




BOC 


ODD, .+2 


3191 


0BF5 


0201 


A 




RTS 


1 


3192 


0BF6 








INPUT 


IS KB AND TH] 


3193 


0BF6 


4C0D 


A 




LI 


R0,0D 


3194 


0BF7 


2CE5 


I 




JSR 


01CH 


3195 


0BF8 


2CCF 


I 




JSR 


06B 


3196 


0BF9 


0201 


A 




RTS 


1 


3197 


0BFA 












3198 


0BFA 


E914 


A 


$TAB: 


SKG 


R2,KM41 


3199 


0BFB 


2101 


A 




JMP 


.+2 


3200 


0BFC 


21D9 


A 




JMP 


$12 


3201 


0BFD 


4D28 


A 




LI 


Rl,40 


3202 


0BFE 


E911 


A 




SKG 


R2,KM57 


3203 


0BFF 


4D38 


A 




LI 


Rl,56 


3204 


0C00 


E910 


A 




SKG 


R2,KM65 


3205 


0C01 


4040 


A 




LI 


Rl,64 


3206 


0C02 


3900 


A 




RADD 


R2,R1 


3207 


0C03 


8034 


B 


$TAB1: 


LD 


R0, BLANK 


3208 


0C04 


A300 


A 




ST 


R0,0(R3) 


3209 


0C05 


8089 


B 




LD 


R0, INDEV 



; INPUT DEVICE 0=CR , 1=KB , 2=PT 



; INPUT CHAR PTR 



; RUBOUT 

?BACKSPACF ARROW 
; ALT KEY 



INPUT DEVICE 0=CR,1=KB,2=PT 



; IGNORE IF > COL. 32 
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3210 


0C06 


D040 


B 






SUB 


R0,K2 


3211 


0C07 


1102 


A 






BOC 


Z, .+3 


3212 


0C08 


8034 


B 






LD 


R0 , BLANK 


3213 


0C09 


2C10 


B 






JSR 


@PUTC 


3214 


0C0A 


4B01 


A 






AISZ 


R3, 1 


3215 


0C0B 


4A01 


A 






AISZ 


R2,l 


3216 


0C0C 


4901 


A 






AISZ 


Rl,l 


3217 


0C0D 


21F5 


A 






JMP 


$TAB1 


3218 


0C0E 


21C7 


A 






JMP 


S12 


3219 


0C0F 


FFD7 


A 


KM41: 


.WORD 


-41 


3220 


0C10 


FFC7 


A 


KM57: 


.WORD 


-57 


3221 


0C11 


FFBF 


A 


KM65: 


.WORD 


-65 


3222 


0C12 












3223 


0C12 


4BFF 


A 


$BKSP: 


AISZ 


R3,-l 


3224 


0C13 


4AFF 


A 






AISZ 


R2,-l 


3225 


0C14 


21C1 


A 






JMP 


$12 


3226 


0C15 


005F 


A 


HEX5F: 


.WORD 


05F 


3227 


0C16 


007D 


A 


HEX7D: 


.WORD 


07D 


3228 


0C17 


000A 


A 


$LF: 


.WORD 


0A 


3229 


0C18 


0C19 


A 


LCNT2A: 


.=.+1 




3230 


0C19 














3231 


0C19 










GET NEXT VALID CHAR 


3232 


0C19 














3233 


0C19 












JSR GNVC 


3234 


0C19 












NONE 


3235 


0C19 












CHAR. I 


3236 


0C19 














3237 


0C19 


4D01 


A 


GNVC: 


LI 


Rl, 1 


3238 


0C1A 


8C5E 


B 


$1: 


LD 


R3, INPTR 


3239 


0C1B 


FD0C 


A 






SKNE 


R3,$IBL 


3240 


0C1C 


0200 


A 






RTS 




3241 


0C1D 


8300 


A 






LD 


R0,0(R3) 


3242 


0C1E 


F047 


B 






SKNE 


R0 , CR 


3243 


0C1F 


0200 


A 






RTS 




3244 


0C20 


F049 


B 






SKNE 


R0,SEMI 


3245 


0C21 


2109 


A 






JMP 


$2 


3246 


0C22 


F034 


B 






SKNE 


R0, BLANK 


3247 


0C23 


210A 


A 






JMP 


$3 


3248 


0C24 






$RETC: 






3249 


0C24 


785E 


B 






ISZ 


INPTR 


3250 


0C25 


0201 


A 






RTS 


1 


3251 


0C26 














3252 


0C26 










GET NEXT CHAP - 


3253 


0C26 














3254 


0C26 












JSR GNC 


3255 


0C26 












NONE 


3256 


0C26 












CHAR IN 


3257 


0C26 














3258 


0C26 


4D00 


A 


GNC: 


LI 


R1,0 


3259 


0C27 


21F2 


A 






JMP 


$1 


3260 


0C28 














3261 


0C28 


0168 


A 


$IBL: 


. WORD 


INBUF+72 


3262 


0C29 












3263 


0C29 


4D02 


A 


GNCVC: 


LI 


Rl, 2 


3264 


0C2A 


21EF 


A 






JMP 


$1 


3265 


0C2B 










SEMICOLAN 


3266 


0C2B 


7427 


B 


$2: 


SKAZ 


Rl,K3 


3267 


0C2C 


0200 


A 






RTS 




3268 


0C2D 


21F6 


A 






JMP 


$RETC 


3269 


0C2E 










BLANK 




3270 


0C2E 


785E 


B 


$3: 


ISZ 


INPTR 


3271 


0C2F 


F423 


B 






SKNE 


Rl,ZERO 


3272 


0C30 


0201 


A 






RTS 


1 



; INPUT CHAR PTR 
;INBUF LAST ADR + 1 
; STAT. END 
; LOAD NEXT CHAP 
;CHAR. RET. CHAR. 

;SEMICOLAN 



; INPUT CHAR PTR 



GNC 0 , GNVC 1 , GNCVC 2 



;SEMI IS TERMINATOR 
; INPUT CHAR PTR 



GNVC , GNCVC 
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3273 


0C31 


F426 


B 




SKNE 


R1,K1 






3274 


0C32 


21E7 


A 




JMP 


$1 


;SKIP BLANK 


GNVC 


3275 


0C33 


7C5E 


B 




DSZ 


INPTR 


; INPUT CHAR PTR 


; BLANK 


3276 


0C34 


0200 


A 




RTS 


0 




3277 


0C35 






• 










3278 


0C35 








PROMPT 


SUBROUTINE 






3279 


0C35 






• 










3280 


0C35 


808E 


B 


PRMPT2: 


LD 


R0 , LISTMD 






3281 


0C36 


2101 


A 




JMP 


.+2 






3282 


0C37 


808F 


B 


PRMPTl: 


LD 


R0 , ERRLST 






3283 


0C38 


1101 


A 




BOC 


Z f .+2 






3284 


0C39 


0200 


A 




RTS 








3285 


0C3A 


805D 


B 




LD 


R0,PASS 






3286 


0C3B 


F026 


B 




SKNE 


R0,K1 






3287 


0C3C 


2101 


A 




JMP 


.+2 






3288 


0C3D 


0200 


A 




RTS 








3289 


0C3E 


4200 


A 


PROMPT: 


PUSH 


R2 






3290 


0C3F 


4100 


A 




PUSH 


Rl 






3291 


0C40 


2CA8 


I 




JSR 


NEWLIN 






3292 


0C41 


7C71 


B 




DSZ 


PGRL 






3293 


0C42 


2102 


A 




JMP 


.+3 








RTA 7 








T T 
LI 








3295 


0C44 


2CD9 


I 




JSR 


OPGSTR 


tOUTPUT PAGE STRING 


3296 


0C45 


808C 


B 




LD 


R0,LCNT1 






3297 


0C46 


4020 


A 




LI 


Rl,' 7256 






3298 


0C47 


F038 


B 




SKNE 


R0,CZERO 


? '07256 




3299 


0C48 


2103 


A 




JMP 


$51 




3300 


0C49 


4D30 


A 




LI 


Rl, '07256 






3301 


0C4A 


2CE5 


I 




JSR 


01CH 






3302 


0C4B 


2101 


A 




JMP 


$52 






3303 


0C4C 


2CE7 


T 


$51: 


JSR 


OIB 






3304 


0C4D 






* 


NOW OUTPUT LAST 4 CHAP 


OF LINE NUMBER 




3305 


0C4D 


888D 


B 


$52: 


LD 


R2,LCNT2 






3306 


0C4E 


A9C9 


A 




ST 


R2 , LCNT2A 






3307 


0C4F 


2CCA 


I 




JSR 


OSPDEC 


;OUTPUT SPECIAL 


DECIMAL 


3308 


0C50 


A88D 


B 




ST 


R2,LCNT2 




3309 


0C51 


2CE7 


I 




JSR 


OIB 






3310 


r% /-» cr n 


8089 


B 




LD 


R0 , INDEV 


; INPUT DEVICE 0 


=CR,1=KB 


3311 


0C53 


605D 


B 




AND 


R0 , PASS 




3312 


0C54 


1301 


A 




BOC 


ODD, .+2 






3313 


0C55 


2102 


A 




JMP 


$NK2 


:NOT KB INPUT AND PASS2 


3314 


0C56 


2CCF 


I 




JSR 


06B 






3315 


0C57 


2CCF 


I 




JSR 


06B 








do 
















3317 


0C58 


8089 


B 


$NK2: 


LD 


R0, INDEV 


? INPUT DEVICE 0 


=CP, 1=KB 


3318 


0C59 


1301 


A 




BOC 


ODD, .+2 




3319 


0C5A 


2102 


A 




JMP 


.+3 






3320 


0C5B 








KB INPUT -ISSUE PROMPT 






3321 


0C5B 


4C2A 


A 




LI 


R0, '*'/256 






3322 


0C5C 


2CE5 


I 




JSR 


01CH 






3323 


0C5D 


4500 


A 




PULL 


Rl 






3324 


0C5E 


4600 


A 




PULL 


R2 






3325 


0C5F 


0200 


A 




RTS 








3326 


0C60 








.PAGE 


'OBJECT MODULE 


ROUTINES ' 




3327 


0C60 








. LOCAL 








3328 


0C60 
















3329 


0C60 








INITIALIZE OBJECT RECORD 




3330 


0C60 
















3331 


0C60 


8179 


A 


INITOR: 


LD 


R0,OBJPT1 






3332 


0C61 


A177 


A 




ST 


R0,OBJPTR 






3333 


0C62 


810B 


A 




LD 


R0,X8004 






3334 


0C63 


A163 


A 




ST 


R0,OBJREC 
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3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 

3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 



0C64 
0C65 
0C66 
0C67 
0C68 
0C69 
0C6A 
0C6B 
0C6C 
0C6D 
0C6E 
0C6F 
0C6F 
0C6F 
0C6F 
0C6F 
0C70 
0C71 
0C72 
0C73 
0C74 
0C75 
0C76 
0C77 
0C78 
0C79 
0C7A 
0C7B 
0C7C 
0C7D 
0C7D 
0C7D 
0C7D 
0C7D 
0C7D 
0C7E 
0C7F 
0C80 
0C80 
0C81 
0C82 
0C83 
0C84 

0C85 
0C86 
0C87 
0C88 
0C89 
0C8A 
0C8A 
3C8A 
0C8A 
0C8A 
0C8A 
0C8B 
0C8C 
0C8D 
0C8E 
0C8F 
0C90 
0C91 
0C92 
0C93 



806B 
D026 
A162 
805C 
A161 
4C00 
A160 
4C03 
A15F 
0200 
8004 



B169 
E82C 
2101 
4E04 
F823 
4E01 
D826 
2913 
7961 
794E 
815F 
F160 
2101 
0200 



X8004: 



OOWORD: 



815B 
F15B 
21E0 

4E00 
8149 
1204 
2906 
8D04 



OOREC: 

A 
A 
A 

7 

A 

A $22: 

A 

A 

A 



2910 A 

21D9 A 

2902 A $21: 

21F8 A 

0CC7 A $OR: 



SHIFT: 



8541 
813F 
5C02 
5902 
6427 B 
3400 A 
A13A A 
853A A 
5D02 A 
3900 A 



LD 

SUB 

ST 

LD 

ST 

LI 

ST 

LI 

ST 

RTS 

.WORD 



R0,SECT 
R0,K1 

R0,OBJREC+2 
R0 , LOCCTR 
R0,OBJREC+3 
R0, 0 

R0,WORD5 
R0,3 

R0,WORD6 
08004 



ND RELOCATION WORD 



OUTPUT OBJECT WORD (WORD IN R0, REL IN R2) 



ST 


R0 f @OBJPTR 


SKG 


R2,K4 


JMP 


.+2 


LI 


R2, 4 


SKNE 


R2 , ZERO 


LI 


R2,l 


SUB 


R2,K1 


JSR 


SHIFT 


ISZ 


OBJPTR 


ISZ 


OBJREC 


LD 


R0 , OBJPTR 


SKNE 


R0,OBJPT2 


JMP 


OOREC 


RTS 




OUTPUT 


OBJECT RECORD 


IF ANY 


AND SET UP NEW RE< 


LD 


R0,OBJPTR 


SKNE 


R0,OBJPT1 


JMP 


INITOR 


NOT EMPTY ,SHIFT REL BITS 


LI 


R2,0 


LD 


R0,WORD5 


BOC 


P,$21 


JSR 


SHIFT 


LD 


R3, $OR 


JSR 


CKPNCH 


JMP 


INITOR 


JSR 


SHIFT 


JMP 


$22 


. WORD 


OBJREC 


SHIFT 


SHIFT WORD 5 , 




FILLING FROM 


LD 


Rl,WORD6 


LD 


R0,WORD5 


SHL 


R0, 2 


ROL 


Rl,2 


AND 


R1,K3 


RADD 


R1,R0 


ST 


R0,WORD5 


LD 


Rl,WORD6 


SHL 


Rl, 2 


RADD 


R2 f Rl 



; STORE REL BITS 



; RECORD EMPTY , INIT AND RETURN 



;CHECKSUM AND PUNCH 

;INIT NEW RECORD AND RETURN 
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3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 

3430 
3431 
3432 
3433 
3434 
3435 
3436 

3437 

n a -i a 
j -i j \j 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 

3,460 



0C94 
0C95 
0C96 
0C96 
0C96 
0C96 
0C96 
0C97 
0C98 
0C99 
0C9A 
0C9B 
0C9C 
0C9C 
0C9D 
0C9E 
0C9F 
0CA0 
0CA0 
0CA0 
0CA1 
0CA2 
0CA3 
0CA4 
0CA5 
0CA6 
0CA7 
0CA8 
0CA9 
0CAA 
0CAB 
0CAC 

0CAD 
0CAE 
0CAF 
0CAF 
0CB0 
0CB1 
0CB2 
0CB2 

nno i nnr>n 



A537 A 
0200 A 



AD2F A 
805D B 
1401 A 
0200 A 
801E B 
1204 A 

2922 A 
4C0 2 A 
A00C A 
2CE5 I 



8700 A 
643B B 
4C00 
C302 
4B01 
49FF 
21FC A 
8D1E A 
A301 
9111 
F300 
2103 
90AB 



C301 
B0AB 

8700 
643B 
C440 

8300 



0CB4 
0CB4 
0CB5 
0CB6 
0CB7 
0CB8 
0CB9 
0CBA 
0CBB 
0CBC 
0CBC 
0CBC 
0CBC 
0CBC 
0CBC 
0CBC 
0CBD 
0CBE 
0CBF 
0CC0 
0CC1 
0CC2 



4B01 
49FF 
21FB 
2CA8 
4C00 
A00C 
0200 
0402 



CKPNCH: 



2900 
2900 
2900 
2900 
2900 
4C01 
A00C 



$33: 



A $30: 

T 
J. 

$31: 

A 
A 
A 
I 

A ENDPCH: 

A 

A 

A $ENDBUF 



ST R1,W0RD6 
RTS 

CHECKSUM AND PUNCH RECORD POINTED TO BY R3 



ST R3,$TMP 

LD R0,PASS 

BOC BlEQl,.+2 

RTS ;NOT PASS 2 

LD R0,DSKOBJ 

BOC P,$33 

PUNCH LEADER AND STX CHAR 

JSR LEAD8 

LI R0,2 

ST R0 , PNCHMD ; 



NO LEADER IF DISK OBJ 



SET PUNCH MODE 



JSR OICH 
COMPUTE CHECKSUM 



LD 

AND 

LI 

ADD 

AISZ 

AISZ 

JMP 

LD 

ST 

LD 

SKNE 

JMP 

LD 



R1,0(R3) 

Rl,HEX3F 

R0,0 

R0, 2{R3) 

R3, 1 

Rl,-1 

.-3 

R3,$TMP 
R0,1 (R3) 
R0 , @$ENDBUF 
R0 f 0(R3) 
.+4 

R0,OBJCK 



; STORE CHECKSUM 



ADD R0,1(R3) 
ST R0,OBJCK 
FINISHED CHECKSUM 
LD Rl,0(R3) 
AND R1,HEX3F 
ADD Ri,K2 
TOP OF PUNCH LOOP 
LD R0,0(R3) 



NOW PUNCH 



AISZ 
AISZ 
JMP 
JSR 
LI 
ST 
RTS 
: . WORD 



R3,l 
Rl,-1 

$30 

NEWLIN 
R0,0 

R0 , PNCHMD 
ENDBUF 



PUNCH 2 CHARACTERS 



PUNCH LEADER 



LEAD: 



LEADS : 



JSR 

JSR 

JSR 

JSR 

JSR 

LI 

ST 



.+1 
.+1 
.+1 
.+1 
.+1 
R0 f 1 

R0 , PNCHMD 
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3461 


0CC3 


4C00 


A 




LI 


R0 , 0 


346 2 


0CC4 


2CC9 


I 




JSR 


02CH 


3463 


0CC5 


21F2 


A 




J MP 


ENDPCH 


3464 


0CC6 












3465 


0CC6 


0CC7 


A 


$TMP: 


. = .+1 




3466 


0CC7 












3467 


0CC7 






* 


OBJECT 


MODULE DATA RECORD 


3468 


0CC7 












3469 


0CC7 


0CC9 


A 


OBJREC: 


. = .+2 




3470 


0CC9 


0CCA 


A 


W0RD3: 


. = .+1 




3471 


0CCA 


0CCB 


A 


WORD 4 : 


. = . +1 




3472 


0CCB 


0CCC 


A 


WORD 5: 


. = .+1 




34 73 


0CCC 


0CD9 


A 


WORD 6: 


. =.+13 




3474 


0CD9 






i 






34 75 


0CD9 


0CCD 


A 


OBJPTR: 


. WORD 


WORD6+1 


3476 


0CDA 


0CCD 


A 


0BJPT1 : 


.WORD 


WORD6+1 


3477 


0CDB 


0CD9 


A 


OBJPT2: 


.WORD 


OBJREC+18 


3478 


0CDC 








.PAGE 


'MISC SUBROUTINES' 


3479 


0CDC 








.LOCAL 






0CDC 












3481 


0CDC 








IFBYP 


GO TO DIREND IF IN IFSKIP MODE 


3482 


0CDC 












3483 


0CDC 


8070 


B 


IFBYP: 


LD 


R0 , IFMODE 


A O A 

J484 


0CDD 


1507 


A 




BOC 


NZ, $2 


3485 


0CDE 


24C8 


I 




JMP 


NEXTST 


3486 


0CDF 












3487 


0CDF 








JSR IFSKIP 


3488 


0CDF 








SUSPEND ASSEMBLY RET 


3489 


0CDF 






> 


ASSEMBLE RETURN 


*5 A ft (X 

3490 


0CDF 


8070 


B 


IFSKIP: 


LD 


R0 / IFMODE 


3491 


0CE0 


1501 


A 




BOC 


NZ,$1 


3492 


0CE1 


0200 


A 




RTS 


0 ?SUSPEND 


3493 


0CE2 


0201 


A 


$1: 


RTS 


1 ; ASSEMBLE 


3494 


0CE3 












3495 


0CE3 






* 






3496 


0CE3 








SKIP IF 


PASS 1 


3497 


0CE3 






f 






3498 


0CE3 


805D 


B 


P2P1: 


LD 


R0 f PASS ;PASS1=0 PASS2=NZ 


3499 


0CE4 


11FD 


A 




BOC 


Z,$l 


*3 C fk f% 

3500 


0CE5 


0200 


A 


$2 : 


PTS 


3501 


0CE6 






* 






3502 


0CE6 








SKIP IF 


PASS 2 


3503 


0CE6 












3504 


0CE6 


805D 


B 


P1P2: 


LD 


R0,PASS 


3505 


0CE7 


15FA 


A 




BOC 


NZ,$1 


3506 


0CE8 


0200 


A 




RTS 




3507 


0CE9 






* 






3508 


0CE9 






* 


OUTPUT 


SPECIAL DECIMAL DIGIT 


3509 


0CE9 












3510 


0CE9 






OSPDEC: 






3511 


0CE9 


4FFC 


A 




LI 


R3,-4 


3512 


0CEA 


5A04 


A 




POL 


R2, 4 


3513 


0CEB 


4C0F 


A 




LI 


R0, 0F 


3514 


0CEC 


3883 


A 




RAND 


R2 f R0 


JDID 




r a / C 


Q 

D 




SKNE 


R0, K6 


3516 


0CEE 


2106 


A 




JMP 


$60 ;ZERO PEPPESENTED 


3517 


0CEF 


1502 


A 




BOC 


NZ,$61 


3518 


0CF0 


C828 


B 




ADD 


R2,K6 


3519 


0CF1 


8028 


B 




LD 


R0,K6 


3520 


0CF2 


C03C 


B 


$61: 


ADD 


R0,HEX2A 


3521 


0CF3 


4D30 


A 




LI 


Rl, '0'/256 


3522 


0CF4 


2101 


A 




JMP 


.+2 


3523 


0CF5 


3481 


A 


$60: 


RCPY 


Rl, R0 
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3524 


0CF6 


2CE5 


I 


3525 


0CF7 


4B01 


A 


3526 


0CF8 


21F1 


A 


3527 


0CF9 


0200 


A 


3528 


0CFA 






3529 


0CFA 






3530 


0CFA 






3531 


0CFA 






3532 


0CFA 






3533 


0CFA 






3534 


0CFA 






3535 


0CFA 






3536 


0CFA 


A117 


A 


3537 


0CFB 


A517 


A 


3538 


0CFC 


A917 


A 


3539 


0CFD 


AD17 


A 


3540 


0CFE 


2C9C 


I 


3541 


0CFF 


2103 


A 


3542 


0D00 


F04F 


B 


3543 


0D01 


2106 


A 


3544 


0D02 


7C5E 


B 


3545 


0D03 


810E 


A 


3546 


0D04 


850E 


A 


3547 


0D05 


890E 


A 


3548 


0D06 


8D0E 


A 


3549 


0D07 


0200 


A 


3550 


0D08 






3551 


0D08 


2C9C 


I 


3552 


0D09 


2102 


A 


3553 


0D0A 


7C5E 


B 


3554 


0O0B 


2101 


A 


■J t: c c 






A 


3556 


0D0D 


8104 


A 


3557 


0D0E 


8504 


A 


3558 


0D0F 


8904 


A 


3559 


0D10 


8D04 


A 


3560 


0D11 


0201 


A 


3561 


n r\ 1 1 
to u ± z. 


0D16 


A 


3562 


0D16 


0979 


A 


3563 


0D17 


0000 


A 


3564 


0D18 






3565 


0D18 






3566 


0D18 






3567 


0D18 






3568 


0D18 






3569 


0D18 






3570 


0D18 






3571 


0D18 


2915 


A 


3572 


0D19 


210F 


A 


3573 


0D1A 


8D20 


A 


3574 


0D1B 


8300 


A 


3575 


0D1C 


1104 


A 


3576 


0D1D 


F07D 


B 


3577 


0D1E 


2103 


A 


3578 


0D1F 


4B03 


A 


3579 


0D20 


21FA 


A 


3580 


0D21 


0200 


A 


3581 


0D22 






3582 


0D22 


8301 


A 


3583 


0D23 


B302 


A 


3584 


0D24 


2C9C 


I 


3585 


0D25 


2103 


A 



JSR 
AISZ 
J MP 
RTS 

. LOCAL 



GET COMMA 



OICH 
R3,l 

OSPDEC+1 



JSR GCOMMA 

NO COMMA OR END RETURN 
YES COMMA RETURN 



GCOMMA: 



$1: 



$MERROR: 
DSKERR: 



ST 


R0, $T0 


ST 


Rl, $T0+1 


ST 


R2 f $T0+2 


ST 


R3,$T0+3 


JSR 


GNVC 


JMP 


.+4 


SKNE 


R0, COMMA 


JMP 


$1 


DSZ 


INPTR 


LD 


R0, $T0 


LD 


R1,$T0+1 


LD 


R2, $T0+2 


LD 


R3,$T0+3 


RTS 


0 


YES-COMMA 


JSR 


GNVC 


JMP 


.+3 


DSZ 


INPTR 


JMP 


.+2 


JSR 


@$MERROR 


LD 


R0,$T0 


LD 


Rl, $T0+1 


LD 


R2 f ST0+2 


LD 


R3, $T0+3 


RTS 


1 


. = .+4 




. WORD 


MEFROR 


HALT 




. ENDIF 




.PAGE 


'PROCESS 


.LOCAL 




PROCESS 


CONTROL . 



;NO MORE 

; INPUT CHAR PTR 

;NOT A COMMA 



PRCTRL: 



$3: 



$1: 



JSR 

JMP 

LD 

LD 

BOC 

SKNE 

JMP 

AISZ 

JMP 

RTS 

FOUND 

LD 

ST 

JSR 

JMP 



$GNAM 
$4 

R3 , $CTAB 
R0,0(R3) 
Z,$l 
R0 , NAM0 
$2 

R3, 3 
$3 



R0,1(R3) 

R0,@2(R3) 

GNVC 

$4 



FINISHED SEARCH AND NOT FOUND 
1ST 2 CHARACTERS OF NAME 



LOOP 

ILLEGAL NAME 
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3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 



3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 



0D26 

0D27 

0D28 

0D29 

0D2A 

0D2B 

0D2C 

0D2D 

0D2E 

0D2E 

0D2E 

0D2E 

0D2F 

0D30 

0D31 

0D32 

0D33 

0D34 

0D35 

0D36 

0D37 

0D38 

0D39 

0D3A 

0D3B 

0D3B 

0D3B 

0D3B 

0D3C 

0D3D 

0D3E 

0D3F 
0D40 
0D41 
0D42 
0D43 
0D44 
0D45 
0D46 
0D47 
0D48 
0D49 
0D4A 
0D4B 
0D4C 
0D4D 
0D4E 
0D4F 
0D50 
0D51 
0D52 
0D53 
0D54 



F04F 
21F0 
0200 
808F 
1501 
A091 
0201 
027F 



2C9C 
0200 
5C08 
A07D 
2C9C 
4C20 
F04F 
2103 
C07D 
A07D 
0201 
7C5E 
21F8 



0D3C 
4B42 
0001 
0089 



B 
A 
A 

B $4: 
A 
B 
A 

A K639: 



$GNAM: 

I 
A 
A 
B 
I 

A $10: 

B 

A 

B 

B 

A 

B $11: 
A 



A $CTAB : 

A 

A 

B 



5054 A 
0002 A 

0089 B 
4F4D A 
0001 A 

0090 B 
5820 A 
0001 A 
0069 B 
4E4C A 
0000 A 

0091 B 
4E43 A 
003B A 

0092 B 
454C A 
0000 A 
008F B 
4E4D A 
0000 A 

0093 B 
0000 A 



3623 0D55 

3624 0D55 



ERROR: 



3625 0D55 

3626 0D55 A92D A 

3627 0D56 4000 A 

3628 0D57 805E B 

3629 0D58 A05F B 

3630 0D59 7C5F B $3: 

3631 0D5A 905F B 



SKNE 

JMP 

RTS 

LD 

BOC 

ST 

RTS 

.WORD 



JSR 

RTS 

SHL 

ST 

JSR 

LI 

SKNE 

JMP 

ADD 

ST 

RTS 

DSZ 

JMP 



P0, COMMA 
PRCTRL 

R0 , ERRLST 
NZ, .+2 
R0,NOLIST 
1 

639 



GNVC 

R0,8 
R0 , NAM0 
GNVC 

F0,' '/256 
R0, COMMA 
$11 

R0 ,NAM0 
R0 , NAM0 
1 

INPTR 
$10 



;1ST 2 CHARACTERS OF NAME 



ylST 2 CHARACTERS OF NAME 
; 1ST 2 CHARACTERS OF NAME 

; INPUT CHAR PTR 



CONTROL STATEMENT TABLE 

.WORD .+1 

.WORD 'KB',1,INDEV 



.WORD 'PT',2,INDEV 



,WORD 'OM',l,OBJMOD 



.WORD 'X ',l,XINOK 



.WORD 'NL ' , 0 f NOLIST 



.WORD 'NC', '/256,NOCOM 



.WORD 'EL ',0, ERRLST 



.WORD 'NM ',0, NOMAP 



.WORD 0 

.PAGE 'ERROR SUBROUTINE 
. LOCAL 



ST 

PUSH 

LD 

ST 

DSZ 

LD 



R2 , $TR2 
R0 

R0 , INPTR 
R0,LCPTR 
LCPTR 
R0,@LCPTR 
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3632 


0D5B 


F034 


B 




SKNE 


R0, BLANK 


3633 


0D5C 


21FC 


A 




JMP 


$3 


3634 


0D5D 


785F 


B 




ISZ 


LCPTR 


3635 


0D5E 


4400 


A 




PULL 


R0 


3636 


0D5F 


4000 


A 




PUSH 


R0 


3637 


0D60 


888B 


B 




LD 


R2,ERRPT 


3638 


0D61 


F90E 


A 




SKNE 


R2 , $ERRMX 


3639 


0D62 


210A 


A 




JMP 


$1 


3640 


0D63 


A200 


A 




ST 


R0,0(R2) 


3641 


0D64 


805F 


B 




LD 


R0, LCPTR 


3642 


0D65 


D012 


B 




SUB 


R0 , INBUFB 


3643 


0D66 


F208 


A 




SKNE 


R0 ,ELIM (R2) 


3644 


0D67 


2105 


A 




JMP 


$1 


3645 


0D68 


A209 


A 




ST 


R0,ELIM+1(R2) 


3646 


0D69 


808B 


B 




LD 


R0 ,ERRPT 


3647 


0D6A 


788B 


B 




ISZ 


ERRPT 


3648 


0D6B 


F055 


B 




SKNE 


R0,ERRBAS 


3649 


0D6C 


2D17 


A 




JSR 


@$PRMPT1 


3650 


0D6D 






$1: 






3651 


0D6D 


4400 


A 


S2: 


PULL 


R0 


3652 


0D6E 


8914 


A 




LD 


R2,$TR2 


3653 


0D6F 


0200 


A 




RTS 




3654 


0D70 












3655 


0D70 


0D79 


A 


$ERRMX: 


.WORD 


ERBUF+ELIM 


3656 


0D71 


0D79 


A 


ERBUF: 


.=.+ELIM 


3657 


0D79 


FFFF 


A 




.WORD 


-1 


3658 


0D7A 


0D82 


A 




.=.+ELIM 


3659 


0D82 


2A2A 


A 


$E1: 


.WORD 


' * * ' 


3660 


0D83 


0D84 


A 


$TR2: 


. = .+1 




3661 


0D84 


0C37 


A 


$PRMPT1 


: . WORD 


PRMPT1 


3662 


0D85 








. PAGE 


'SPECIAL DEBUGGING DIRECTIVES' 


3663 


0D85 








.PAGE 


'DIRECTIVE / INSTRUCTION TABLE' 


3664 


0D85 






; 






3665 


0D85 






; 


DIRECTIVE / INSTRUCTION TABLE 


3666 


0D85 






; 






3667 


0D85 






DITBLB: 






3668 


0D85 


0000 


A 




.WORD 


0,WORD, '.W'+S, 'OR' f 'D ' 




0D86 


04E5 


A 










0D87 


AE57 


A 










n net n 

vuoo 




A 










0D89 


4420 


A 








3669 


0D8A 


0000 


A 




.WORD 


0 ,EXTD, ' . E '+S , 'XT', 'D' 




0D8B 


04B9 


A 










0D8C 


AE45 


A 










0D8D 


5854 


A 










0D8E 


4420 


A 








3670 


0D8F 


0000 


A 




.WORD 


0,LIST, '.L'+S f 'IS', 'T' 




0D90 


0527 


A 










0D91 


AE4C 


A 










0D92 


4953 


A 










0D93 


5420 


A 








3671 


0D94 


0000 


A 




.WORD 


0,ELSE, '.E'+S, 'LS', 'E ' 




0D95 


048E 


A 










0D96 


AE45 


A 










0D97 


4C53 


A 










0D98 


4520 


A 








3672 


0D99 


0000 


A 




.WORD 


0,PAGE f '.P'+S, 'AG', 'E' 




0D9A 


04FC 


A 










0D9B 


AE50 


A 










0D9C 


4147 


A 










0D9D 


4520 


A 








3673 


0D9E 


0000 


A 




.WORD 


0,IF, '.I', 'F' 
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0D9F 


0474 


A 




0DA0 


2E49 


A 




0DA1 


4620 


A 


3674 


0DA2 


0000 


A 




0DA3 


0379 


A 




0DA4 


2E45 


A 




0DA5 


4E44 


A 


3675 


0DA6 


0000 


A 




0DA7 


053D 


A 




0DA8 


AE54 


A 




0DA9 


4954 


A 




0DAA 


4C45 


A 


3676 


0DAB 


0000 


A 




0DAC 


04A6 


A 




0DAD 


AE41 


A 




0DAE 


5345 


A 




0DAF 


4354 


A 


3677 


0DB0 


0000 


A 




0DB1 


04B5 


A 




0DB2 


AE42 


A 




0DB3 


5345 


A 




0DB4 


4354 


A 


3678 


0DB5 


0000 


A 




0DB6 


04B7 


A 




0DB7 


AE54 


A 




0DB8 


5345 


A 




0DB9 


4354 


A 


3679 


0DBA 


0000 


A 




0DBB 


0513 


A 




0DBC 


AE53 


A 




0DBD 


5041 


A 




0OBE 


4345 


A 


3680 


0DBF 


0000 


A 




0DC0 


04C8 


A 




0DC1 


AE47 


A 




0DC2 


4C4F 


A 




0DC3 


424C 


A 


3681 


0DC4 


0000 


A 




0DC5 


04DB 


A 




0DC6 


AE4C 


A 




0DC7 


4F43 


A 




0DC8 


414C 


A 


3682 


0DC9 


0000 


A 




0DCA 


04EE 


A 




0DCB 


AE41 


A 




0DCC 


5343 


A 




0DCD 


4949 


A 


3683 


0DCE 


0000 


A 




0DCF 


049B 


A 




0DD0 


AE45 


A 




0DD1 


4E44 


A 




0DD2 


4946 


A 


3684 


0DD3 


0000 


A 




0DD4 


0539 


A 




0DD5 


2E41 


A 




0DD6 


534D 


A 


3685 


0DD7 






3686 


0DD7 






3687 


0DD7 






3688 


0DD7 


8000 


A 


3689 


0DD8 


08A7 


A 




0DD9 


4C44 


A 




0DDA 


2020 


A 



.WORD 0 , END, ' . E ' , *ND ' 



.WORD 0, TITLE, '.T'+S, 'IT', 'LE 



.WORD 0,ASECT, '.A'+S, 'SE ' , 'CT 



,WORD 0,BSECT, '.B'+S, 'SE ', 'CT 



. WORD 0,TSECT, '.T'+S, 'SE ' , 'CT 



.WORD 0, SPACE, '.S '+S, 'PA ', 'CE 



.WORD 0,GLOBL, '.G'+S, 'LO', 'BL 



.WORD 0, LOCAL, '.L'+S, 'OC ', 'AL 



.WORD 0, ASCII, '.A'+S, 'SC', 'II 



-WORD 0,ENDIF, '.E'+S, 'ND ' , 'IF 



.WORD 0 , ASMDIR, ' . A ' , 'SM ' 



INSTRUCTIONS 

LD 0,0 

. WORD IC1,'LD',' ' 
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\OUUD 




a 

n 


cm 

D J. 


0 0 


'ST',' 


3691 


0DDC 


08A7 


A 


.WORD 


IC1, 




0DDD 


5354 


A 










0DDE 


2020 


A 








3692 


0DDF 


C000 


A 


ADD 


0,0 




3693 


0DE0 


08BB 


A 


. WORD 


IC2, 


'AD','D 




0DE1 


4144 


A 










0DE2 


4420 


A 








3694 


0DE3 


D000 


A 


SUB 


0,0 




3695 


0DE4 


08BB 


A 


. WORD 


IC2, 


'SU','B ' 




0DE5 


5355 


A 










0DE6 


4220 


A 








3696 


0DE7 


E000 


A 


SKG 


0,0 




3697 


0DE8 


08BB 


A 


. WORD 


IC2, 


'SK','G ' 




0DE9 


534B 


A 










0DEA 


4720 


A 








3698 


0DEB 


F000 


A 


SKNE 


0,0 




3699 


0DEC 


08BB 


A 


.WORD 


IC2, 


'SK', 'NE' 




0DED 


534B 


A 










0DEE 


4E45 


A 








3700 


0DEF 


6000 


A 


AND 


0,0 




3701 


0DF0 


08C6 


A 


. WORD 


IC3, 


'AN ' ,'d 




0DF1 


414E 


A 










0DF2 


4420 


A 








3702 


0DF3 


6800 


A 


OR 


0,0 




3703 


0DF4 


08C6 


A 


. WORD 


IC3, 


'OR',' ' 




0DF5 


4F52 


A 










0DF6 


2020 


A 








3704 


0DF7 


7000 


A 


SKAZ 


0,0 




3705 


0DF8 


08C6 


A 


. WORD 


IC3, 


'SK ' , 'AZ ' 




0DF9 


534B 


A 










0DFA 


415A 


A 








3706 


0DFB 


7800 


A 


ISZ 


0 




3707 


0DFC 


08C2 


A 


.WORD 


IC4, 


'IS','Z ' 




0DFD 


4953 


A 










0DFE 


5A20 


A 








3708 


0DFF 


7C00 


A 


DSZ 


0 




3709 


0E00 


08C2 


A 


.WORD 


IC4, 


'DS','Z ' 




0E01 


4453 


A 










0E02 


5A20 


A 








3710 


0E03 


3081 


A 


NOP 






3711 


0E04 


08CA 


A 


• WORD 


IC5, 


'NO', 'P ' 




0E05 


4E4F 


A 










0E06 


5020 


A 








3712 


0E07 


0080 


A 


PUSHF 






3713 


0E0S 


08CA 


A 


.WORD 


IC5, 


08000+ 'PU ', 'SH ', 'F 




0E09 


D055 


A 

n 










0E0A 


5348 


A 










0E0B 


4620 


A 








3714 


0E0C 


0280 


A 


PULLF 






3715 


0E0D 


08CA 


A 


. WORD 


IC5, 


08000+'PU ', 'LL ' , 'F 




0E0E 


D055 


A 










0E0F 


4C4C 


A 










0E10 


4620 


A 








3716 


0E11 


0000 


A 


HALT 






3717 


0E12 


08CA 


A 


.WORD 


IC5, 


'HA', 'LT' 




0E13 


4841 


A 










0E14 


4C54 


A 








3718 


0E15 


0510 


A 


.WORD 


0510 


; I SCAN 


3719 


0E16 


08CC 


A 


.WORD 


IC5A 


,08000+'lS ', 'CA 'N 




0E17 


C953 


A 










0E18 


4341 


A 
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0E19 


4E20 


A 










3720 


0E1A 


4000 


A 


PUSH 


0 






3721 


0E1B 


08CF 


A 


.WORD 


IC6, 


'PU' 


, 'SH ' 




0E1C 


5055 


A 












0E1D 


5348 


A 










3722 


0E1E 


4400 


A 


PULL 


0 






3723 


0E1F 


08CF 


A 


.WORD 


IC6, 


'PU' 


, 'LL' 




0E20 


5055 


A 












0E21 


4C4C 


A 










3724 


0E22 


5400 


A 


.WORD 


05400 




3725 


0E23 


08CF 


A 


.WORD 


IC6 , 


08000+ XC, 




0E24 


D843 


A 












0E25 


4852 


A 












0E26 


5320 


A 










3726 


0E27 


4800 


A 


AISZ 


0,0 


'AI ' 


, 'SZ ' 


3727 


0E28 


08D4 


A 


.WORD 


IC7, 




0E29 


4149 


A 












0E2A 


535A 


A 










3728 


0E2B 


4C00 


A 


LI 


0,0 


'LI ' 




3729 


0E2C 


08D4 


A 


.WORD 


IC7, 


t 




0E2D 


4C49 


A 












0E2E 


2020 


A 










3730 


0E2F 


5000 


A 


CAI 


0,0 






3731 


0E30 


08D4 


A 


.WORD 


IC7 , 


'CA' 


,'I ' 




0E31 


4341 


A 












0E32 


4920 


A 










3732 


0E33 


5800 


A 


ROL 


0,0 






3733 


0E34 


08D4 


A 


.WORD 


IC7, 


'RO' 


, 'L ' 




0E35 


524F 


A 












0E36 


4C20 


A 










3734 


0E37 


5C00 


A 


SHL 


0,0 






3735 


0E38 


08D4 


A 


.WORD 


IC7, 


'SH' 


, 'L ' 




0E39 


5348 


A 












0E3A 


4C20 


A 










3736 


0E3B 


5800 


A 


ROR 


0,0 






3737 


0E3C 


08DF 


A 


.WORD 


IC7A 


, 'RO 


\'R ' 




0E3D 


524F 


A 












0E3E 


5220 


A 










3738 


0E3F 


5C00 


A 


SHR 


0,0 






3739 


0E40 


08DF 


A 


.WORD 


IC7A 


, 'SH 


','R ' 




0E41 


5348 


A 












0E42 


5220 


A 










3740 


0E43 


3000 


A 


RADD 


0,0 






3741 


0E44 


08EC 


A 


.WORD 


IC8, 


'ra ' 


, 'DD' 




0E45 


5241 


A 












0E46 


4444 


A 










3742 


0E47 


3080 


A 


RXCH 


0,0 






3743 


0E48 


08EC 


A 


.WORD 


IC8, 


'RX' 


, 'CH' 




0E49 


5258 


A 












0E4A 


4348 


A 










3744 


0E4B 


3081 


A 


PCPY 


0,0 






3745 


0E4C 


08EC 


A 


.WORD 


ICS, 


'PC' 


, 'PY' 




0E4D 


5243 


A 












0E4E 


5059 


A 










3746 


0E4F 


3082 


A 


RXOR 


0,0 






3747 


0E50 


08EC 


A 


.WORD 


IC8, 


'RX' 


,'OR' 




0E51 


5258 


A 












0E52 


4F52 


A 










3748 


0E53 


3083 


A 


RAND 


0,0 






3749 


0E54 


08EC 


A 


.WORD 


IC8, 


'RA' 


,'ND' 




0E55 


5241 


A 












0E56 


4E44 


A 










3750 


0E57 


2000 


A 


JMP 


0 
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3751 


0E58 


08FB 


A 


.WORD 


IC9, JM , P 






0E59 


4A4D 


A 










0E5A 


5020 


A 








3752 


0E5B 


2800 


A 


JSR 


0 




3753 


0E5C 


08FB 


A 


. WORD 


IC9 , 'JS ' , 'R 






0E5D 


4A53 


A 










0E5E 


5220 


A 








37 54 


0E5F 


0800 


A 


SFLG 


0 




3755 


0E60 


0908 


A 


.WORD 


IC10, 'SF ' , 'LG ' 






0E61 


5346 


A 










0E62 


4C47 


A 








3756 


0E63 


0880 


A 


PFLG 


0 




3757 


0E64 


0908 


A 


.WORD 


IC10, 'PF ' , 'LG ' 






0E65 


5046 


A 










0E66 


4C47 


A 








3758 


0E67 


1000 


A 


BOC 


0, .+1 




3759 


0E68 


0913 


A 


. WORD 


IC11, 'BO', 'C 






0E69 


424F 


A 










0E6A 


4320 


A 








3760 


0E6B 


0200 


A 


RTS 


0 




3761 


0E6C 


0925 


A 


.WORD 


IC12, 'RT', 'S 






0E6D 


5254 


A 










0E6E 


5320 


A 








3762 


0E6F 


0400 


A 


RIN 


0 




3763 


0E70 


0925 


A 


.WORD 


IC12, 'RI ' , 'N ' 






0E71 


5249 


A 










0E72 


4E20 


A 








3764 


0E73 


0600 


A 


ROUT 


0 




3765 


0E74 


0925 


A 


. WORD 


IC12, 'RO', 'UT' 






0E75 


524F 


A 










0E76 


5554 


A 








3766 


0E77 


8100 


A 


RTI 


0 




3767 


0E78 


0925 


A 


• WORD 


IC12,'RT','I ' 






0E79 


5254 


A 










0E7A 


4920 


A 








3768 


0E7B 


0300 


A 


.WORD 


0300 


; JSRP 


3769 


0E7C 


0929 


A 


.WORD 


IC12A r 'JS ' , 'RP' 






0E7D 


4A53 


A 










0E7E 


5250 


A 








3770 


0E7F 


0520 


A 


.WORD 


0520 


; JINT 


3771 


0E80 


092F 


A 


.WORD 


IC13A, 'JI ' , 'NT ' 






0E81 


4A4 9 


A 










0E82 


4E54 


A 








3772 


0E83 


0700 


A 


.WORD 


0700 


;SETST 


3773 


0E84 


092F 


A 


.WORD 


IC13A, 08000+ 'SE 


', 'TS', 'T ' 




0E85 


D345 


A 










0E86 


5453 


A 










0E87 


5420 


A 








3774 


0E88 


0710 


A 


• WORD 


0710 


;CLRST 


3775 


0E89 


092F 


A 


.WORD 


IC13A, 08000+ 'CL 


', 'RS' f 'T' 




0E8A 


C34C 


A 










0E8B 


5253 


A 










0E8C 


5420 


A 








3776 


0E8D 


0720 


A 


.WORD 


0720 


; SETBIT 


3777 


0E8E 


092F 


A 


.WORD 


IC] 3A, 08000+ 'SE 


', 'TB', 'IT' 




0E8F 


D345 


A 










0E90 


5442 


A 










0E91 


4954 


A 








3778 


0E92 


0730 


A 


. WORD 


0730 


; CLRBIT 


3779 


0E93 


092F 


A 


.WORD 


IC13A,08000+'CL 


', 'RB\ 'IT' 




0E94 


C34C 


A 










0E95 


5242 


A 










0E96 


4954 


A 
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3780 


0E97 


0750 


A 


.WORD 


3781 


0E98 


092F 


A 


.WORD 




0E99 


D34B 


A 






0E9A 


4249 


A 






0E9B 


5420 


A 




3782 


0E9C 


0740 


A 


.WORD 


3783 


0E9D 


092F 


A 


.WORD 




0E9E 


D34B 


A 






0E9F 


5354 


A 






0EA0 


4620 


A 




3784 


0EA1 


0760 


A 


.WORD 


3785 


0EA2 


092F 


A 


.WORD 




0EA3 


C34D 


A 






0EA4 


5042 


A 






0EA5 


4954 


A 




3786 


0EA6 


0500 


A 


.WORD 


3787 


0EA7 


092F 


A 


.WORD 




0EA8 


4A4D 


A 






0EA9 


5050 


A 




3788 


0EAA 


0480 


A 


.WORD 


3789 


0EAB 


0935 


A 


.WORD 




0EAC 


4050 


A 






0EAD 


5920 


A 




3790 


0EAE 


0490 


A 


.WORD 


3791 


0EAF 


0935 


A 


.WORD 




0EB0 


4449 


A 






0EB1 


5620 


A 




3792 


0EB2 


04A0 


A 


. WORD 


3793 


0EB3 


0935 


A 


. WORD 




0EB4 


4441 


A 






0EB5 


4444 


A 




3794 


0EB6 


04B0 


A 


.WORD 


3795 


0EB7 


0935 


A 


.WORD 




0EB8 


4453 


A 






0EB9 


5542 


A 




3796 


0EBA 


04C0 


A 


.WORD 


3797 


0EBB 


0937 


A 


.WORD 




0EBC 


4C44 


A 






0EBD 


4220 


A 




3798 


0EBE 


04D0 


A 


.WORD 


3799 


0EBF 


0937 


A 


. WORD 




0EC0 


5354 


A 






0EC1 


4220 


A 




3800 


0EC2 


04C0 


A 


.WORD 


3801 


0EC3 


0937 


A 


.WORD 




0EC4 


4C4C 


A 






0EC5 


4220 


A 




3802 


0EC6 


04D0 


A 


.WORD 


3803 


0EC7 


0937 


A 


.WORD 




0EC8 


534C 


A 






0EC9 


4220 


A 




3804 


0ECA 


04C0 


A 


.WORD 


3805 


0ECB 


093A 


A 


. WORD 




0ECC 


4C52 


A 






0ECD 


4220 


A 




3806 


0ECE 


04D0 


A 


.WORD 


3807 


0ECF 


093A 


A 


.WORD 




0ED0 


5352 


A 






0ED1 


4220 


A 




3808 


0ED2 


0380 


A 


.WORD 


3809 


0ED3 


0941 


A 


.WORD 




0ED4 


4A53 


A 






0ED5 


5249 


A 





;SKBIT 



ySKSTF 



yCMPBIT 



yJMPP 



;MPY 



;DIV 



; DADD 



;DSUB 



; LDB 



;STB 



; LLB 



;SLB 



; LRB 



;SRB 



j JSRI 
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3810 0ED6 DITBL2: 

3811 0ED6 ; 

3812 0ED6 

3813 0ED6 BADSTB : 

3814 0ED6 

3815 0ED6 STBAS: 

3816 0ED6 02B0 A 

0098 0427 A 

0099 0ADB A 
009A 0BD3 A 
009B 0CFA A 
009C 0C19 A 
009D 0651 A 
009E 0199 A 
009F 01D9 A 
00A0 01E1 A 
00A1 01DA A 
00A2 01DE A 



END IF IMP 16 ASSEMBLER 



ENDIF 



.END 



START 



00A3 01DF A 
00A4 01E0 A 
00A5 0AC3 A 
00A6 0438 A 
00A7 0D18 A 
00A8 0AD4 A 
00A9 0170 A 
00AA 0406 A 
00AB 0407 A 
00AC 0C60 A 
00AD 0D55 A 
00AE 0A56 A 
00AF 0AFB A 
00B0 0B05 A 
00B1 0A7C A 
00B2 0BAA A 
00B3 06E7 A 
00B4 0571 A 
00B5 058D A 
00B6 0CDC A 
00B7 05AC A 
00B8 06F5 A 
00B9 07A0 A 
00BA 0C7D A 
00BB 05C2 A 
00BC 04BD A 
00BD 0A84 A 
00BE 044A A 
00BF 07F5 A 
00C0 031B A 
00C1 07F7 A 
00C2 0454 A 
00C3 0CBC A 
00C4 01DD A 
00C5 01DC A 
00C6 0C96 A 
00C7 07F3 A 
00C8 034C A 
00C9 0AD5 A 
00CA 0CE9 A 
00CB 046C A 
00CC 0ADC A 
00CD 0A96 A 
00CE 02E5 A 
00CF 0AA6 A 



IMPASM 



00D0 


0A03 


A 


00D1 


0A20 


A 


00D2 


0A8E 


A 


00D3 


0347 


A 


00D4 


06D4 


A 


00D5 


0342 


A 


00D6 


034A 


A 


00D7 


07B7 


A 


00D8 


07E1 


A 


00D9 


0AE7 


A 


00DA 


0A23 


A 


00DB 


033F 


A 


00DC 


0359 


A 


00DD 


0CE3 


A 


00DE 


0340 


A 


00DF 


0743 


A 


00E0 


0CE6 


A 


00E1 


0C29 


A 


00E2 


07E4 


A 


00E3 


0343 


A 


00E4 


0C26 


A 


00E5 


0AAB 


A 


00E6 


0AA8 


A 


00E7 


0AAA 


A 


00E8 


0A2C 


A 


00E9 


0970 


A 


00EA 


0983 


A 


00EB 


0982 


A 


00EC 


0345 


A 


00ED 


0A2A 


A 


00EE 


0344 


A 


00EF 


0975 


A 


00F0 


0A28 


A 


00F1 


0979 


A 


00F2 


0A2E 


A 


00F3 


0A32 


A 


00F4 


0A30 


A 


00F5 


0A06 


A 


00F6 


0924 


A 


00F7 


0B7F 


A 



****** 0 ERRORS IN ASSEMBLY 



$1& 


$1' 




$K 




$D 


$1* 


$1 + 




$1, 




$1- 




$1. 




$1/ 




0482 A 


04A7 


A 


04CB 


A 


050E A 


0555 A 


05A6 


A 


05CF 


A 


0688 


A 


06EE 


A 


074D 


A 


$10( 


$10+ 




$10. 




$10/ 


$100- 


$1007 


$101 




$1027 


$1037 


$104 




04F9 A 


05A3 


A 


073D 


A 


078C A 


0685 A 


0B1A 


A 


07E0 


A 


0B07 


A 


0B10 


A 


09FE 


A 


$1047 


$109 




$10 = 




$10A9 


$10B9 


$11 




$11( 




$11, 




$11. 




$111 




0B39 A 


0BB8 


A 


0D33 


A 


0BCE A 


0BBA A 


07DE 


A 


04F6 


A 


061D 


A 


073E 


A 


07EF 


A 


$1113 


$113 




$11 = 




$11B9 


$11C9 


$12 




$12( 




$12, 




$12. 




$121 




0921 A 


08B3 


A 


0D39 


A 


0BF1 A 


0BC6 A 


087B 


A 


04F1 


A 


061E 


A 


0740 


A 


07ED 


A 


$123 


$129 




$12A9 


$12B9 


$13, 


$14 r 




$15 




$15, 




$16 




$18 




08B6 A 


0BD6 


A 


0BDE 


A 


0BDA A 


0608 A 


0605 


A 


0A45 


A 


05FA 


A 


0A63 


A 


0B82 


A 


$19 


$1; 




$1< 




$1 = 


$1> 


$1A( 




$1A, 




$2" 




$2( 




$2) 




0C1A A 


0CE2 


A 


0D08 


A 


0D21 A 


0D6D A 


04D1 


A 


05D9 


A 


02CB 


A 


04D7 


A 


0503 


A 


$2* 


$2+ 




$2- 




$ 2 . 


$2/ 


$20 




$20+ 




$20, 




$2007 


$21 




055D A 


05B8 


A 


068A 


A 


06F5 A 


076E A 


07A3 


A 


057A 


A 


062F 


A 


0B37 


A 


07BE 


A 
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C 9 1 7 

9 £. 1 J 

08BE 


A 


C 9 1 . 
9 <£ J. • 

0C87 


A 


c 9 9 
088F 


A 


$ 9 ? • 
0C81 


A 


$24 
09AA 


A 


CON 

0D6D 


A 


c 9» / 
0773 


A 


c 9a i 

9 Zrt J. 

07BC 


A 


< 9a 9 
0893 


A 


07AA 


A 


05BA 


A 


C "J — 

9 J~ 
068B 


A 


c ■} 

06F8 


A 


c 1 / 
0751 


A 


9 J v 

07AE 


A 


i> J i. 1 

0CB4 


A 


c "? 9 
9 J Z 

08A6 


A 


9 j J • 
0CA0 


A 


* 14 

9 J H 

09AE 


A 


9 «j -J 
0A4E 


A 


e T & o 
081F 


A 


CA 1 

04D9 


A 


C A \ 

050A 


A 


C 4 * 

9 t 

055E 


A 


9 i » 

0692 


A 


CAR 
9 H 3 

0A21 


A 


9 *Jo 
0B98 


A 


9^- 

0D29 


A 


9 t A • 

071B 


A 


« 4R 

pic, 

0717 


A 


$509 
0BB7 


A 


$51 
07C0 


A 


$51% 
03A3 


A 


$514 
0A0F 


A 


$519 
0C4C 


A 


$5A$ 
0376 


A 


$6( 
04E8 


A 


$6+ 
05BC 


A 


$6/ 
076A 


A 


$60; 
0CF5 


A 


$7+ 
057D 


A 


$7/ 
076C 


A 


$71 
07C4 


A 


$72 
08A1 


A 


$78 
0B91 


A 


$91 
07D7 


A 


$913 
0900 


A 


$923 
0903 


A 


$ABS14 
09A5 A 


$ABS4 
099A A 



$25 




$28 




$29 




$2 : 




$2 = 




0A3C 


A 


0BA5 


A 


0C2B 


A 


0CE5 


A 


0D22 


A 


$ 2B2 




$3" 




$3( 




$3) 




$3* 




0898 


A 


02DB 


A 


04D6 


A 


0505 


A 


0562 


A 






$30- 




$3002 


$30 : 




$31 

V J -L 




064F 


A 


067D 


A 


080F 


A 


0CB2 


A 


07CD 


A 


$36 




$38 




$39 




$3 = 




$3> 




0A71 


A 


0B8E 


A 


0C2E 


A 


0D1B 


A 


0D59 


A 


$4 . 




$4/ 
■? **/ 




$40 




$41 
9 •* j. 




$413 




0712 


A 


0755 


A 


07AF 


A 


07C9 


A 


08C3 


A 


S5 ( 




$5* 




$5+ 




$50% 




$504 




04E3 


A 


0567 


A 


05A4 


A 


03C4 


A 


0A0B 


A 


$52 




$524 




$529 




$55 




$58 




0828 


A 


0A17 


A 


0C4D 


A 


0A24 


A 


0B8A 


A 


$61 




$619 




$61; 




$62 




$68 




07D2 


A 


0BAF 


A 


0CF2 


A 


0841 


A 


0B9C 


A 


$8/ 




$803 




$81 




$88 




$9/ 




0784 


A 


08F8 


A 


07D9 


A 


0B87 


A 


0774 


A 


$ADR4 


$ADR04 


SAERR4 


$AND, 


$APEN/ 


0984 


A 


09 AD 


A 


09D0 


A 


062C 


A 


0758 


A 



$APPE/ $BKSP9 
0758 A 0C12 A 

$CK+ $COM, 
0586 A 0635 A 

$DOT- $DT. 
06C6 A 071F A 

$EQTT6 $ERET4 
0AF1 A 09C7 A 

$FINI% $FLAG2 
03FA A 0860 A 

$GNAM= $GP. 
0D2E A 0721 A 

$I0K14 $IOK24 
09F4 A 09EA A 

$ LONG 2 $ LOOP 2 
088D A 0809 A 

$MIN1- $MINU, 
0698 A 05FE A 

$N0% $NOEX& 
03E0 A 048B A 

$01X16 $01X26 
0A9A A 0AA2 A 



$BLNK* $BS0- 
0560 A 06D1 A 

$C0NV2 $CT2 
0849 A 085C A 

$E1> $EB% 
0D82 A 0401 A 

$ERR- $ERRM> 
06CE A 0D70 A 

$FLAG5 $F02 
0A55 A 085D A 

$GP1. $GR. 
0722 A 0730 A 

$IOK34 $I0K4 
09E6 A 09D6 A 

$L00W6 $LP4 
0A78 A 09BA A 

$MINU- $MPY , 
0697 A 0620 A 

$N0PR9 $N0T- 
0BB8 A 0695 A 

$01X36 $01X6 
0AA0 A 0A99 A 



$BSEC4 $BSPR- 
09FB A 0677 A 

$CTAB= $DEC- 
0D3B A 06A2 A 

$EERR, $EL% 
05F9 A 03D1 A 

$EX0 f $EXPN, 
0640 A 0636 A 

$GAN. SGC9 
0735 A 0BD8 A 

$GS1. $GS2. 
06E4 A 06D7 A 

$IOK44 $I0K54 
09EF A 09DF A 

$MAIN# $MAN16 
033A A 0AD0 A 

$MPY1, $NAME- 
0624 A 06B6 A 

$N0UN- $N0X3 
067E A 0968 A 

$0E% $0P, 
03E4 A 05F0 A 



SBYP1) $CB$ 
0523 A 033E A 

$DEF4 $DIV, 
0991 A 0626 A 

SEL0K& SEND1 
0494 A 07F2 A 

$EXPN5 $EXT4 
0A35 A 09FB A 

$GDEC" $GL. 
02DD A 072A A 

$HEX- $IBEN8 
06«D A 0BA9 A 

$IOK64 SIPTR8 
09F8 A 0BA8 A 

$MASK5 $MERR4 
0A54 A 09D3 A 

$NERR& SNEXT2 
0491 A 085A A 

$NP% $NXT, 
041D A 05D7 A 

$0R, $0R: 
0631 A 0C89 A 



$CBZ2 $CI4 
0850 A 0A1F A 

SDL. $D0T$ 
0720 A 0365 A 

SENDS: SE0PG6 
0CBB A 0AF0 A 

$FIN, $PIN1% 
063C A 03FA A 

SGLl. $GLBN2 
072B A 0859 A 

$IBL9 SIFLA4 
0C28 A 0A01 A 

$LAST2 $LF9 
07FA A 0C17 A 

$MERR< SMG2 
0D16 A 0861 A 

$NK29 SNLCL2 
0C58 A 0877 A 

$NXTA/ SNXTB/ 
079C A 079D A 

S0V& SPGBF) 
0488 A 0538 A 
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$PLUS, $PMRE , $PRM9 $PRMP> $PR0M9 
05F1 A 0612 A 0BB2 A 0D84 A 0BD2 A 

$PUT26 $PUT36 $QNXT/ $QUOT- $REL, 
0AB6 A 0AB4 A 079E A 069E A 0644 A 

$RET6 $RETC9 $RM2 $ROV/ $RSER/ 
0AC2 A 0C24 A 085E A 0788 A 074A A 

$STR12 $STRT2 $SYRE- $T0. $T0< 
07FD A 07F8 A 06C9 A 0728 A 0D12 A 

$TEST- $TMP" $TMP% $TMP ' $TMP7 
0658 A 02E2 A 03DF A 04C7 A 0B3C A 

$TTL% $UM- $UNOT- $UOP- $VAL3 
0400 A 0681 A 067C A 0684 A 096E A 



$PT2 $PTR* $PTR1* SPTRL* $PUT16 
085B A 056E A 056F A 0570 A 0AB0 A 

$REL3 $REL6 $RELT6 $REND/ $RETl- 
096F A 0A83 A 0A79 A 078E A 0678 A 

$RTB2 $SAME ' $SERC$ $SETB/ $SORF. 
085F A 04C4 A 036D A 0794 A 06E6 A 

$T1) $T1. $TAB19 $TAB9 $TEMP6 
0537 A 0729 A 0C03 A 0BFA A 0AA4 A 

$TMP: $TR2> $TRYI4 $TSEC4 $TTL# 
0CC6 A 0DP3 A 09CE A 09CB A 031A A 

$VERR4 $W0RD1 $WRD6 $X- $X203% 
09C5 A 07F1 A 0A82 A 06B1 A 0378 A 



$XARG$ $XERR f 
033D A 060F A 

ASECT ASMDIR 
04A6 A 0539 A 

BLANK BLANKS 
0034 B 0048 B 

CKPNCH CLOSEO 
0C96 A 001D B 

COR CPLUS 
0054 B 0050 B 

DITBLF DITBLL 
07B6 A 07B5 A 

EC ECHOGC 
0088 B 0014 B 

ENDP4 ENDPCH 
03FB A 0CB8 A 

ERRST EXP 
0342 A 05C2 A 

EXPP4 EXPP7 
0A30 A 0A32 A 

FORMT FORMTN 
0076 B 0079 B 

GITEM GLBUF 
0651 A 0863 A 

HEX20 HEX2A 
0034 B 003C B 

HEX5A HEX5F 
0033 B 0C15 A 

IC11 IC12 
0913 A 0925 A 



SXERR3 $XFLA4 
097D A 0A02 A 

ASSIGN B1E01 
058D A 0004 A 

BLDDIR BLDNAM 
06F5 A 06E7 A 

CLOSET CMINUS 
001C B 0051 B 

CR CZERO 
0047 B 0038 B 

DIVD DOLLAR 
000E B 004E B 

ELIM ELSE 
0008 A 048E A 

ENDST E?UAL 
034A A 004C B 

EXP4 EXP8 
0A26 A 0A28 A 

EXPPD EXPREL 
007B B 007C B 

GADR GADRI 
097F A 0980 A 

GLOBL GNC 
04C8 A 0C26 A 

HEX2F HEX30 
0035 B 0038 B 

HEX760 HEX7D 
02E3 A 0C16 A 

IC12A IC13 
0929 A 0931 A 



$XOK4 ABST 
09B4 A 0021 B 

BADSTB BASE 
0ED6 A 0060 B 

BMAX BSECT 
005A B 04B5 A 

CMPY CNAM0 
003C B 0080 B 

DBGVER DBWIN 
0000 A 0950 A 

DOT DOT AS N 
004A B 05AC A 

END ENDBUF 
0379 A 0402 A 

ERBUF ERRBAS 
0D71 A 0055 B 

EXPABS EXPFRM 
0A20 A 0A34 A 

EXPVAL EXTD 
007A B 04B9 A 

GADRIX GADRX 
0983 A 0982 A 

GNCVC GNSTRG 
0C29 A 07B7 A 

HEX37 HEX39 
0039 B 0036 B 

HEX7F HEXD0A 
003A B 0AA5 A 

IC13A IC14 
092F A 0935 A 



ACTR ADRERR 
0056 B 0977 A 

BASEA BASEB 
0063 B 0066 B 

CAND CAT 
0053 B 0032 B 

CNAM1 CNOT 
0081 B 0052 B 

DIREND DISER 
0347 A 07A0 A 

DSKERR DSKIN 
0D17 A 001F B 

ENDIF ENDP1 
049B A 0395 A 

ERRLST ERRMSG 
008F B 0B3D A 

EXPP EXPP1 
0A23 A 0A2A A 

FORMB FORMBN 
0075 B 0078 B 

GCOMMA GCSTRG 
0CFA A 07E1 A 

GNVC GSIZE 
0C19 A 02CE A 

HEX3F HEX40 
003B B 0032 B 

HSPR HSPRT 
0096 B 001A B 

IC15 IC16 
0937 A 093A A 



A MAX ASCII 
0059 B 04EE A 

BCTR BEGP34 
0057 B 03BA A 

CDIV CHARX 
0035 B 0044 B 

COLAN COMMA 
004B B 004F B 

DITBL2 DITBLB 
0ED6 A 0D85 A 

DSKOBJ DSKTMP 
001E B 0020 B 

ENDP2 ENDP3 
03B1 A 03E3 A 

ERROR ERRPT 
0D55 A 008B B 

EXPP2 EXPP3 
0A2C A 0A2E A 

FORMM FORMPT 
0077 B 0074 B 

GETC GFORM 
000F B 06D6 A 

GSTCON GSYM 
07E4 A 06D4 A 

HEX400 HEX46 
003D B 0037 B 

IC1 IC10 
08A7 A 0908 A 

IC16A IC17 
093D A 0941 A 
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I*!PASM 



IC2 


IC3 


IC4 




IC5 


IC5A 


0RBB A 


zj c* \j n 


08C2 


A 


CJ RCA A 


08CC A 


ICLASS 


IDSKIN 


IDSKTM 


IF 


IFBYP 


0073 B 


0094 B 


0095 


B 


04 74 A 


0cor a 


IFTAB 


IFTBL 


INABS 


INBUF 


TNBHFB 


018F A 


04A5 A 


0344 


A 


0120 A 


0012 B 


INOUT 


INPTR 


IREL 




ITREL 


ITVAL 


0345 A 


005E B 


0924 


A 


0087 B 


0086 B 


K2 


K255 


K256 




K3 


K4 


0040 B 


0024 B 


003F 


B 


0027 B 


002C B 


KM129 


KM41 


KM57 




KM65 


LABEL 


0A05 A 


0C0F A 


0C10 


A 


0C11 A 


0571 A 


LCPTR 


LEAD 


LEAD8 


LEZ 


LINIT 


005F B 


0CBC A 


0CBF 


A 


000B A 


0015 B 


LPAREN 


MANYNL 


MA PL IN 


MAXR1 


M ERROR 


0046 B 


0AC3 A 


086A 


A 


04BD A 


0979 A 


MSGNXT 


MSGOCK 


MSGP 




MSGSOV 


MSGTAB 


0438 A 


0465 A 


044A 


A 


044C A 


0B42 A 



NEWASM NEWLIN NEXT NEXTA NEXTB 
02E5 A 0AD4 A 0062 B 0065 B 0068 B 

NZ 012B OIB OICH 02B 

0005 A 0ABE A 0AAA A 0AAB A 0AA8 A 

OBJPT1 OBJPT2 OBJPTR OBJREC ODD 
0CDA A 0CDB A 0CD9 A 0CC7 A 0003 A 

OIBUF OLAST OMAP OHAPNR OHSG 
0B7F A 03E2 A 07F7 A 07FB A 0ADC A 

OSPDEC OUTWRD OVAL P P1P2 
0CE9 A 0A56 A 0A84 A 0002 A 0CE6 A 

PINIT PNCHMD PR2PTR PRCTRL PREPLB 
031B A 000C A 0AFA A 0D18 A 05BE A 

PTREND PTRTAB PUTC 0 ERROR QUOTE 
01DA A 0199 A 0010 B 0975 A 0045 B 

RDSKIN RDSKTM RDTTY READ RELTB 
0018 B 0019 B 0BD3 A 0BAA A 0A79 A 

SECT SEMI SHIFT SHLIN SIZE4 
006B B 0049 B 0C8A A 004D B 0001 A 

STBAS STPDEF STPT STREL STSER 
0ED6 A 0083 B 0085 B 0084 B 0743 A 

TMAX TOP TOPA TOPB TSECT 
005B B 0061 B 0064 B 0067 B 04B7 A 



IC6 IC7 IC7A ICS IC9 
08CF A 08D4 A 08DF A 08EC A 08FB A 

IFMODE IFPTR IFPTRA IFSKIP IFSTAT 
0070 B 006D B 006E B 0CDF A 006F B 



INBUFE INDEV INERR INERR1 INITOR 
0013 B 0089 B 0970 A 0971 A 0C60 A 

IVAL Kl Kll K15 K16 

0072 B 0026 B 0025 B 002D B 0041 B 

K6 K639 K7 K8 K9 

0028 B 0D2D A 002A B 0029 B 0028 B 

LABST LBLPT LCNT1 LCNT2 LCNT2A 
02E4 A 008A B 008C B 008D B 0C18 A 

LIST LISTMD LOCAL LOCCTR LOCREG 
0527 A 008E B 04DB A 005C B 006C B 

MESS MOFLAG MSGBEG MSGEP MSGNOE 
001B B 006A B 0427 A 0445 A 046C A 

MSGTO MULT NAM0 NAMl NAM 2 
0454 A 000D B 007D B 007E B 007F B 

NEXTLB NEXTST NOCOM NOLIST NOMAP 
0359 A 034C A 0092 B 0091 B 0093 B 

02CH 04B 06B OBJCK OBJMOD 
0AD5 A 0AA7 A 0AA6 A 0407 A 0090 B 

OEPM OGLOB OHEX OHEXIF OIBREP 
0408 A 07F3 A 0A96 A 0A8E A 0AFB A 

ONLMSG OOREC OOWORD OPGSTR OPTRS 
0ADB A 0C7D A 0C6F A 0AE7 A 0414 A 

P2P1 PAGE PASS PGRL PGSTRG 
0CE3 A 04FC A 005D B 0071 B 0170 A 

PRMPT1 PRMPT2 PROMPT PTABF PTABL 
0C37 A 0C35 A 0C3E A 0A03 A 0A04 A 

R0 PI R2 R3 RDCRD 

0000 A 0001 A 0002 A 0003 A 0011 B 

REPERR RESETP PPAREN S SCANST 
0B05 A 07F5 A 0043 B 8000 A 0808 A 

SIZE8 SOUCK SPACE SPADR START 
FFFF A 0406 A 0513 A 0A06 A 02B0 A 

STTOP STVAL TCTR TITLE TLAST 
0FFF A 0082 B 0058 B 053D A 03E1 A 

TTLBUF TYPMOD VERROR WDSKOB WDSKTM 
01DA A 0097 B 097B A 0017 B 0016 B 
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WORD WORD3 WOFD4 WORD5 WORD6 X1000 X2020 X2031 X6666 X8000 
04E5 A 0CC9 A 0CCA A 0CCB A 0CCC A 003E B 0858 A 03FF A 0031 B 0030 B 

X8004 XARGCK XERRl XERROP XF000 XFF00 XFFF0 XFFF7 XFFFB XINOK 
0C6E A 0AF2 A 0340 A 033F A 06D3 A 0042 B 002E B 002F B 079F A 0069 E 

Z ZERO 
0001 A 0023 B 

EB4E 8B8E 
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CRD16P 



REVISION-G 05/16/74 
CRD16P 00313C 7/12/74 



0000 
0000 
0000 
0000 
0000 
0000 
0000 



8 0000 

9 0000 

10 0000 

11 0000 

12 0000 

13 0000 

14 0000 

15 0000 

16 0000 

17 0000 

18 0000 

19 0000 

20 0000 

21 0000 

22 0000 

23 0000 

24 0000 

25 0000 

26 0000 

27 0000 

28 0000 

29 0000 

30 0000 

31 0000 

32 0000 

33 0000 

34 0000 

35 0000 

36 0000 

37 0000 
35 0000 

39 0000 

40 0000 

41 0000 

42 0000 

43 0000 

44 0000 

45 0000 

46 0000 

47 0000 

48 0000 

49 0000 

50 0000 

51 0000 

52 0000 

53 0000 

54 0000 

55 0000 

56 7F00 

57 7F00 

58 7F00 

59 7F00 



.TITLE CRD16P, '00313C 7/12/74' 

THIS IS AN ABSOLUTE LOADER FOR THE IMP-16P SYSTEM 

THIS PROGRAM READS RLM(S) FROM THE CARD READER AND 
LOADS THE DATA INTO MEMORY. THE CARDS MUST HAVE BEEN 
PUNCHED INTO CARD COLUMNS 1-72, AND CAN CONTAIN PUNCH 
CODES ONLY FOR THE CHARACTERS 0,1,...,9,A,B,...,F, OR 
BLANK. BLANKS WILL BE TREATED AS 0. 

RLM(S) MUST BE IN STANDARD RLM FORMAT. TITLE CARDS 
AND SYMBOL CARDS ARE IGNORED. DATA FROM DATA CARDS IS 
MOVED TO THE SPECIFIED LOAD LOCATIONS WITHOUT ANY 
RELOCATION PERFORMED. AT LEAST ONE END CARD MUST 
CONTAIN AN ENTRY POINT ADDRESS (SEE ERROR CODE 5, BELOW). 
THE ORDER OF THE INPUT CARDS IS UNIMPORTANT. 

A CHECKSUM TEST IS PERFORMED ON ALL DATA CARDS. (SEE 
ERROR CODE 3, BELOW.) 

THERE ARE NO RESTRICTIONS ON THE ADDRESSES THAT MAY BE 
LOADED, SINCE NO MAIN MEMORY IS USED BY THIS PROGRAM. 

THE DECK(S) TO BE LOADED MUST BE FOLLOWED BY A '!GO' CARD 
(EXCLAMATION-POINT IN COLUMN 1; 'G ' IN COLUMN 2). 
EXECUTION WILL BEGIN AT THE LAST NON-ZERO ENTRY POINT. 



ERROR MEANING 



ACTION 



I/O ERROR 

INV. CHARACTER 



CHECKSUM ERROR 



INV, ENTRY POINT 



REPLACE CARD IN READER AND PUSH STAR 

CORRECT CARD, REPLACE IN READER, AND 
PUSH START. THE INVALID HOLLERIT 
CODE IS IN AC1. (ONLY CODES 
0,...,F AND BLANK ARE ALLOWED.) 

CORRECT CARD, REPLACE IN READER, AND 
PUSH START. 

SET CORRECT ENTRY POINT INTO AC1 
AND PUSH START. 



ALL ERROR CODES ARE LOADED INTO AC0 BEFORE HALTING. 

****************************************************** 
THIS PROGRAM FITS INTO 2 8X256-BIT PROMS ON THE 
IMP-16P CARD READER/TELETYPE INTERFACE CARD: 



IMP 
NUMBER 



PROM 
NUMBER 



ROM 
NUMBER 



IMP-16F/004A 4600313C 4100313C 
IMP-16F/004B 4610313C 4110313C 
.PAGE 'ABSCR ROUTINE - IMP-16P' 



BOARD 
CO-ORDINATE 

4G 
6G 



7F00 A 



0000 A AC0 



.ASECT 
.=07F00 

DEFINITIONS 



; STARTING ADDRESS = 7F00 



1 



CRD16P 



60 7F00 0001 A AC1 

61 7F00 0002 A AC 2 

62 7F00 0003 A AC 3 

63 7F00 

64 7F00 0001 A ZRO 

65 7F00 0003 A BIT0 

66 7F00 0004 A BIT1 

67 7F00 0005 A NZRO 

68 7F00 000B A RLE0 

69 7F00 ; 

70 7F00 0010 A CRADR 

71 7F00 0001 A READ 

72 7F00 0002 A PICK 

73 7F00 0003 A RESET 



74 7F00 .PAGE 

75 7F00 4C00 A ABSCR: LI 

76 7F01 4000 A PUSH 

77 7F02 4F10 A FIRST: LI 

78 7F03 0603 A ROUT 

79 7F04 0602 A ROUT 

80 7F05 4E50 A LI 

81 7F06 2924 A JSR 

82 7F07 F521 A SKNE 

83 7F08 2107 A JMP 

84 7F09 150A A BOC 

85 7F0A 3481 A RCPY 

86 7F0B 5CFE A SHR 

87 7F0C 1401 A BOC 

88 7F0D 2103 A JMP 

89 7F0E 136A A BOC 

90 7F0F 216A A JMP 

91 7F10 

92 7F10 291A A COMMAND: JSR 

93 7F11 4C00 A SKIP: LI 

94 7F12 F517 A SKNE 

95 7F13 4C06 A LI 

96 7F14 

97 7F14 4000 A IGNORE: PUSH 

98 7F15 4100 A PUSH 

99 7F16 2914 A JSR 

100 7F17 4A00 A AISZ 

101 7F18 21FD A JMP 

102 7F19 4500 A PULL 

103 7F1A 4400 A PULL 

104 7F1B 11E6 A BOC 

105 7F1C F101 A SKNE 

106 7F1D 2102 A JMP 

107 7F1E 0006 A SIX: HALT 

108 7F1F 21E2 A JMP 

109 7F20 4400 A GO: PULL 

110 7F21 3281 A RCPY 

111 7F22 4F01 A LI 

112 7F23 1101 A BOC 

113 7F24 2200 A JMP 

114 7F25 4C05 A LI 

115 7F26 0000 A ZERO: HALT 

116 7F27 3481 A RCPY 

117 7F28 21F8 A JMP 

118 7F29 

119 7F29 4820 A EXCLAM: .WORD 

120 7F2A 8040 A G: .WORD 

121 7F2B . PAGE 

122 7F2B 



1 
2 
3 



I ; AC0 = 0 

3 ; AC0(0) = 1 

4 ; AC0(1) = 1 

5 ; AC0 ~= 0 

II ; AC0 <= 0 

2 *8 ; CARD READER ADDRESS 

1 ; READ DATA 

2 ; PICK COMMAND 

3 ; RESET PICK & INDEX MARK FLIP-FLOPS 

AC 0,0 • SET ENTRY POINT 
AC0 

AC 3, CRADR ; READ A NEW CARD 

RESET ; BE SURE INDEX MARK IS RESET 

PICK ; GET CARD 

AC 2 ,80 ; SET COLUMN COUNTER 

RDCOL ; GET DATA 

AC 1, EXCLAM ; CHECK FOR COMMAND CARD 
COMMAND 

NZRO, IGNORE ; IGNORE REST OF CARD IF ERROR 
AC1,AC0 

AC 0,2 ; CHECK RECORD TYPE 
BIT1, .+2 

SKIP ; IGNORE TITLE & SYMBOL RECORDS 

BIT0 ,GOEND ; PROCESS END RECORD 

GODATA ; PROCESS DATA RECORD 

RDCOL ; COMMAND: CHECK 2ND COLUMN 

AC 0,0 ? NO ERROR FOR COMMAND/TITLE/SYMBOL CARD 

AC1,G ; CHECK FOR '»G' (GO CARD) 

AC0,6 ; SET FLAG 6 TO SIGNIFY GO CARD 

AC0 ; SAVE CARD STATUS 
AC1 

RDCOL ; READ REST OF COLUMNS 
AC2,0 

•~2 ; LOOP UNTIL DONE 

AC1 ; DONE: RECOVER STATUS 

AC0 

ZRO, FIRST ; GO TO NEXT CARD IF NO FLAGS SET 
AC0,SIX 

GO ; GO COMMAND 

6 ; HALT IF ERROR: CODE IN AC0 
FIRST 

AC0 ; RECOVER ENTRY POINT 
AC0,AC2 

AC3,1 : SIGNAL INPUT DEVICE IS CARDREADER 

ZRO, . +2 ; CHECK FOR PROPER ENTRY POINT 

(AC2) ; GO! 

AC 0,5 : INVALID ENTRY POINT: ERROR 5 

AC1,AC0 
GO+1 

04820 ; EXCLAMATION POINT 
08040 
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123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 

i on 
j. j j 

140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 



7F2B 
7F2B 
7F2B 
7F2B 
7F2B 
7F2B 
7F2B 
7F2B 
7F2B 
7F2B 

7F2B 4300 



RDCOL - READ AND CONVERT A SINGLE COLUMN 
REGISTER USAGE: 



7F2C 4F10 
7F2D 0401 



2101 
21F9 
3181 
4C01 
4E01 
2102 
5CFC 
2905 
0603 
4700 
4AFF 
2100 
0200 



A 
A 
A 

7F2E 1401 A 
7F2F 21FD A 
7F30 1307 A 

"in T 1 n ii » 
/ £ O X 

7F32 
7F33 
7F34 
7F35 
7F36 
7F37 
7F38 
7F39 
7F3A 
7F3B 
7F3C 
7F3D 
7F3E 
7F3F 
7F3F 
7F3F 
7F3F 
7F3F 
7F3F 
7F3F 
7F3F 
7F3F 
7F40 
7F41 
7F42 
7F43 
7F44 
7F45 
7F46 
7F47 
7F48 
7F49 
7F4A 
7F4B 
7F4C 
7F4D 
7F4E 
7F4F 
7F50 
7F51 
7F52 
7F53 
7F54 
7F55 
7F56 
7F57 



RDCOL: 



$STRT: 



4D00 
1122 
F127 
2120 
F126 
4D01 
F125 
4D02 
F124 
4D03 
F123 
4D04 
F122 
4D05 
F121 
4D06 
F120 
4D07 
F11F 
4D08 
F11E 
4D09 
F11D 
4D0A 
F11C 



$COL: 
$DONE: 



CVT: 



AC0 


STATUS ON EXIT 


(0 


IS NORMAL) 


AC1 


DATA (BINARY IF 


NO ERROR; OTHERWISE UNCONVERTED) 


AC 2 


DECREMENTED COUNTER 


AC 3 


UNALTERED 






PUSH 


AC 3 






LI 


AC} TRArtR 






RIN 




r 


GET DATA 


BOC 


RTTl +0 


t 


LiUUP UN1IL READY 


JMP 


J?b 1KI 






RHP 


BIT0,$COL 


J 


TEST FOR INDEX MARK 




AC0 ,KC 


r 


TEST FOR HOPPER/MOTION CHECK 


JMr 


$MOTERR 




JMP 


$STRT 






RCPY 


AC0,AC1 




I/O ERROR STATUS IN AC1 


LI 


AC0 , 1 




ERROR CODE 1 


LI 


AC2,1 




SIGNAL END OF CARD IF I/O ERROR 


JMP 


$DONE 




SHR 


AC0,4 




STRIP STATUS BITS 


JSR 


CVT 




CONVERT TO BINARY 


ROUT 


RESET 




CLEAR FLIP-FLOPS 


PULL 


AC 3 




RESTORE AC 3 


AISZ 


AC2,-1 




DECREMENT THE COUNTER 


JMP 


.+1 






RTS 


0 


f 


RETURN 


.PAGE 









CVT - CONVERT HOLLERITH TO HEX 
ON ENTRY: AC0 HAS HOLLERITH 

ON EXIT: AC0 HAS STATUS (0 = NORMAL; 2 = INVALID CHARACTER) 
AC1 HAS DATA (BINARY; UNCONVERTED IF ERROR) 

; PRESET VALUE 
; CHECK FOR BLANK COLUMN 
; CONVERT HEX TO BINARY 



LI 


AC1.0 


BOC 


ZRO , BLANK 


SKNE 


AC0 f TBL 


JMP 


rt.antk- 


SKNE 


AC0,TBL+1 


LI 


AC1, 1 


SKNE 


AC0 f TBL+2 


LI 


ACl f 2 


SKNE 


AC0,TBL+3 


LI 


AC1,3 


SKNE 


AC0 f TBL+4 


LI 


AC1,4 


SKNE 


AC0 f TBL+5 


LI 


AC1,5 


SKNE 


AC0,TBL+6 


LI 


AC1 F 6 


SKNE 


AC0,TBL+7 


LI 


AC1, 7 


SKNE 


AC0,TBL+8 


LI 


AC1,8 


SKNE 


AC0,TBL+9 


LI 


AC1,9 


SKNE 


AC0,TBL+10 


LI 


ACl f 10 


SKNE 


AC0,TBL+11 
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186 


7F58 


4D0B 


A 






LI 






187 


7F59 


F11B 


A 






SKNE 


jf a TRT -1-19 
ALB , lBLTlZ 




188 


7F5A 


4D0C 


A 






LI 


ALL , Lz 




189 


7F5B 


F11A 


A 






SKNE 


TtPfl mn Till 

AL13 , lbLi+1 J 




190 


7F5C 


4D0D 


A 






T T 

Lil 


an l ^ 




191 


7F5D 


F119 


A 






SKNE 


A C" 01 TO r j.1 i 

ALB , lbLiTlft 




192 


7F5E 


4D0E 


A 






LI 


AL1 ,14 




193 


7F5F 


F118 


A 






SKNE 


Ar"0i tut 4.1 ^ 
ALW , lBLi + LD 




194 


7F60 


4D0F 


A 






LI 


AL If 13 




195 


7F61 


F5L4 


A 






ClfHI? 
oJMNEi 


an 7. pro 


WAS CONVERSION ACCOMPLISHED 7 


196 


Is 0 Z 


ZLY) Z 


A 

A 






TMP 

U n tr 


TNVCAR 


NO - INVALID CHARACTER 


19 7 


Is o 5 


4L V) Vi 


A 

A 


BLANK : 


T T 
J_i J. 


AC 0 • 0 


• GOOD CONVERSION: CLEAR STATUS 


198 


7F64 


0200 


A 






Klo 


0 




199 


7F6 5 




A 


INVCAR: 


KCr x 


AC0,AC1 


• PUT UNCONVERTED INVALID CHAR INTO 


200 


*7 ni C C 

7F66 


bDtJ4 


A 

A 






CUT 
on Li 


AC1, 4 


; HOLLERITH WILL BE BITS 4-15 


201 


7F6 7 


a r* a o 
4LW 2 


A 

A 






T T 

Li 1 


AC0 , 2 


• SET ERROR CODE 2 


202 


7F68 


0200 


A 






D rp c 

Kl b 


0 


• RETURN 


203 


7F69 
















204 


7F69 
















205 


7F69 
















206 


7F69 


0200 


A 


TBL: 


ma id r\ 
. WUKD 


0200,0100,0080,0040,0020 




7F6A 


0100 


A 














7F6B 


0080 


A 














7F6C 


0040 


A 














7F6D 


\0Y) Z\d 


A 












207 


7F6E 


0010 


A 






. WUKU 


0010, 0008, 0004, 0002, 0001 




7F6F 


0008 


A 














7F /0 




A 

A 














IF 11 


anal 


A 

A 














7F72 


0001 


A 












208 


7F73 


0900 


A 






.WORD 


0900,0880,0840,0820,0810,0808 




7F74 


0880 


A 














7F75 


0840 


A 














7F76 


0820 


A 














7F77 


0810 


A 














7F78 


0808 


A 












209 


7F79 














210 


7F79 


211A 


A 


GOEND: 


Tun 

JMP 


END ? THESE ARE FOR LONG JUMPS 


211 


7F7A 


212A 


A 


GODATA : 


tii r> 
J Mr 


DATA 




212 


7F7B 


2iy 8 


A 


LAST: 


JMP 


IGNORE 




213 


7F7C 


000C 


A 


HC: 


.WORD 


0C 




214 


7F7D 










.PAGE 






215 


7F7D 










. LOCAL 






216 


7F7D 
















217 


7F7D 










RDWD - 


READ AND CONVERT A 16-BIT WORD 


218 


7F7D 
















219 


7F7D 








REGISTER USAGE: 




220 


7F7D 
















221 


7F7D 










AC0 


STATUS ON EXIT (0 IS NORMAL) 


222 


7F7D 










AC1 


DATA 




223 


7F7D 










AC 2 


DECREMENTED COUNTER 


224 


7F7D 










AC 3 


UNALTERED 




225 


7F7D 
















226 


7F7D 








• RETURN: 






227 


7F7D 
















228 


7F7D 










RTS 0 


ERROR (AC0 HAS STATUS) 


229 


7F7D 










RTS 1 


NORMAL RETURN 




230 


7F7D 
















231 


7F7D 
















232 


7F7D 


4C04 


A 


RDWD: 


LI 


AC0,4 


; SET 4-COL COUNTER 


233 


7F7E 


4D00 


A 


RD1 : 


LI 


AC1,0 




234 


7F7F 


4100 


A 






PUSH 


AC1 


; SAVE TEMP 


235 


7F80 


4000 


A 


MORE: 


PUSH 


AC0 


; SAVE COUNTER 



4 



CRD16P 



236 


7F81 


29A9 


A 




JSR 


RDCOL 


; READ A COLUMN 


237 


7F82 


150A 


A 




BOC 


NZRO,$ERR 




238 


7F83 


4400 


A 




PULL 


AC0 




239 


7F84 


5400 


A 




XCHRS 


AC0 


; GET TEMP 


240 


7F85 


5C04 


A 




SHL 


AC0 , 4 




241 


7F86 


3482 


A 




RXOR 


AC1,AC0 


; MERGE 4 BITS 


242 


7F87 


5400 


A 




XCHRS 


AC0 




243 


7F88 


48FF 


A 




AISZ 


AC0,-1 


? DECREMENT COUNTER 


244 


7F89 


21F6 


A 




JMP 


MORE 


; LOOP FOR 4 COLUMNS 


245 


7F8A 


4500 


A 




PULL 


AC1 


; DATA NOW IN AC1 


246 


7F8B 


4C00 


A 




LI 


AC0 f 0 


; ZERO STATUS 


247 


7F8C 


0201 


A 




RTS 


1 


; NORMAL RETURN 


248 


7F8D 














249 


7F8D 


5400 


A 


$ERR: 


XCHRS 


AC0 


; SAVE ERROR STATUS 


250 


7F8E 


4400 


A 




PULL 


AC0 


; PULL COUNTER AND TEMP 


251 


7F8F 


5400 


A 




XCHRS 


AC0 




252 


7F90 


4400 


A 




PULL 


AC0 




253 


7F91 


0200 


A 




RTS 


0 


; RETURN WITH ERROR 


254 


7F92 














255 


7F92 








RDLEN - 


READ RECORD LENGTH (CARD COLUMNS 2-4) 


256 


7F92 














257 


7F92 


4C03 


A 


RDLEN: 


LI 


AC0,3 




258 


7F93 


21EA 


A 




JMP 


RD1 


; READ AND MERGE NEXT 3 COLUMNS 


259 


7F94 








.PAGE 






260 


7F94 








. LOCAL 






261 


7F94 














262 


7F94 








END CARD PROCESSING 




263 


7F94 














264 


7F94 


29FD 


A 


END: 


JSR 


RDLEN ; SKIP OVER RECORD LENGTH 


265 


7F95 


210D 


A 




JMP 


$ERR 




266 


7F96 


29E6 


A 




JSR 


RDWD ; SKIP CHECKSUM 


267 


7F97 


210B 


A 




JMP 


$ERR 




268 


7F98 


29E4 


A 




JSR 


RDWD ; SKIP ADDRESS MODE 


269 


7F99 


2109 


A 




JMP 


$ERR 




270 


7F9A 


29E2 


A 




JSR 


RDWD • READ LOAD ADDRESS 


271 


7F9B 


2107 


A 




JMP 


$ERR 




272 


7F9C 


F589 


A 




SKNE 


ACl f ZERO ; STORE ONLY NON-ZERO ENTRY POINT 


273 


7F9D 


21DD 


A 




JMP 


LAST 




274 


7F9E 


5500 


A 




XCHRS 


AC1 • ENTRY POINT IS ON TOP OF THE STACK 


275 


7F9F 


21DB 


A 




JMP 


LAST ; IGNORE REST OF CARD 


276 


7FA0 














277 


7FA0 


4700 


A 


ERR3: 


PULL 


AC 3 ; RETURN WITH PROPER NO. OF PULLS 


278 


7FA1 


4700 


A 


ERR2: 


PULL 


AC 3 




279 


7FA2 


4700 


A 


ERR1: 


PULL 


AC 3 




280 


7FA3 






$ERR: 






AC0 TELLS STATUS 


281 


7FA3 


21D7 


A 


VALID: 


JMP 


LAST \ 


IGNORE REST OF CARD 


282 


7FA4 


219A 


A 


XCVT: 


JMP 


CVT 


LONG SUBROUTINE JUMP 


283 


7FA5 








.PAGE 






284 


7 FA 5 














285 


7FA5 








DATA CARD PROCESSING 




286 


7FA5 














287 


7FA5 


29EC 


A 


DATA: 


JSR 


RDLEN ; 


GET RECORD LENGTH 


288 


7FA6 


21FC 


A 




JMP 


$ERR 




289 


7FA7 


4100 


A 




PUSH 


AC1 ; 


SAVE BODY LENGTH 


290 


7FA8 


29D4 


A 




JSR 


RDWD 




291 


7FA9 


21F8 


A 




JMP 


ERR1 




292 


7FAA 


5500 


A 




XCHRS 


AC1 


SAVE CHECKSUM 


293 


7 FAB 


410£ 


A 




PUSH 


AC1 ; 


SAVE LENGTH COUNTER IN STACK 


294 


7FAC 


4F00 


A 




LI 


AC3 f 0 ; 


INITIALIZE READ CHECKSUM 


295 


7FAD 


29CF 


A 




JSR 


RDWD ; 


SKIP ADDRESS MODE 


296 


7FAE 


21F2 


A 




JMP 


ERR2 




297 


7FAF 


3700 


A 




RADD 


AC1,AC3 




298 


7FB0 


29CC 


A 




JSR 


RDWD 


READ LOAD ADDRESS 



CRD16P 



299 


7FB1 


21EF 


A 


300 


7FB2 


3700 


A 


301 


7FB3 


4100 


A 


302 


7FB4 


29C8 


A 


303 


7FB5 


21EA 


A 


304 


7FB6 


3700 


A 


305 


7FB7 


29C5 


A 


306 


7FB8 


21E7 


A 


307 


7FB9 


3700 


A 


308 


7FBA 


4400 


A 


309 


7FBB 


5400 


A 


310 


7FBC 


48FC 


A 


311 


7FBD 


2100 


A 


312 


7FBE 


1B0D 


A 


313 


7FBF 






314 


7FBF 


5400 


A 


315 


7FC0 


4000 


A 


316 


7FC1 


29BB 


A 


317 


7FC2 


21DD 


A 


318 


7FC3 


4400 


A 


319 


7FC4 


3380 


A 


320 


7FC5 


A700 


A 


321 


7FC6 


4B01 


A 


322 


7FC7 


3380 


A 


323 


7FC8 


3700 


A 


324 


7FC9 


5400 


A 


325 


7FCA 


48FF 


A 


326 


7FCB 


21F3 


A 


327 


7FCC 


4400 


A 


328 


7FCD 


4400 


A 


329 


7FCE 


11D4 


A 


330 


7FCF 


3C82 


A 


331 


7FD0 


11D2 


A 


332 


7FD1 


4C03 


A 


333 


7FD2 


21D0 


A 


334 


7FD3 






335 


7FD3 






336 


7FD3 






337 


7FD3 






338 


7FD3 






339 


7FD3 






340 


7FD3 






341 


7FD3 






342 


7FD3 






343 


7FD3 






344 


7FD3 






345 


7FD3 






346 


7FD3 






347 


7FD3 






348 


7FD3 






349 


7FD3 






350 


7FD3 






351 


7FD3 






352 


7FD3 


4000 


A 


353 


7FD4 


4100 


A 


354 


7FD5 


4300 


A 


355 


7FD6 


4200 


A 


356 


7FD7 


4F10 


A 


357 


7FD8 


4D50 


A 


358 


7FD9 


0A80 


A 


359 


7FDA 


0603 


A 


360 


7FDB 


0602 


A 


361 


7FDC 


0401 


A 



JMP ERR2 

RADD AC 1, AC 3 

PUSH AC1 

JSR RDWD 

JMP ERR3 

RADD AC1,AC3 

JSR RDWD 

JMP ERR3 

RADD AC1,AC3 

PULL AC0 

XCHRS AC0 

AISZ AC0,-4 

JMP .+1 

BOC RLE0 ,TCKSM 

$LOOP: XCHRS AC0 

PUSH AC0 

JSR RDWD 

JMP ERR3 

PULL AC0 

RXCH AC0,AC3 

ST AC1,(AC3) 

AISZ AC3,1 

RXCH AC0,AC3 

RADD AC 1, AC 3 

XCHRS AC0 

AISZ AC0,-1 

JMP $LOOP 

TCKSM: PULL AC0 

PULL AC0 

BOC ZRO, VALID 

RXOR AC3 f AC0 

BOC ZRO, VALID 

LI AC0,3 

JMP $ERR 

.PAGE 'USER ROUTINES' 
********************************************************** 



; SAVE LOAD ADDRESS 

? SKIP 1ST RELOC FIELD 



; SKIP 2ND RELOC FIELD 

; GET LOOP COUNTER 

; DECREMENT LENGTH COUNTER 

; NO MORE DATA - CHECK THE CHECKSUM 

PUT LOOP COUNTER BACK ON STACK 
PUT LOAD ADDRESS ON TOP OF STACK 
READ DATA 



STORE THE DATA 
INCREMENT THE ADDRESS 

UPDATE READ CHECKSUM 
GET LOOP COUNTER 

LOOP UNTIL DONE 

PULL ADDRESS 

PULL CARD CHECKSUM 

IF CHECKSUM = 0, DATA IS VALID 

COMPARE CHECKSUMS 

CHECKSUM ERROR: CODE 3 



READCARD ROUTINE - READ AN 80 COLUMN CARD INTO A BUFFER 

(NO CONVERSION) 



* 
* 
* 
* 

* CALLING SEQUENCE: 
* 

* LD 

* JSR 

* RETURN: 
* 

* 



AC2 , BUFAD 
RDCARD 



RTS 
RTS 



; LOAD BUFFER ADDRESS 

; READ CARD INTO THE BUFFER 

ERROR (MOTION/HOPPER/OFFLINE) 
NORMAL RETURN 



* ALL REGISTERS ARE SAVED AND RESTORED 

* * 
*********************************************************************** 



$STRT: 



PUSH 


AC0 


; SAVE REGISTERS 


PUSH 


AC1 




PUSH 


AC 3 




PUSH 


AC 2 


; BUFFER ADDRESS IS IN AC 2 


LI 


AC3, CRADR 


; LOAD CARD READER ADDRESS 


LI 


AC1, 80 




PFLG 


2 


; RESET SELECT FLAG 


ROUT 


RESET 


; RESET INDEX MARK FF 


ROUT 


PICK 


; GET CARD 


RIN 


READ 


; GET DATA 



6 



CRD16P 



362 


7FDD 


1401 


A 


BOC 


BIT1, .+2 






; CHECK FOR READY 


363 


7FDE 


210F 


A 


JMP 


MOTERR 






', ERROR RETURN IF CRDR IS OFFLINE 


364 


7FDF 


1303 


A 


BOC 


BIT0, COL 






• TEST FOR INDEX MARK 


365 


7FE0 


719B 


A 


SKAZ 


AC0 , HC 






• TEST FOR HOPPER/MOTTON CVWCK 


366 


7FE1 


210C 


A 


JMP 


MOTERR 








367 


7FE2 


21F9 


A 


JMP 


$STRT 








368 


7FE3 


0603 


A COL: ROUT 


RESET 






RESET FLIP-FLOP 4 ? 


369 


7FE4 


5CFC 


A 


SHR 


AC0,4 






• STRIP STATnS RTT9 


370 


7FE5 


A200 


A 


ST 


AC0, (AC2) 






SAVE DATA IN BUFFER 


371 


7FE6 


4A01 


A 


AISZ 


AC2 f l 






INCREMENT BUFFER ADDRESS 


372 


7FE7 


49FF 


A 


AISZ 


AC1,-1 






DECREMENT COLUMN COUNT 


373 


7FE8 


21F3 


A 


JMP 


$STRT 








374 


7 IE 9 


4600 


A 


PULL 


AC 2 








375 


7FEA 


4700 


A 


PULL 


AC 3 








376 


7FEB 


4500 


A 


PULL 


AC1 








377 


7FEC 


4400 


A 


PULL 


AC0 










7FED 




A 












378 




0201 


fl 


RTS 










379 


7FEE 






r 










380 


7FEE 


0603 


A MOTERR: ROUT 


RESET 






MOTION ERROR / HOPPER CHECK 


381 


7FEF 


4600 


A RETURN: PULL 


AC 2 






382 


7FF0 


4700 


A 


PULL 


AC 3 








383 


7FF1 


4500 


A 


PULL 


AC1 








384 


7FF2 


4400 


A 


PULL 


AC0 








385 


7FF3 


0200 


A 


RTS 


0 








386 


7FF4 






.PAGE 










387 


7FF4 






. LOCAL 










388 


7FF4 








389 


7FF4 






. * 








* 


390 


7FF4 






• * CNVRT 


- CONVERT 


BUFFER 


TO HEX * 


391 


7FF4 






• * 










392 


7FF4 






•* CALLING SEQUENCE: 






* 


393 


7FF4 






* 








* 


394 


7FF4 






* LD 


AC2, BUFAD 




* 


LOAD BUFFER ADDRESS * 


395 


7FF4 






* JSR 


CNVRT 




r 


CONVERT THE BUFFER TO HEX * 


396 


7FF4 






* 








* 


397 


7FF4 






* EACH WORD OF 


THE BUFFER 


IS CONVERTED TO ITS BINARY EQUIVALENT. * 


398 


7FF4 






* IF THE HOLLERITH CODE IS NOT 


A 


VALID HEX CHARACTER, THE HOLLERITH * 


399 


7FF4 






* CODE IS STORED INSTEAD 


(BITS 


4 


-15; BITS 0-3 ARE 0) * 


400 


7FF4 






* 






* 


401 


7FF4 






* ALL REGISTERS ARE SAVED 


AND 


RESTORED * 


402 


7FF4 






* 








* 


403 


7FF4 








404 


7FF4 
















405 


7FF4 


4000 


A CNVRT: PUSH 


AC0 






SAVE REGISTERS 


406 


7FF5 


4100 


A 


PUSH 


AC1 








407 


7FF6 


4300 


A 


PUSH 


AC 3 








408 


7FF7 


4200 


A 


PUSH 


AC 2 




i 


BUFFER ADDRESS IS IN AC 2 


409 


7FF8 


4F50 


A 


LI 


AC3,80 








410 


7FF9 


8200 


A $LOOP: LD 


AC0 , (AC2) 








411 


7FFA 


29A9 


A 


JSR 


XCVT 








412 


7FFB 


A600 


A 


ST 


AC1, (AC 2) 






STORE BINARY VALUE (UNLESS ERROR) 


413 


7FFC 


4A01 


A 


AISZ 


AC2 , 1 






414 


7FFD 


4BFF 


A 


AISZ 


AC3,-1 








415 


7FFE 


21FA 


A 


JMP 


$LOOP 








416 


7FFF 


21EF 


A 


JMP 


RETURN 








417 


8000 




* 












418 


8000 


7F00 


A 


.END 


ABSCR 









0 ERRORS IN ASSEMBLY ****** 



7 



CRD16P 



$COL! 












9LiUU.r 9 


$MOTE ! 


90 I Kl i 


9brRT# 


ABSCR 


7F38 


A 


7F3A A 


7F8D A 


7FA3 A 


7FBF A 


7FF9 A 


7F34 


A 


7F2D A 


7FDC A 


7F00 A 


AC0 




AC 1 

J. 


rtw c. 




d 1 1 B 


□ ill 


BLANK 


VWVKI 


LUL 


COMMAN 


0000 


A 


0001 A 


0002 A 


0003 A 


0003 A 


0004 A 


7F63 


A 


7FF4 A 


7FE3 A 


7F10 A 


CRADR 


C\TT 




pun 


ppp l 




ERR3 




P YP r AM 


PTDCrp 

r 1Kb! 


G 


0010 


A 


7F3F A 


7FA5 A 


7F94 A 


7FA2 A 


7FA1 A 


7FA0 


A 


7F29 A 


7F02 A 


7F2A A 


GO 




GODATA 


GOEND 


HC 


IGNORE 


INVCAR 


LAST 




MORE 


MOTERR 


NZRO 


7F20 


A 


7F7A A 


7F79 A 


7F7C A 


7F14 A 


7F65 A 


7F7B 


A 


7F80 A 


7FEE A 


0005 A 


PICK 




RD1 


RDCARD 


RDCOL 


RDLEN 


RDWD 


READ 




RESET 


RETURN 


RLE0 


0002 


A 


7F7E A 


7FD3 A 


7F2B A 


7F92 A 


7F7D A 


0001 


A 


0003 A 


7FEF A 


000B A 


SIX 




SKIP 


TBL 


TCKSM 


VALID 


XCVT 


ZERO 




ZRO 






7F1E 


A 


7F11 A 


7F69 A 


7FCC A 


7FA3 A 


7FA4 A 


7F26 


A 


0001 A 







F220 B6B3 



8 



PNL16P 



REVISION-G 05/16/74 
PNL16P 00311A 12/11/73 



0000 
0000 
OOCO 
COCO 
OOOO 
0000 

ccco 

8 0000 

9 0000 

10 0000 

11 0000 

12 COOO 

13 0000 

14 0000 

15 0000 

16 0000 

17 0000 

18 OCOO 

19 0000 

20 0000 

21 OCCO 

22 0000 

23 0000 

24 OCCO 

25 0000 

26 COOO 

27 0000 

28 0000 

29 0000 
3C COOO 

31 0000 

32 OOCO 

33 0000 

34 COOO 

35 OOCO 

36 0000 

37 0000 

38 COCO 

39 0000 

40 0000 

41 0000 

42 0000 

43 OCCO 

44 CCOO 

45 0000 

46 0000 

47 OCOO 

48 0000 

49 0000 



• TITLE PNLi6P T , e03UA 12/11/73' 
.ASECT 



*********************************************************************** 



IMP-16P CCNTROL PANEL ROUTINE 

THIS PRCGRAM FITS INTO 2 8X256-BIT PROMS CN THE 
IMP16P CCNTROL PANEL INTERFACE CARD: 

PROM DIAGRAM 

ADDRESSES BITS CESIG CO-ORDINATE 

4600311 LOW FFOO-FFFF 0-7 BIU 6H 

4610311 HIGH FFOO-FFFF 8-15 BIV 7H 



*************************************************************** 



*** DEF INITICNS *** 

7E00 A RLOADER = X«7E00 

OCOO A SORET = C 

FFCO A ROMORG = X'FFOO 

FF01 A RAM = RCMCRG + 1 

FF7F A IENS = C2 

FF80 A SELS = 04 

JUMP CONDITIONS 

00C1 A REQO = 1 

0003 A RBI TO = 3 

0004 A RBIT1 = 4 
00C8 A STKFULL = 8 
0009 A I EN = 9 
0008 A RLEO = 11 

HARDWARE FLAGS 

0C02 A SELF = 2 

0001 A IENF = 1 

REGISTERS 

OOCO A ACO = 0 

0001 A AC 1 = 1 

0002 A XR2 = 2 

0003 A XR3 = 3 



PAPER TAPE LCADER ENTRY 
STACK OFLO RETURN AODR 



(ACO) = 0 
ACO(O) = 1 
AC0<1) = 1 
STACK FULL 

INTERRUPTS 
(ACO) <= 0 



ENABLED 



SELX FLAG 

INTERRUPTS ENABLE FF 



50 0000 

51 0000 

52 0000 

53 OCOO 

54 0000 

55 0000 

56 OCOO 

57 0000 

58 OCOO 

59 0000 

60 0000 



• PAGE 'SOFTWARE DESCRIPTION' 

CONTROL CONSOLE COMMANDS: 

NOTE: THESE COMMANDS ARE VALID ONLY WHEN SENT DURING THE 
CONTROL PANEL SERVICE ROUTINE. THEY CANNOT BE USED 
BY USER PROGRAMS (HARCWARE RESTRICTION). 

1. TO EXECUTE CONTROL PANEL COMMANDSt AC3 MLST 
CONTAIN THE CCNTROL PANEL ADDRESS (CPAD): 



1 



PNL16P 



61 OCOO ; LD £C3,CPAC 

62 OOOO 

63 0000 

64 0000 

65 DOOO 

66 0000 ; ROUT LPCCR 

67 COOO 

68 0000 ; 3. 

69 0000 
7C COOO 

71 0000 

72 0000 

73 0000 ; 4. 

74 0030 

75 OCOO 

76 COOO 

77 0000 ; 5. 

78 0000 

79 OOOO 

80 OOOO ; R IN GPCS 

81 COOO 

82 OOOO ; 6. 

83 OCCO 

84 OCOO 

85 OOOO ; ROUT EUM 

86 OCCO 

87 OOOO 

88 OOOO FF85 A CPAC = H760 

89 OCOO 

90 OOOO OOOO A LPCDR = X'OO 

91 OOOO 

92 OCCO 0CC8 A LDR = X'08 

93 OOOO 

94 COOO 001C A GDS = X'lC 

95 OOOO 

96 OOOO 0018 A GPCS = X'18 
<57 OOOO 

98 OOOO 0001 A EUM = X'Ol 



TO LOAD THE PROGRAM COUNTER DI SPLAY REGISTER 
WITH THE CONTENTS CF ACQ: 



TO LOAD THE DATA REGISTER WITH THE CONTENTS 
OF ACQ: 

ROUT LDR 

TO GET THE CATA SWITCHES AND LOAD THEM INTO ACQ: 
RIN GCS 

TO GET THE PANEL COMMAND SWITCH AND LOAD IT 
INTO ACQ: 



TO ALLOW THE NEXT INSTRUCTION TC ACCESS USER MEMORY 
(FOR ONE LOAD/STORE ONLY): 



(H760 IS THE ADDRESS OF 

A WORD THAT CONTAINS X'760i 

LCAD PC DISPLAY REG 

LOAD CATA DISPLAY REG 

GET DATA SWITCHES 

GET PNL CQNT SWITCHES 

ENABLE USER MEMORY 



99 OOOO 

100 OOOO 

101 OCOO 

102 OOOO 

103 OCOO 

104 OOOO 

105 OOOO 

106 OOOO 

107 COOO 

108 OOOO 

109 OCOO 

110 OOOO 

111 OOOO 

112 OOOO 

113 OOOO 

114 OOOO 

115 OCOO 

116 OOOO 

117 OCOO 

118 OOOO 

119 OOOO 
12C OOOO 

121 OOOO 

122 OOOO 

123 OOOO 

124 COOO 

125 OOOO 



• PAGE 

CCMMAND WGRO BIT ASSIGNMENTS: 
BIT INOICATICN 



15 

14 
13 
12 
11 
10 
9 
8 
7 



A ZERO INDICATES THAT THE CONSOLE HAS 
BEEN SERVICED AT LEAST CNCE SINCE THE 
LAST BLTTON WAS DEPRESSED. 

LOAO DATA PUSHBUTTON 

INCREMENT MEMORY ADDRESS PUSHBUTTON 

LCAC PROGRAM PUSHBUTTON 

(NOT USED) 

ACO SELECTED 

AC1 SELECTED 

AC2 SELECTED . 

AC3 SELECTED 



2 



PNL16P 



126 
127 
126 
129 
13C 
131 
132 
133 
134 
135 
136 
137 
138 



0003 

ccco 
ccco 

0 000 
0000 

ocoo 

0000 

ooco 

0000 
0000 

oooc 

0000 

cooo 



6 PROGRAM COUNTER SELECTED 

5 NEXT INSTRUCTION SELECTED 

4 FLAGS SELECTED 

3 STACK SELECTED 

2 MEMORY ADDRESS POINTER SELECTED 

1 MEMORY DATA SELECTED 

0 PROGRAMMED DATA SELECTED 



139 OCCO 
14C OCOO 

141 0000 

142 0000 

143 OQOO 

144 COOO 

145 OCCO 

146 0000 

147 OCOO 

148 OOCO 

149 3000 

150 OCCO 

151 0000 

152 OOCO 

153 OCOO 

154 0000 

155 OCCO 

156 CCOO 

157 0000 

158 OCOO 

159 0000 

160 COOO 

161 OCCO 

162 0000 

163 OOOC 

164 OOOC 

165 0000 

166 0000 

167 OOOO 

168 0000 

169 OCCO 

170 0000 

171 OCOO 

172 OCOO 

173 0000 

174 OCOO 

175 0000 

176 0000 

177 OCCO 

178 OOCO 

179 OCOO 
18C OCCO 

181 0000 

182 CCOO 

183 0000 

184 0000 

185 OCOO 



• PAGE 

CCNTPOL PANEL SERVICE IN TRANSPARENT MEMORY 
STORAGE ASSIGNMENTS AND DISPLACEMENT TABLE 



LOCA- 



AC2 DISPLACEMENT 
(IN DECIMAL) 



; T I ON 




ENTRY 


CONSO 


;IHEX) 
»--- ' 


USAGE 




EXIT 



SERVI 



;*00 




-3 


-19 


;*oi 


ACO 


-2 


-18 


;*02 


AC1 


-1 


-17 


;*03 


AC2 


0 


-16 


•#04 


AC3 


1 


-15 


;*05 


PC 


2 


-14 


;*06 


STACK 


3 


-13 


;*07 


STK1 


4 


-12 


;*08 


STK2 


5 


-11 


;*09 


STK3 


6 


-10 


;*0A 


STK4 


7 


-9 


;*08 


STK5 


8 


-8 


i*0C 


STK6 


9 


-7 


;*00 


STK7 


10 


-6 


;*0E 


STK8 


11 


-5 


;*0F 


S7K9 


12 


-4 


;*10 


STK10 


13 


-3 


;*ll 


STK11 


14 


-2 


;*12 


STK12 


15 


-1 


;*13 


STK13 


16 


0 


;*14 


STK14 


17 


1 


;*15 


DISPLAYED c LAGS 


18 


2 


;*16 


R ALU FLAGS 


19 


3 


;*17 


MEM ADDRESS PTR 


20 


4 


;*18 




21 


5 


;*19 




22 


6 


;*1A 




23 


7 


;*18 




24 


8 


;*1C 




25 


9 


;*1D 




26 


10 


;*1E 




27 


11 


;*1F 




28 


12 



NOTES 



CURRENT TOP OF STACK 
TOP OF USER STACK 



* ACTUAL ADDRESS PAGE = FFOO; CONTROL PANEL 

INTERFACE HAR CW ARE CNLY LOOKS AT LOWER EIGHT BITS. 



3 



PNL16P 



186 


occo 






187 


0000 






188 


0000 


FF40 


A 


189 


FF40 






190 


FF40 


B941 


A 


191 


FF41 


8940 


A 


192 


FF42 


A2FE 


A 


193 


FF43 


A6FF 


A 


194 


FF44 


AE01 


A 


195 


FF45 






196 


FF45 


44C0 


A 


197 


FF46 


008C 


A 


198 


FF47 


540C 


A 


199 


FF48 






200 


FF48 


4D04 


A 


201 


FF49 


4700 


A 


202 


FF4A 


AEC2 


A 


203 


FF4B 


4700 


A 


204 


FF4C 


AE03 


A 


205 


F^4D 


4700 


A 


206 


FF4E 


AE04 


A 


207 


FF4F 


47C0 


A 


208 


FF50 


AE05 


A 


209 


FF51 






210 


FF51 


4A04 


A 


211 


FF52 


49FF 


A 


212 


FF53 


21F5 


A 


213 


FF54 






214 


FF54 






215 


FF54 






216 


FF54 






217 


FF54 






218 


FF54 






219 


FF54 






220 


FF54 






221 


FF54 






222 


FF54 


A203 


A 


223 


FF55 






224 


FF55 


6928 


A 


225 


FF56 


19 01 


A 


226 


FF57 






227 


FF57 


48FE 


A 


228 


FF58 


3381 


A 


229 


FF59 


4CC1 


4 


230 


FF5A 


58EF 


A 


231 


FF5B 


1302 


A 


232 


FF5C 


4BFC 


A 


233 


FF50 






234 


FF50 


21C0 


A 


235 


FF5E 






236 


FF5E 


AE02 


A 


237 


FF5F 






238 


FF5F 






239 


FF5P 






240 


FF5F 






241 


FF5F 


8D25 


A 


242 


FF60 


0418 


A 


243 


FF61 


3181 


A 


244 


FF62 


0410 


A 


245 


FF63 


3180 


A 


246 


FF64 


4F01 


A 


247 


FF65 






248 


FF65 






249 


FF65 


0A80 


A 


250 


FF66 


5803 


A 


251 


FF67 






252 


FF67 






253 


FF67 







• PAGE 1 CONTROL CCNSOLE SERVICE 1 
. LOCAL 

,=ROMORG*040 
RCCNSOLE : 

ST XR2,3AC2P 

LD XR2,AC2P 

ST AC0,-2(XR2) 

ST AC1.-KXR2I 

ST XR3.KXR2) 



$0 



PULL 

PUSHF 

XCHRS 

LI 

PULL 
ST 

PULL 
ST 

PULL 
ST 

PULL 
ST 

AISZ 
AISZ 
JMP 



ACO 
ACO 

AC1,4 

XR3 

XP3,2(XR2) 

XR3 

XR3,3(XR2) 
XR3 

XR3,4{XR2) 

XR3 

XR3,5(XR2) 

XR2,4 
AC1 ,-1 

$0 



SAVE ACCUMULATORS 

XR2 POINTS TO THE XR2 
SAVE LOCATION. 



SAVE THE RALU FLAGS 
IN ACO. 

SAVE THE STACK - 
4 PASS STACK SAVE 
SEQUENCE REQUIRES 6 
MORE WORDS THAN A 16 
PASS SEQUENCE. 
EXECUTION TIME FOR 
THIS SEQUENCE IS 255 
MICROCYCLES VS. 
440 MICROCYCLES FOR 
THE 16 PASS CASE. 

INCREMENT XR2 BY 4 
DECREMENT PASS COUNTER 
JUMP BACK TO $C IF NOT 
DONE. 



ON EXIT XR2 CCNTAINS X«*13 - iAC2P) + 16. 

PUT THE SELECT ANC INTERRUPT ENABLE FLAGS INTO BIT 

POSITIONS 2 ANC 1 OF THE FLAG WORD TO BE DISPLAYED, 

FIRST SET BITS 1 AND 2 



LSEL: 



ST 


AC0,3(XR2) 


; SAVE THE RALU FLAGS 






, IN MEMORY LOCATION X»*16 


OR 


AC0,D6 ; 


, SET BITS 1 AND 2 TO ONE 


BCC 


IEN,.*2 


; BRANCH IF THE INTERRUPT 






5 ENABLE IS SET 


AISZ 


ACO ,-2 


; IT IS NOT SET , CLEAR BIT 1 


RCPY 


AC0,XR3 




LI 


AC0»1 ; TEST SEL FLAG 


ROR 


AC0»17 




BCC 


RBITOtLSEL 


; BRANCH IF SET 


AISZ 


XR3,-4 i 


, IT IS NOT SET, CLEAR 






5 BIT 2. SKIP MAY OCCUR 


JMP 


. + 1 


; SO DO A HIGH SPEED NOP 


ST 


XR3,2(XR2) 


; STORE THE DISPLAYEC 






FLAGS IN LOCATION X«*15. 


THE COMMAND AND DATA WORDS FROM THE CONSOLE 


LD 


XR3,CPAC i 


XP3 := CONTROL PANEL ADDRESS 


R IN 


GPCS 


, FETCH THE PANEL CONTROL WORD 


RCPY 


AC0,AC1 


{ NOTE: GPCS MUST BE READ FIRST 


RIN 


GDS 


, FETCH THE DATA SWITCHES 


RXCH 


AC0,AC1 




LI 


XR3,1 


; XR3 WILL INDICATE WHETHER 






OR NOT THE LOAD DATA 






; SWITCH HAS BEEN DEPRESSED 


PFLG 


SELF ; 


MAKE SURE SELX FLAG IS OFF 


ROL 


ACO, 3 


, RIGHT JUSTIFY BITS 15,14,13 



***ACTIVE SWITCH IS 'ZERO* AT THIS POINT*** 



PNL16P 



254 


FP67 


7118 


A 




SKAZ 


ACO »D4 


• TCCT BrC f 1 El TC ITI C A 

t 1 til rlil 13) . IP IT'S A 


255 


FF68 


2101 


A 




JMP 


• +2 


» 1 TUCKi TCCT TUC HTUCD 

i i IntN 1 col infc UlncR 


256 


FF69 


2109 


A 




JMP 


$3 


• CU ITfUCC TC TT TC A <\ 


257 


FF6A, 












» nn mdt tcct r ucu 
, UU NUI I to 1 1 ntn. 


258 


FF6A 


I B03 


A 




BOC 


RLE Ot $ I 


» DD AMTLJ TC DTT 1C _n/* r f i ~> 1 t r 

, dKAINLH lr ol 1 15 = rC5ll2l IS 


259 


PF6B 


8D1 8 


A 




LO 


w r\ ■ Hirer 

XR3 tLQACcR 


» MnT a tuc r nuAJ a din 
> NUI U. 1 He LQMflAND 


260 


FF6C 












» unon i_ t i i ki c w c o d c a i 
r WURU WILL NfcVcR Be 0J. 


261 


FF6C 












• TC DTT IK TC 1*1 TLJ C M 

» lr ol 1 15 lb u irlrN 


262 


FF6C 


AEF2 


A 




C T 

5 T 




i rUI I nt LLAUfcK ALJURfcbb 


263 


FF6D 


4F01 


A 




f T 

L I 




1 1| TLI C DCTIIOM Of* 

, IN Infc KfclUKN KL. 


264 


FF6E 


1302 


A 


$1 : 


BOC 


RBI TO, J2 


• TCCT T Mr* UCtl AClPlD f II f u 

• TEST INC MEM ADDR SWITCH 


26 5 


FF6F 


7 A C4 


A 

A 




I Si 


HiXrZi % 


TMrOCUCKlT TUC MCUODV 

IIMLRfcMfcNT IHE MEMORY 


266 


FF70 












i ADDRESS POINTER THEN 


267 


FF70 


2 100 


A 




JMP 


. + 1 


i DO A HIGH SPEED NO OP 


268 


FF7 1 


140 I 


A 

A 


$2: 


BOC 


RBITl,$3 \ 


I TEST LOAD DATA SWITCH 


269 


FF72 


4F00 


A 




LI 


XR3,0 


; THE LOAD DATA SWITCH 


270 


FF73 












; HAS BEEN DEPRESSED. 


271 


FF73 












SET XR3 TO 0 TO INDICATE THIS 


272 


F F73 


CDOF 


A 


$3: 


AOO 


XR3,A0D1 




273 


FF74 


5CC0 


A 




CAI 


AC0,0 




274 


FF75 














275 


FF75 






; ***NGW ACTIVE 


SWITCH IS •ONE'*** 


276 


FF75 






; 








277 


FF75 


5CF E 


A 




SHR 


ACO, 2 




278 


F F 76 


61 CF 


A 




AND 


ACO,HFFC ; MASK OFF THE UNWANTED BITS 


279 


F F77 


5CFE 


A 


$6: 


SHR 


AC0t2 




280 


FF78 


13C4 


A 




BOC 


RBITO, $7 




281 


FF79 


1404 


A 




BOC 


RBIT1,$8 




282 


FF7A 


4B06 


A 




AISZ 


XR3,6 




283 


FF7B 


112E 


A 




BOC 


REQO, RESTORE ; SWITCH IS IN AN 


284 


FF7C 










; INTERMEDIATE POSITION 


285 


FF7C 


21FA 


A 




JMP 


$6 




286 


FF7D 


23C0 


A 


$7: 


JMP 


(XR3) 




287 


FF7E 


2303 


A 


$8: 


JMP 


3(XR3J 




288 


FF7F 






* 








289 


FF7F 






? 








290 


FF7F 


0002 


A 


02: 


• WORD 


2 ; *** CONSTANTS *** 


291 


FF80 


0004 


A 


04: 


• WORD 


4 




292 


FF81 


CCC6 


A 


C6: 


.WORD 


6 




293 


FF82 


FF03 


A 


AC2P: 


. WORD 


RAM + 2 




294 


FF83 


FF88 


A 


ADOl: 


.wORD 


DMD 




295 


FF84 


7EC0 


A 


LCAOER: 


.WORC 


RLCAOER 






FFP5 


07 60 


A 


H76G: 


- WORD 


X*0760 




297 


FF86 


OFFC 


A 


FFFC: 


• WORD 


X'OFFC 




298 


FP87 


FFF9 


A 


HFFF9 : 


• WORD 


X«FFF9 




299 


FF88 






1 








300 


FF88 














301 


FP88 


2149 


A 


D MD : 


JMP 


LOMD J 


DISPLAY MEMORY DATA 


302 


FF89 


4C00 


A 




LI 


AC 0,0 J 


SET FLAG FOR REAO 


303 


F c 8A 


2147 


A 




JMP 


LDMC 




304 


FF8B 


A604 


A 


DMAR: 


ST 


AC1,4(XR2) J 


STORE THE DATA SWITCHES 


305 


FF8C 












IN THE MEMORY ADDRESS 


3C6 


PF8C 












POINTER (LOCATION X«*17.) 


307 


FF8C 


8604 


A 




LO 


AC1,4(XR2) i 


LOAD AC1 WITH THE 


3C 8 


FF8D 












CONTENTS OF THE MEMORY 


309 


FF8D 












ACDRESS POINTER (LOC X'*17) 


310 


FF8D 


2117 


A 




JMP 


PCDEX i 


JUMP TO DISPLAY PC.AC1. 


311 


FF8E 


A6F3 


A 


DSTACK : 


ST 


AC1,-13(XR2) ? 


DISPLAY THE TOP OF THE STACK 


312 


FF8F 


86F3 


A 




LO 


AC1 ,-13(XR2) 




3 13 


FF90 


2114 


A 




JMP 


PCDEX 




314 


FF91 


A602 


A 


CFLAGS : 


ST 


ACl,2(XR2i ; DISPLAY THE FLAGS 


315 


FP92 


8602 


A 




LD 


ACl,2(XR2) 




316 


FF93 


2111 


A 




JMP 


PCDEX 




317 


FF94 


213F 


A 


ONI : 


JMP 


LDNI ; 01SPLAY THE NEXT INSTRUCTION 


318 


FF95 


4C00 


A 




LI 


ACO,0 ; SET FLAG FOR REAO 


319 


F«=96 


213D 


A 




JMP 


LCNI 




320 


«=F97 


A6F2 


A 


DPC: 


ST 


AC1,-14(XR2) ; DISPLAY THE 


321 


FF98 


86 F2 


A 




LD 


AC1,-14(XR2) ; PROGRAM COUNTER 



5 



PNL16P 



322 


FF99 


21CB 


A 




JMP 


PCDEX 




323 


FF9A 


A6F1 


A 


DXR3: 


ST 


AC1,-15(XR2) ; DISPLAY XR3 


324 


FF9B 


86F1 


A 




LD 


AC1 W5<XR2i 




325 


FF9C 


21C8 


A 




JMP 


PCDEX 




326 


FF90 


A6F0 


A 


DXR2: 


ST 


ACl»-16(XR2) ; DISPLAY XR2 


327 


FF9E 


86F0 


A 




LD 


AC1 ,-16(XR2) 




328 


FF9F 


2105 


A 




JMP 


PCOEX 




329 


FF AO 


A6FF 


A 


CACl: 


ST 


AC1,-17(XR2) 


J DISPLAY AC1 


2 30 


FFA1 


86EF 


A 




LD 


AC1 ,-17(XR2) 




331 


FFA2 


2102 


A 




JMP 


PCDEX 




332 


FF A3 


A6EE 


A 


CACO: 


ST 


AC1 ,~18(XR2) 


; DISPLAY ACO 


333 


FFA4 


86EE 


A 




LD 


AC1,-18(XR2) 




3 34 


FFA5 


82F2 


A 


PCDEX: 


LD 


AC0,-14(XR2) ; PUT THE DISPLAYED PC IN ACQ 


335 


FFA6 


8D0E 


A 




LD 


XR3,CPAD 


; DISPLAY THE CONTENTS OF 


336 


FFA7 










; ACO IN THE PC/MEM ADDRESS 


337 


FFA7 












; LIGHTS AND DISPLAY ACi IN 


338 


FFA7 












; THE SELECTED DISPLAY LIGHTS 


339 


FFA7 


0600 


A 


DOl: 


ROUT 


LPCOR 


i 


340 


FFA8 


3481 


A 




RCPY 


AC1,AC0 




341 


FFA9 


06C8 


A 




ROUT 


LOR 




342 


FFAA 






RESTORE 






i RESTORE THE INTERRUPT 


343 


FFAA 


8202 


A 




LD 


AC0t2(XR2J 


, ENA8LE AND SELECT FLAGS. 


344 


FFAB 


71C4 


A 




SKAZ 


ACOtSELS i 


, THE SELECT FLAG WAS 


345 


FFAC 


OAOO 


A 




S^LG 


SELF 


CLEARED IN THE PANEL 


346 


FFAO 


0980 


A 




PFLG 


IENF 5 


SERVICE SEQUENCE. 


347 


FFAE 


71C3 


A 




SKAZ 


ACO,IENS 




348 


FFAF 


C9C0 


A 




SFLG 


I ENF 




349 


FFBO 


6106 


A 




AND 


ACO * HFFF9 


; MAKE UP THE NEW RALU 


350 


FFB1 


8603 


A 




LD 


AC1,3(XR2) i 


! FLAGS 


351 


FFB2 


65CE 


A 




AND 


AC1,D6 




352 


FFB3 


3U0 


A 




RADO 


AC0,AC1 


; THE NEW FLAGS ARE SAVED 


353 


FFB4 












IN ACI WHILE THE STACK 


354 


FFB4 












, IS RESTORED 


355 


FFB4 














356 


FFB4 








. LOCAL 




' RESTORE THE STACK: 


357 


FFB4 


4F04 


A 




LI 


XP3»4 


, 4 PASS SEQUENCE REQUIRES 


358 


FFB5 


4AFC 


A 


$4: 


AISZ 


XR2t-4 


{ 6 MORE WORDS THAN A 16 


359 


FFB6 


8205 


A 




LD 


AC0,5<XR2) 


; PASS SEQUENCE BUT 


36C 


FFB7 


40C0 


A 




PUSH 


ACO 


; EXECUTES IN 247 


361 


FFB8 


82C4 


A 




LD 


ACC,4<XR2) 


, MICRpCYCCES AS 


362 


FFB9 


4000 


A 




PUSH 


ACO : 


OPPOSED TO 432 


363 


FFBA 


8203 


A 




LD 


AC0,3(XR2 ) 


; MICFOCYCLES 


364 


FFBB 


4000 


A 




PUSH 


ACO 




365 


FPBC 


8202 


A 




LD 


AC0,2(XR2J 




366 


FFBO 


4000 


A 




PUSH 


ACO 




367 


PFBE 


4BFF 


A 




AISZ 


XR3.-1 




368 


FFBF 


21F5 


A 




JMP 


$4 





369 


FFCO 






370 


FFCO 






371 


FFCO 






372 


FFCO 






373 


FFCO 






374 


PFCO 






375 


FFCO 






376 


FFCO 






377 


FFCO 






378 


FFCO 






379 


F^CO 






38C 


FFCO 






381 


FFCO 






382 


FFCC 


18C1 


A 


383 


FFC1 


2105 


A 


384 


FFC2 


810E 


A 


385 


FFC3 


40C0 


A 


386 


FFC4 


40 CO 


A 


387 


FFC5 


44C0 


A 



• PAGE ' RETURN TO USER PROGRAM 1 
STACK OVERFLOW HANDLER 

IF THE STACK IS FULL THEN IT IS POSSIBLE THAT THE 
CONSOLE SERVICE ROUTINE HAS PUSHED A VALUE OFF THE 
BOTTOM OF THE STACK. IN THIS EVENTUALITY, THE 
INTERRUPT ENA EL£ FLAG IS CLEARED AND CONTROL IS 
RETURNE 0 TO LCC 0 WITH THE OLD PC ON TOP OF THE 
STACK . THE BOTTOM TWC STACK POSITIONS MUST BE 
CLEARED TO GUARANTEE PROGRAM STABILITY IN THE OVER- 
FLOW CCNDITION WHILE IN THE SINGLE INSTRUCTION MODE. 



IS THE STACK FULL? 
NO, JUMP AROUND THIS. 
YES, PUT THE PANEL OVER- 
FLOW RETURN LOCATION ON 
THE STACK, PUSHING CFF 
STK14, THEN PUSH OFF 



BOC 


STKFULL, .+2 


JMP 


$6 


LD 


ACO,PRTN 


PUSH 


ACO 


PUSH 


ACO 


PULL 


ACO 



6 



PNL16P 



388 


FPC6 












339 


PFC6 












39C 


C FC6 












391 


FFC6 












392 


FFC6 


09 90 


A 




p = LG 


I EN F 


393 


FFC7 












394 


FFC7 












395 


FFC7 


55C j 


A 


$6: 


XCHRS 


AC1 


396 


PFC8 


0283 


A 




PULLF 




397 


FFC9 


4 ICO 


A 




PUSH 


AC1 


398 


FFCA 


82F5 


A 




LD 


AC0,-2(XR2) 


399 


FFCB 


86FF 


A 




LD 


AC1 ♦-KXR2) 


400 


FFCC 


8E01 


A 




LD 


XR3,1(XR2) 


401 


FFCD 


8A00 


A 




LD 


XR2 ♦ (X D 2 ) 


40 2 


P p CE 












403 


FFCE 


A101 


A 




ST 


ACC,$DUMY 


4C4 


FFC C 












405 


FFCF 


02C0 


A 




RTS 


u 


406 


FFO0 


FFD1 


A 


SDUMY: 






407 


FFD1 


0000 


A 


PRTN: 


.WORD 


SCR ET 



STK13 ANT PULL GNCE TO CLEAR 
THE STACK 3ZTTCP. THE NEXT 
TC STACK BOTTOM WILL 3E 
CLEARED *ITH The RTS R ETljRN . 
FINALLY, CLEAR THE 
INTERRUPT ENABLE • 

RESTCRE THE RALU F L AGS 



; RESTORE THE REGISTERS 



* RETURN * 

SET «LAST» F-F SC »RTS' 

RETURNS TC USER MEMORY . 
ENABLE AND RETURN. 

; PANEL SVC STK CFLC RETURN 



408 FFD2 

409 FFC2 
41C FFD2 

411 FFD2 

412 FFD2 

413 FFD2 

414 FFD2 

415 FF02 

416 FFD2 

417 FFD2 

418 FFD3 

419 FFD4 

420 FFD5 

421 FFD6 

422 FFD7 

423 F C D8 

424 FFD9 

425 FFCA 

426 FFDB 

427 FFDC 

428 FFDD 

429 FFDE 

430 FFDE 

431 FFDE 



432 F C DF 



• PAGE 'ACCESSING USER MEMORY* 

ACCESSING USER MEMCRY FCR 

•MEMORY DATA • OR 'NEXT I NSTRUCTION* 

ON ENTRY TC LCKC OR LDNI : 











ACO = 0 


READ USER MEMORY 










ACO * 1 


ALTER USER MEMORY 


8A04 


A 


LCMC: 


LD 


XR2,4(XR2) 


; LOAD MEMORY DATA POINTER 


2101 


A 




JMP 


. + 2 


8AF2 


A 


LDNI: 


LC 


XR2,-141XP2) 


; LCAD NEXT INSTRUCTION P TR 


8DAF 


A 




LD 


XR3,CPAD 




1103 


A 




BOC 


REQO, RDMEM 


; CHECK IF ALTER CR R E AC 


0601 


A 




ROUT 


EUM 


A6C0 


A 




ST 


AC1,(XR2) 


; ALTER USER MEMORY 


2102 


A 




JMP 


.♦3 




0601 


A 


RDMEM: 


ROUT 


EUM 




86C0 


A 




LD 


AC1 tf XR2I 


; READ USER MEMORY 


3881 


A 




RCPY 


XR2.AC0 


* PUT finnE TNI Afn cno ptcdi *v 


4E13 


A 




LI 


XR2,X« 13 


; PANEL ATDRES S HARDWARE ONLY 












; LOOKS AT THE LOWER EIGHT 


21C8 










» BITS OF THE ADDRESS 


A 




JMP 


C01 








-PAGE 


■ ENTRY POINT' 





434 FFFD 2501 

435 FFFE 2000 

436 FFFF FF40 A CPOINT: 
*37 000 FF40 A 



.=RGMORG-*-0FD 
CONSCLE:JPP 3CFQINT 
INIT: JMP 0 

.WCRC RCONSOLE 
. ENC RCONSOLE 



; CONTROL CONSOLE ENTRY 
; DUMMY INIT. ENTRY PCINT 



****** 



0 ERRORS IN ASSEMBLY ****** 



7 



PNL16P 



$o w 




$1" 




$2" 




$3" 




$4# 


FF49 


A 


F«=6E 


A 


FF71 


A 


FF73 


A 


FFB5 A 


ACO 




ACl 




AC2P 




ADD1 




CCNSOL 


0000 


A 


0001 


A 


FF82 


A 


FF83 


A 


FFFD A 


C6 




CACO 




DACi 




CFLAGS 


OMAR 


FF81 


A 


FFA3 


A 


FFAO 


A 


FF91 


A 


FF8B A 


CXR3 




EUM 




GDS 




GPCS 




H760 


FF9A 


A 


0001 


A 


0010 


A 


0018 


A 


FF85 A 


INIT 




LOMD 




LDNI 




LDP 




i r AT1PP 


FFFE 


A 


FFD2 


A 


FFD4 


A 


0008 


A 


FF84 A 


RBITO 


RBIT1 


RCCNSO 


RDMEM 


RECO 


C003 


A 


C004 


A 


FF40 


A 


FFDA 


A 


0001 A 


SELS 




SORET 


STKFUL 


XR2 




XR3 


FF80 


A 


0000 


A 


0008 


A 


0002 


A 


0003 A 



597E 2164 



$6" 




$6# 




$7« 




$8" 




$DUMY# 


FF77 


A 


FFC7 


A 


FF7D 


A 


FF7E 


A 


c cnn 


A 

A 


CP AD 




CPOINT 


DOi 




D2 




D4 




FF85 


A 


FFFF 


A 


FFA7 


A 


FF7F 


A 


r r oU 


A 
A 


DMO 




DNI 




DPC 




DSTACK 


DXR2 




FF88 


A 


FF94 


A 


FF97 


A 


FF8E 


A 


c con 


A 


HFFC 




HFFF9 


I EN 




IENF 




IENS 




FF86 


A 


FF87 


A 


0009 


A 


0001 


A 


FF7F 


A 


LPCDR 


LSEL 




PCDEX 


PRTN 




RAM 




0000 


A 


FF5E 


A 


FFA5 


A 


FFD1 


A 


FF01 


A 


RESTOR 


RLEC 




RLOAOE 


RCMORG 


SELF 




FFAA 


A 


OOOB 


A 


7E00 


A 


FFOO 


A 


0002 


A 



8 



